unit1.pas

themeengine6源码

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  tefx_buttons, StdCtrls, te_engine, te_theme, te_controls, Buttons,
  te_switcher, StdActns, ActnList, ImgList, te_effect;

type
  TForm1 = class(TForm)
    TeThemeEngine1: TTeThemeEngine;
    TeForm1: TTeForm;
    tefxButton1: TtefxButton;
    tefxButton2: TtefxButton;
    TeControlBar1: TTeControlBar;
    TeToolBar1: TTeToolBar;
    tefxSpeedButton1: TtefxSpeedButton;
    tefxSpeedButton2: TtefxSpeedButton;
    tefxSpeedButton3: TtefxSpeedButton;
    tefxSpeedButton4: TtefxSpeedButton;
    tefxSpeedButton5: TtefxSpeedButton;
    TeSpeedContainer1: TTeSpeedContainer;
    TeThemeSwitcher1: TTeThemeSwitcher;
    TeSpeedDivider2: TTeSpeedDivider;
    TeSpeedDivider3: TTeSpeedDivider;
    ImageList1: TImageList;
    ActionList1: TActionList;
    EditCopy1: TEditCopy;
    EditCut1: TEditCut;
    EditDelete1: TEditDelete;
    EditPaste1: TEditPaste;
    EditUndo1: TEditUndo;
    TeToolBar2: TTeToolBar;
    tefxSpeedButton6: TtefxSpeedButton;
    tefxSpeedButton9: TtefxSpeedButton;
    tefxSpeedButton8: TtefxSpeedButton;
    tefxSpeedButton7: TtefxSpeedButton;
    TeComboBox1: TTeComboBox;
    TeLabel1: TTeLabel;
    TeLabel2: TTeLabel;
    TeComboBox2: TTeComboBox;
    TeLabel3: TTeLabel;
    TeSpinEdit1: TTeSpinEdit;
    TeThemeList1: TTeThemeList;
    tefxCheckBox1: TtefxCheckBox;
    tefxRadioButton1: TtefxRadioButton;
    procedure FormCreate(Sender: TObject);
    procedure EditCopy1Execute(Sender: TObject);
    procedure EditCut1Execute(Sender: TObject);
    procedure EditDelete1Execute(Sender: TObject);
    procedure EditPaste1Execute(Sender: TObject);
    procedure EditUndo1Execute(Sender: TObject);
    procedure TeSpinEdit1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses te_version;

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
  TeForm1.Caption := SThemeEngineVersionPropText;

  TeComboBox1.Items.Assign(GetEffectList);
  TeComboBox1.ItemIndex := 0;
  TeComboBox2.Items.Assign(GetEffectList);
  TeComboBox2.ItemIndex := 0;

  TeSpinEdit1Change(Self);
end;

procedure TForm1.EditCopy1Execute(Sender: TObject);
begin
  {}
end;

procedure TForm1.EditCut1Execute(Sender: TObject);
begin
  {}
end;

procedure TForm1.EditDelete1Execute(Sender: TObject);
begin
  {}
end;

procedure TForm1.EditPaste1Execute(Sender: TObject);
begin
  {}
end;

procedure TForm1.EditUndo1Execute(Sender: TObject);
begin
  {}
end;

procedure TForm1.TeSpinEdit1Change(Sender: TObject);
 procedure SetValues(C: TControl);
 begin
   if C is TtefxButton then
     with TtefxButton(C) do
     begin
       FXMouseEnter := TeComboBox1.Text;
       FXMouseLeave := TeComboBox2.Text;
       FXTime := TeSpinEdit1.AsInteger;
     end;
   if C is TtefxSpeedButton then
     with TtefxSpeedButton(C) do
     begin
       FXMouseEnter := TeComboBox1.Text;
       FXMouseLeave := TeComboBox2.Text;
       FXTime := TeSpinEdit1.AsInteger;
     end;
   if C is TtefxCheckBox then
     with TtefxCheckBox(C) do
     begin
       FXMouseEnter := TeComboBox1.Text;
       FXMouseLeave := TeComboBox2.Text;
       FXTime := TeSpinEdit1.AsInteger;
     end;
   if C is TtefxRadioButton then
     with TtefxRadioButton(C) do
     begin
       FXMouseEnter := TeComboBox1.Text;
       FXMouseLeave := TeComboBox2.Text;
       FXTime := TeSpinEdit1.AsInteger;
     end;
 end;
begin
  SetValues(tefxButton1);
  SetValues(tefxButton2);

  SetValues(tefxSpeedButton1);
  SetValues(tefxSpeedButton2);
  SetValues(tefxSpeedButton3);
  SetValues(tefxSpeedButton4);
  SetValues(tefxSpeedButton5);
  SetValues(tefxSpeedButton6);
  SetValues(tefxSpeedButton7);
  SetValues(tefxSpeedButton8);
  SetValues(tefxSpeedButton9);

  SetValues(tefxCheckBox1);
  SetValues(tefxRadioButton1);
end;

end.