unit1.pas

来自「BussinessSkinForm是Almdev公司(http://www.al」· PAS 代码 · 共 71 行

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  bsSkinShellCtrls, StdCtrls, Mask, bsSkinBoxCtrls, bsSkinData,
  BusinessSkinForm, bsSkinCtrls, bsTrayIcon;

type
  TForm1 = class(TForm)
    bsBusinessSkinForm1: TbsBusinessSkinForm;
    bsSkinData1: TbsSkinData;
    IniFileEdit: TbsSkinFileEdit;
    CompressedFileEdit: TbsSkinSaveFileEdit;
    bsSkinStdLabel1: TbsSkinStdLabel;
    bsSkinStdLabel2: TbsSkinStdLabel;
    bsSkinButton1: TbsSkinButton;
    bsSkinButton2: TbsSkinButton;
    OD: TbsSkinOpenDialog;
    CompressedStoredSkin: TbsCompressedStoredSkin;
    bsTrayIcon1: TbsTrayIcon;
    procedure bsSkinButton1Click(Sender: TObject);
    procedure bsSkinButton2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.bsSkinButton1Click(Sender: TObject);
begin
  if (IniFileEdit.Text <> '') and
     (CompressedFileEdit.Text <> '')
  then
    begin
      CompressedStoredSkin.LoadFromIniFile(IniFileEdit.Text);
      CompressedStoredSkin.SaveToCompressFile(CompressedFileEdit.Text);
    end;
end;

procedure TForm1.bsSkinButton2Click(Sender: TObject);
begin
  if OD.Execute
  then
    begin
      CompressedStoredSkin.LoadFromCompressFile(OD.FileName);
      bsSkinData1.LoadCompressedStoredSkin(CompressedStoredSkin);
    end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  if ParamCount = 2
  then
    begin
      Inifileedit.Text := ParamStr(1);
      CompressedFileEdit.Text := ParamStr(2);
    end;
end;

end.