skin1.pas

delphi开发的委托加工管理系统源代码

unit skin1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, RzLabel, inifiles,Mask, RzEdit, RzBtnEdt, RzShellDialogs,
  RzButton, ExtCtrls, RzPanel, RzCmboBx;

type
  Tskin = class(TForm)
    RzGroupBox1: TRzGroupBox;
    RzGroupBox2: TRzGroupBox;
    RzBitBtn1: TRzBitBtn;
    RzBitBtn2: TRzBitBtn;
    RzLabel1: TRzLabel;
    RzComboBox1: TRzComboBox;
    procedure RzBitBtn2Click(Sender: TObject);
    procedure RzBitBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  skin: Tskin;

implementation

uses log1;

{$R *.dfm}

procedure Tskin.RzBitBtn2Click(Sender: TObject);
begin
close;
end;

procedure Tskin.RzBitBtn1Click(Sender: TObject);
var
skinset:tinifile;
begin
skinset:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'skinset.ini');
if rzcombobox1.Text='方案一' then
skinset.WriteString('skin','skinpath','.\ico\mxp01.skn');
if rzcombobox1.Text='方案二' then
skinset.WriteString('skin','skinpath','.\ico\mxp02.skn');
if rzcombobox1.Text='方案三' then
skinset.WriteString('skin','skinpath','.\ico\mxp03.skn');
if rzcombobox1.Text='方案四' then
skinset.WriteString('skin','skinpath','.\ico\mxp04.skn');
if rzcombobox1.Text='方案五' then
skinset.WriteString('skin','skinpath','.\ico\mxp05.skn');
showmessage('更换成功！');
log.SkinData1.Active:=false;
log.SkinData1.Active:=true;
end;

procedure Tskin.FormCreate(Sender: TObject);
var
skinset:tinifile;
a:string;
begin
skinset:=tinifile.Create(extractfilepath(application.ExeName)+'skinset.ini');
a:=skinset.ReadString('skin','skinpath','');
if a='.\ico\mxp01.skn' then
rzcombobox1.Text:='方案一';
if a='.\ico\mxp02.skn' then
rzcombobox1.Text:='方案二';
if a='.\ico\mxp03.skn' then
rzcombobox1.Text:='方案三';
if a='.\ico\mxp04.skn' then
rzcombobox1.Text:='方案四';
if a='.\ico\mxp05.skn' then
rzcombobox1.Text:='方案五';
end;

end.