unit1.pas

themeengine6源码

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, DBTables, te_controls, 
  Grids, DBGrids, te_switcher, te_engine, te_db_controls, te_db_grid,
  ExtCtrls;

type
  TForm1 = class(TForm)
    TeThemeForm1: TTeForm;
    TeThemeEngine1: TTeThemeEngine;
    TeThemeLabel1: TTeLabel;
    TeThemeLabel2: TTeLabel;
    TeThemeDBGrid1: TTeDBGrid;
    Table2: TTable;
    DataSource2: TDataSource;
    DataSource1: TDataSource;
    Table1: TTable;
    TeThemeGroupBox1: TTeGroupBox;
    TeThemeDBLookupComboBox1: TTeDBLookupComboBox;
    TeThemeDBLookupListBox1: TTeDBLookupListBox;
    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
  Caption := 'ThemeEngine DBDemo v. ' + SThemeEngineVersion;
end;

end.