unt_main.pas

皮肤界面组件开发包,让你们系统随时可以按用户喜欢的风格设置了.

unit Unt_Main;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  Dialogs, SkinControls, Skin, SkinSlider, SkinEngine, SkinButtons,
  SkinProgressBar, SkinLed, SkinLabel, SkinCheckBox, SkinImageText,
  ExtCtrls;

type
  TFrm_Main = class(TForm)
    SkinEngine1: TSkinEngine;
    SkinForm1: TSkinForm;
    SkinSlider1: TSkinSlider;
    SkinButton1: TSkinButton;
    SkinButton2: TSkinButton;
    SkinButton3: TSkinButton;
    SkinButton4: TSkinButton;
    SkinButton5: TSkinButton;
    SkinButton6: TSkinButton;
    SkinButton7: TSkinButton;
    SkinButton8: TSkinButton;
    SkinButton12: TSkinButton;
    SkinButton13: TSkinButton;
    SkinButton9: TSkinButton;
    SkinButton10: TSkinButton;
    SkinButton11: TSkinButton;
    SkinButton14: TSkinButton;
    SkinButton15: TSkinButton;
    SkinButton16: TSkinButton;
    SkinProgressBar1: TSkinProgressBar;
    SkinCheckBox1: TSkinCheckBox;
    SkinImageText1: TSkinImageText;
    Timer1: TTimer;
    procedure SkinSlider1Change(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure SkinButton15Click(Sender: TObject);
    procedure SkinButton14Click(Sender: TObject);
    procedure SkinButton7Click(Sender: TObject);
  private
    Cnt:integer;  { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_Main: TFrm_Main;

implementation

{$R *.dfm}

procedure TFrm_Main.SkinSlider1Change(Sender: TObject);
begin
//  SkinLabel1.Caption :=IntToStr(SkinSlider1.Position);
  SkinProgressBar1.Position :=SkinSlider1.Position;
end;

procedure TFrm_Main.Timer1Timer(Sender: TObject);

begin
  Inc(Cnt);
  SkinImageText1.Text := Format('%.4d', [Cnt]);
end;

procedure TFrm_Main.SkinButton15Click(Sender: TObject);
begin
  close
end;

procedure TFrm_Main.SkinButton14Click(Sender: TObject);
begin
//  WindowState :=wsMinimized;
end;

procedure TFrm_Main.SkinButton7Click(Sender: TObject);
begin
  ShowMessage('http://www.skin-studio.com')
end;

end.