unit1.pas

themeengine6源码

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Menus, te_controls, Db, DBTables, ImgList, 
  DBActns, ActnList, 
  DBCtrls,
  
  StdCtrls, te_engine, te_db_controls, ExtCtrls, te_switcher;
  
type
  TForm1 = class(TForm)
    ActionList1: TActionList;
    DataSource1: TDataSource;
    TeThemeEngine1: TTeThemeEngine;
    TeThemeForm1: TTeForm;
    ImageList1: TImageList;
    TeThemeControlBar1: TTeControlBar;
    TeThemeMenuBar1: TTeMenuBar;
    CustomItem1: TTeItem;
    CustomItem2: TTeItem;
    CustomItem3: TTeItem;
    CustomItem4: TTeItem;
    CustomItem5: TTeItem;
    DBImage1: TDBImage;
    Table1: TTable;
    DataSetCancel1: TDataSetCancel;
    DataSetDelete1: TDataSetDelete;
    DataSetEdit1: TDataSetEdit;
    DataSetFirst1: TDataSetFirst;
    DataSetInsert1: TDataSetInsert;
    DataSetLast1: TDataSetLast;
    DataSetNext1: TDataSetNext;
    DataSetPost1: TDataSetPost;
    DataSetPrior1: TDataSetPrior;
    DataSetRefresh1: TDataSetRefresh;
    TeThemeToolBar1: TTeToolBar;
    CustomItem6: TTeItem;
    CustomItem7: TTeItem;
    CustomItem8: TTeItem;
    CustomItem9: TTeItem;
    CustomItem10: TTeItem;
    CustomItem11: TTeItem;
    TeThemePanel1: TTePanel;
    TeThemeButton1: TTeButton;
    TeThemeButton2: TTeButton;
    TeThemeButton3: TTeButton;
    TeThemeButton4: TTeButton;
    TeThemeButton5: TTeButton;
    TeThemeButton6: TTeButton;
    TeThemeButton7: TTeButton;
    TeThemeButton8: TTeButton;
    TeThemeButton9: TTeButton;
    TeThemeButton10: TTeButton;
    TeThemePopupMenu1: TTePopupMenu;
    CustomItem12: TTeItem;
    CustomItem13: TTeItem;
    CustomItem14: TTeItem;
    CustomItem15: TTeItem;
    CustomItem16: TTeItem;
    CustomItem17: TTeItem;
    CustomItem18: TTeItem;
    CustomItem19: TTeItem;
    CustomItem20: TTeItem;
    CustomItem21: TTeItem;
    TeThemeSpeedButton1: TTeSpeedButton;
    TeThemeSpeedButton2: TTeSpeedButton;
    TeThemeSpeedButton3: TTeSpeedButton;
    TeThemeSpeedButton4: TTeSpeedButton;
    TeThemeSpeedButton5: TTeSpeedButton;
    TeThemeSpeedButton6: TTeSpeedButton;
    TeThemeDBEdit1: TTeDBEdit;
    Label1: TLabel;
    TeThemeLabel1: TTeLabel;
    TeThemeLabel2: TTeLabel;
    TeThemeSwitcher1: TTeThemeSwitcher;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses te_version;

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
  TeThemeForm1.Caption := 'DB Navigator Demo - ThemeEngine '+SThemeEngineVersion;
end;

end.