main.pas

BusinessSkinForm教案与实例

unit main;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, FileCtrl, ExtCtrls, Buttons, bsSkinZip, BusinessSkinForm,
  bsSkinCtrls, Mask, bsSkinBoxCtrls, bsSkinData, bsfilectrl, bsSkinHint,
  bsSkinUnZip, Menus, bsSkinMenus, ImgList, bsTrayIcon;

type
  TCompressForm = class(TForm)
    bsSkinZip1: TbsSkinZip;
    bsBusinessSkinForm1: TbsBusinessSkinForm;
    bsSkinData1: TbsSkinData;
    bsSkinPanel1: TbsSkinPanel;
    bsSkinStdLabel1: TbsSkinStdLabel;
    FileNameEdit: TbsSkinEdit;
    bsSkinSpeedButton1: TbsSkinSpeedButton;
    bsSkinPanel2: TbsSkinPanel;
    bsSkinDirectoryListBox1: TbsSkinDirectoryListBox;
    bsSkinSplitter1: TbsSkinSplitter;
    bsSkinFileListBox1: TbsSkinFileListBox;
    bsSkinSpeedButton2: TbsSkinSpeedButton;
    bsSkinHint1: TbsSkinHint;
    OD: TOpenDialog;
    bsSkinUnZip1: TbsSkinUnZip;
    bsTrayIcon1: TbsTrayIcon;
    bsSkinDriveComboBox1: TbsSkinDriveComboBox;
    procedure bsSkinSpeedButton1Click(Sender: TObject);
    procedure bsSkinSpeedButton2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Noskin1Click(Sender: TObject);
    procedure bsSkinDirectoryListBox1CheckButtonClick(Sender: TObject);
    procedure bsSkinDirectoryListBox1Change(Sender: TObject);
  private
    { Private declarations }
  public
    procedure Compress;
    procedure LoadSkin(FileName: String);
  end;

var
  CompressForm: TCompressForm;

implementation

{$R *.DFM}

procedure TCompressForm.Compress;
var
  S: TStrings;
  i: Integer;
  FN: String;
begin
  if FileNameEdit.Text = '' then Exit;
  S := TStringList.Create;
  for i := 0 to bsSkinFileListBox1.Items.Count - 1 do
  begin
    FN := bsSkinDirectoryListBox1.Directory + '\' + bsSkinFileListBox1.Items[i];
    S.Add(FN);
  end;
  if S.Count > 0
  then
   bsSkinZip1.ZipFiles(bsSkinDirectoryListBox1.Directory + '\' + FileNameEdit.Text, S);
  S.Free;
end;

procedure TCompressForm.bsSkinSpeedButton1Click(Sender: TObject);
begin
  Compress;
end;

procedure TCompressForm.bsSkinSpeedButton2Click(Sender: TObject);
begin
  if OD.Execute then LoadSkin(OD.FileName);
end;

procedure TCompressForm.LoadSkin;
var
  Path: String;
begin
  Path := ExtractFilePath(ParamStr(0));
  Path := Path + 'temp\';
  bsSkinUnZip1.UnZipToDir(FileName, Path);
  bsSkinData1.LoadFromFile(Path + 'skin.ini');
end;

procedure TCompressForm.FormCreate(Sender: TObject);
var
  Path: String;
begin
  Path := ExtractFilePath(ParamStr(0));
  LoadSkin(Path + 'option.zip');
  OD.InitialDir := Path;
end;

procedure TCompressForm.Noskin1Click(Sender: TObject);
begin
 bsSkinData1.ClearSkin;
end;

procedure TCompressForm.bsSkinDirectoryListBox1CheckButtonClick(
  Sender: TObject);
begin
  bsSkinDirectoryListBox1.OpenCurrent;
end;

procedure TCompressForm.bsSkinDirectoryListBox1Change(Sender: TObject);
begin
  FileNameEdit.Text := bsSkinDirectoryListBox1.Items[bsSkinDirectoryListBox1.ItemIndex] + '.zip';
end;

end.