unit1.pas

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

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  bsSkinCtrls, bsSkinData, BusinessSkinForm;

type
  TForm1 = class(TForm)
    bsBusinessSkinForm1: TbsBusinessSkinForm;
    bsSkinData1: TbsSkinData;
    bsSkinRadioGroup1: TbsSkinRadioGroup;
    bsSkinTextLabel1: TbsSkinTextLabel;
    ExOS: TbsCompressedStoredSkin;
    Circuit: TbsCompressedStoredSkin;
    Modern: TbsCompressedStoredSkin;
    Corner: TbsCompressedStoredSkin;
    BlueMorph: TbsCompressedStoredSkin;
    procedure bsSkinRadioGroup1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.bsSkinRadioGroup1Click(Sender: TObject);
begin
  case bsSkinRadioGroup1.ItemIndex of
    0: bsSkinData1.CompressedStoredSkin := BlueMorph;
    1: bsSkinData1.CompressedStoredSkin := ExOS;
    2: bsSkinData1.CompressedStoredSkin := Circuit;
    3: bsSkinData1.CompressedStoredSkin := Modern;
    4: bsSkinData1.CompressedStoredSkin := Corner;
  end;
end;

end.