skin.pas

用delphi开发的电力调度操作票系统并带有access数据库

unit skin;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, FileCtrl,IniFiles, ExtDlgs;

type
  TFrm_Skin = class(TForm)
    BT_Sure: TButton;
    BT_Cancel: TButton;
    FileListBox1: TFileListBox;
    DirectoryListBox1: TDirectoryListBox;
    DriveComboBox1: TDriveComboBox;
    BT_Open: TButton;
    OpenPictureDialog1: TOpenPictureDialog;
    ED_Image: TEdit;
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure BT_CancelClick(Sender: TObject);
    procedure FileListBox1Click(Sender: TObject);
    procedure BT_SureClick(Sender: TObject);
    procedure BT_OpenClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_Skin: TFrm_Skin;
  FileName,SkinFileName,ImageFileName:string;
implementation
  uses Main;
{$R *.dfm}

procedure TFrm_Skin.FormCreate(Sender: TObject);
begin
  Self.DirectoryListBox1.Directory:=ExtractFilePath(Application.ExeName)+'Skins';
end;

procedure TFrm_Skin.BT_CancelClick(Sender: TObject);
begin
  SkinFileName:=ExtractFilePath(Application.ExeName)+'Skins\Default.skn';
  if FileExists(SkinFileName) then
     Frm_Main.SkinData1.LoadFromFile(SkinFileName);
  ImageFileName:=ExtractFilePath(Application.ExeName)+'Skins\BackGround.bmp';
  if FileExists(ImageFileName) then
  begin
     Frm_Main.Image1.Picture.LoadFromFile(ImageFileName);
     Frm_Main.Show;
     Frm_Skin.Show;
  end;
end;

procedure TFrm_Skin.FileListBox1Click(Sender: TObject);
begin
  SkinFileName:=Self.FileListBox1.FileName;
  if FileExists(SkinFileName) then
     Frm_Main.SkinData1.LoadFromFile(SkinFileName);
end;

procedure TFrm_Skin.BT_SureClick(Sender: TObject);
var
  IniFile:TIniFile;
begin
  FileName:=ExtractFilePath(Application.ExeName)+'Skins\skin.ini';
  if FileExists(FileName) then
  begin
    IniFile:=TIniFile.Create(FileName);
    try
      if FileExists(SkinFileName) then
        IniFile.WriteString('Path','SkinFileName',SkinFileName);
      if FileExists(ImageFileName) then
        IniFile.WriteString('Path','ImageFileName',ImageFileName);
    finally
      IniFile.Free;
    end;

  end;

  showmessage('保存设置成功！');
end;

procedure TFrm_Skin.BT_OpenClick(Sender: TObject);
begin
  if Self.OpenPictureDialog1.Execute then
  begin
     ED_Image.Text:=OpenPictureDialog1.FileName;
     ImageFileName:=OpenPictureDialog1.FileName;
     if FileExists(ImageFileName) then
     begin
        Frm_Main.Image1.Picture.Assign(nil);
        Frm_Main.Image1.Picture.LoadFromFile(ImageFileName);
        Frm_Main.Show;
        Frm_Skin.Show;
     end;
  end;
end;

end.