formani.pas

来自「themeengine6源码」· PAS 代码 · 共 65 行

unit formani;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  te_controls, te_effect, 
  StdCtrls;

type
  TAniDemo = class(TForm)
    SeSkinButton1: TTeButton;
    SeSkinButton2: TTeButton;
    SeSkinForm1: TTeForm;
    SeSkinGroupBox1: TTeGroupBox;
    SeSkinLabel1: TTeLabel;
    CB1: TTeComboBox;
    SeSkinSpinEdit1: TTeSpinEdit;
    SeSkinLabel3: TTeLabel;
    SeSkinLabel2: TTeLabel;
    SeSkinSpinEdit2: TTeSpinEdit;
    procedure SeSkinButton2Click(Sender: TObject);
    procedure SeSkinButton1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  AniDemo: TAniDemo;

implementation

uses Main, Ani;

{$R *.DFM}

procedure TAniDemo.FormCreate(Sender: TObject);
begin
  CB1.Items := GetEffectList;
  CB1.ItemIndex := 0;
end;

procedure TAniDemo.SeSkinButton2Click(Sender: TObject);
begin
  Close;
end;

procedure TAniDemo.SeSkinButton1Click(Sender: TObject);
begin
  { Show Ani }
  AniForm := TAniForm.Create(Self);
  AniForm.SkinForm.Animation.Enabled := SeSkinGroupBox1.Checked;
  AniForm.SkinForm.Animation.Time := SeSkinSpinEdit1.AsInteger;
  AniForm.SkinForm.Animation.EffectKind := CB1.Text;
  AniForm.SkinForm.Animation.TileCount := SeSkinSpinEdit2.AsInteger;

  AniForm.ShowModal;
  AniForm.Free;
end;

end.