main.pas

themeengine6源码

unit main;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  te_theme, te_controls, StdCtrls, te_engine, te_switcher, ExtCtrls,
  te_adapter, te_managers, te_dialogs, te_stddialogs;
  
type
  TfrmMain = class(TForm)
    ThemeEngine: TTeThemeEngine;
    NgButton1: TTeButton;
    NgButton2: TTeButton;
    NgButton3: TTeButton;
    NgGroupBox1: TTeGroupBox;
    NgGroupBox2: TTeGroupBox;
    NgTrackBar1: TTeTrackBar;
    SeSkinForm1: TTeForm;
    SeSkinMenuBar1: TTeMenuBar;
    CustomItem10: TTeItem;
    CustomItem11: TTeItem;
    CustomItem12: TTeItem;
    CustomItem13: TTeItem;
    CustomItem14: TTeItem;
    CustomItem15: TTeItem;
    CustomItem16: TTeItem;
    CustomItem17: TTeItem;
    CustomItem18: TTeItem;
    SeSkinButton1: TTeButton;
    SeSkinButton2: TTeButton;
    Label1: TLabel;
    SeSkinButton3: TTeButton;
    SeSkinButton4: TTeButton;
    SeSkinButton5: TTeButton;
    SeSkinButton7: TTeButton;
    SeSkinButton8: TTeButton;
    SeSkinStatusBar1: TTeStatusBar;
    SeSkinProgressBar1: TTeProgressBar;
    SeSkinButton9: TTeButton;
    SeSkinButton10: TTeButton;
    SeSkinButton11: TTeButton;
    SeSkinButton13: TTeButton;
    SeSkinButton14: TTeButton;
    SeSkinButton15: TTeButton;
    teLabel1: TteLabel;
    TeThemeSwitcher1: TTeThemeSwitcher;
    TeThemeList1: TTeThemeList;
    teGroupBox1: TteGroupBox;
    teTrackBar1: TteTrackBar;
    teButton1: TteButton;
    TeButton2: TTeButton;
    TeButton3: TTeButton;
    TeManager1: TTeManager;
    TeOpenThemeDialog1: TTeOpenThemeDialog;
    TeButton4: TTeButton;
    TeButton5: TTeButton;
    TeButton6: TTeButton;
    TeButton7: TTeButton;
    TeButton8: TTeButton;
    TeScrollingLabel1: TTeScrollingLabel;
    procedure FormCreate(Sender: TObject);
    procedure CustomItem7Click(Sender: TObject);
    procedure CustomItem9Click(Sender: TObject);
    procedure KsBlendButton1MouseEnter(Sender: TObject);
    procedure KsBlendButton2MouseEnter(Sender: TObject);
    procedure KsBlendButton3MouseEnter(Sender: TObject);
    procedure KsBlendButton5MouseEnter(Sender: TObject);
    procedure CustomItem10Click(Sender: TObject);
    procedure CustomItem11Click(Sender: TObject);
    procedure CustomItem12Click(Sender: TObject);
    procedure CustomItem15Click(Sender: TObject);
    procedure CustomItem16Click(Sender: TObject);
    procedure NgTrackBar1Change(Sender: TObject);
    procedure SeSkinButton1Click(Sender: TObject);
    procedure SeSkinButton1MouseEnter(Sender: TObject);
    procedure SeSkinButton2MouseEnter(Sender: TObject);
    procedure SeSkinButton2Click(Sender: TObject);
    procedure SeSkinButton3MouseEnter(Sender: TObject);
    procedure SeSkinButton3Click(Sender: TObject);
    procedure SeSkinButton4MouseEnter(Sender: TObject);
    procedure SeSkinButton5MouseEnter(Sender: TObject);
    procedure SeSkinButton6MouseEnter(Sender: TObject);
    procedure SeSkinButton4Click(Sender: TObject);
    procedure SeSkinButton5Click(Sender: TObject);
    procedure SeSkinButton7MouseEnter(Sender: TObject);
    procedure SeSkinButton7Click(Sender: TObject);
    procedure SeSkinButton8MouseEnter(Sender: TObject);
    procedure SeSkinButton8Click(Sender: TObject);
    procedure SeSkinButton9Click(Sender: TObject);
    procedure SeSkinButton10Click(Sender: TObject);
    procedure SeSkinButton11Click(Sender: TObject);
    procedure SeSkinButton13Click(Sender: TObject);
    procedure SeSkinButton14Click(Sender: TObject);
    procedure SeSkinButton15Click(Sender: TObject);
    procedure teTrackBar1Change(Sender: TObject);
    procedure teButton1Click(Sender: TObject);
    procedure TeButton2Click(Sender: TObject);
    procedure TeButton3Click(Sender: TObject);
    procedure TeButton5Click(Sender: TObject);
    procedure TeButton4Click(Sender: TObject);
    procedure TeButton6Click(Sender: TObject);
    procedure TeButton8Click(Sender: TObject);
    procedure TeButton7Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmMain: TfrmMain;

implementation

uses te_version, ShellAPI, menu, ctrls, ctrls2, about, formani, ctrls3, hints,
  msgs, tbdemo, edits, edits1, scroll, ctrls4, ctrls5, theme_se3objects, grid,
  mngdemo, adptdemo, myeff, mydialogs, myshell, graph, bars;

{$R *.DFM}

procedure TfrmMain.FormCreate(Sender: TObject);
begin
  SeSkinForm1.Caption := 'ThemeEngine MegaDemo v. ' + SThemeEngineVersion;
end;

procedure TfrmMain.CustomItem7Click(Sender: TObject);
begin
  ShellExecute(0, 'open', 'http://www.ksdev.com', nil, nil, SW_SHOWNORMAL);
end;

procedure TfrmMain.CustomItem9Click(Sender: TObject);
begin
  { About }
  frmAbout := TfrmAbout.Create(Self);
  frmAbout.ShowModal;
  frmAbout.Free;
end;

procedure TfrmMain.SeSkinButton1MouseEnter(Sender: TObject);
begin
  Label1.Caption := 'Use the OpenDialog to select new skin file...';
end;

procedure TfrmMain.KsBlendButton1MouseEnter(Sender: TObject);
begin
  Label1.Caption := 'Demonstation of the menubar, popupmenu, menu blend, animation, shadow and more...';
end;

procedure TfrmMain.KsBlendButton2MouseEnter(Sender: TObject);
begin
  Label1.Caption := 'Demonstation of the ThemeEngine''s controls such as Button, TrackBar, ProgressBar and more...';
end;

procedure TfrmMain.KsBlendButton3MouseEnter(Sender: TObject);
begin
  Label1.Caption := 'Demonstation of the ThemeEngine''s controls such as Panel, TabControl and more...';
end;

procedure TfrmMain.SeSkinButton3MouseEnter(Sender: TObject);
begin
  Label1.Caption := 'Demonstation of the ThemeEngine''s controls such as Edit, ComboBox, SpinButton and more...';
end;

procedure TfrmMain.KsBlendButton5MouseEnter(Sender: TObject);
begin
  Label1.Caption := 'Form with alpha-blending ...';
end;

procedure TfrmMain.SeSkinButton2MouseEnter(Sender: TObject);
begin
  Label1.Caption := 'Demonstation of the form animation...';
end;

procedure TfrmMain.CustomItem10Click(Sender: TObject);
begin
  { Menus }
  frmMenu := TfrmMenu.Create(Self);
  frmMenu.ShowModal;
  frmMenu.Free;
end;

procedure TfrmMain.CustomItem11Click(Sender: TObject);
begin
  { Controls 1 }
  frmControls := TfrmControls.Create(Self);
  frmControls.ShowModal;
  frmControls.Free;
end;

procedure TfrmMain.CustomItem12Click(Sender: TObject);
begin
  { Controls 2 }
  frmControls2 := TfrmControls2.Create(Self);
  frmControls2.ShowModal;
  frmControls2.Free;
end;

procedure TfrmMain.SeSkinButton3Click(Sender: TObject);
begin
  { Controls 3 }
  frmControls3 := TfrmControls3.Create(Self);
  frmControls3.ShowModal;
  frmControls3.Free;
end;

procedure TfrmMain.CustomItem15Click(Sender: TObject);
begin
  { Blend Controls }
end;

procedure TfrmMain.CustomItem16Click(Sender: TObject);
begin
  { animation }
end;

procedure TfrmMain.NgTrackBar1Change(Sender: TObject);
begin
  ThemeEngine.DeltaHue := NgTrackBar1.Position;
end;

procedure TfrmMain.SeSkinButton1Click(Sender: TObject);
begin
  { Load Skin }
  if TeOpenThemeDialog1.Execute then
  begin
    NgTrackBar1.Position := 0;
    ThemeEngine.ThemeFile := TeOpenThemeDialog1.FileName;
  end;
end;

procedure TfrmMain.SeSkinButton2Click(Sender: TObject);
begin
  { Animation }
  AniDemo := TAniDemo.Create(Self);
  AniDemo.ShowModal;
  AniDemo.Free;
end;

procedure TfrmMain.SeSkinButton4MouseEnter(Sender: TObject);
begin
  Label1.Caption := 'Demonstation of the ThemeEngine''s hint system and SpeedButton controls ...';
end;

procedure TfrmMain.SeSkinButton5MouseEnter(Sender: TObject);
begin
  Label1.Caption := 'Demonstation of the ThemeEngine''s message dialogs...';
end;

procedure TfrmMain.SeSkinButton6MouseEnter(Sender: TObject);
begin
  Label1.Caption := 'Demonstation of the ThemeEngine''s real shadow...';
end;

procedure TfrmMain.SeSkinButton7MouseEnter(Sender: TObject);
begin
  Label1.Caption := 'Demonstation of the ThemeEngine''s controlbar and toolbar controls...';
end;

procedure TfrmMain.SeSkinButton8MouseEnter(Sender: TObject);
begin
  Label1.Caption := 'Demonstation of the ThemeEngine''s advanced edit controls...';
end;

procedure TfrmMain.SeSkinButton4Click(Sender: TObject);
begin
  frmHint := TfrmHint.Create(Self);
  frmHint.ShowModal;
  frmHint.Free;
end;

procedure TfrmMain.SeSkinButton5Click(Sender: TObject);
begin
  frmMsg := TfrmMsg.Create(Self);
  frmMsg.ShowModal;
  frmMsg.Free;
end;

procedure TfrmMain.SeSkinButton7Click(Sender: TObject);
begin
  frmTBDemo := TfrmTBDemo.Create(Self);
  frmTBDemo.ShowModal;
  frmTBDemo.Free;
end;

procedure TfrmMain.SeSkinButton8Click(Sender: TObject);
begin
  frmEdits := TfrmEdits.Create(Self);
  frmEdits.ShowModal;
  frmEdits.Free;
end;

procedure TfrmMain.SeSkinButton9Click(Sender: TObject);
begin
  frmEdits1 := TfrmEdits1.Create(Self);
  frmEdits1.ShowModal;
  frmEdits1.Free;
end;

procedure TfrmMain.SeSkinButton10Click(Sender: TObject);
begin
  frmScrollBox := TfrmScrollBox.Create(Self);
  frmScrollBox.ShowModal;
  frmScrollBox.Free;
end;

procedure TfrmMain.SeSkinButton11Click(Sender: TObject);
begin
  frmControls4 := TfrmControls4.Create(Self);
  frmControls4.ShowModal;
  frmControls4.Free;
end;

procedure TfrmMain.SeSkinButton13Click(Sender: TObject);
begin
  ShellExecute(0, 'open', 'http://www.ksdev.com/order.html', nil, nil, SW_SHOWNORMAL);
end;

procedure TfrmMain.SeSkinButton14Click(Sender: TObject);
begin
  ShellExecute(0, 'open', 'http://www.ksdev.com', nil, nil, SW_SHOWNORMAL);
end;

procedure TfrmMain.SeSkinButton15Click(Sender: TObject);
begin
  frmControls6 := TfrmControls6.Create(Self);
  frmControls6.ShowModal;
  frmControls6.Free;
end;

procedure TfrmMain.teTrackBar1Change(Sender: TObject);
begin
  ThemeEngine.DeltaBrightness := teTrackBar1.Position;
end;

procedure TfrmMain.teButton1Click(Sender: TObject);
begin
  frmGrid := TfrmGrid.Create(Self);
  frmGrid.ShowModal;
  frmGrid.Free;
end;

procedure TfrmMain.TeButton2Click(Sender: TObject);
begin
  frmAdapterDemo.Show;
end;

procedure TfrmMain.TeButton3Click(Sender: TObject);
begin
  frmManagerDemo := TfrmManagerDemo.Create(Self);
  frmManagerDemo.ShowModal;
  frmManagerDemo.Free;
end;

procedure TfrmMain.TeButton5Click(Sender: TObject);
begin
  MyEffectsForm := TMyEffectsForm.Create(Self);
  MyEffectsForm.ShowModal;
  MyEffectsForm.Free;
end;

procedure TfrmMain.TeButton4Click(Sender: TObject);
begin
  MyDialogsForm := TMyDialogsForm.Create(Self);
  MyDialogsForm.ShowModal;
  MyDialogsForm.Free;
end;

procedure TfrmMain.TeButton6Click(Sender: TObject);
begin
  MyshellCtrls := TMyshellCtrls.Create(Self);
  MyshellCtrls.ShowModal;
  MyshellCtrls.Free;
end;

procedure TfrmMain.TeButton8Click(Sender: TObject);
begin
  frmGraph := TfrmGraph.Create(Self);
  frmGraph.ShowModal;
  frmGraph.Free;
end;

procedure TfrmMain.TeButton7Click(Sender: TObject);
begin
  frmBars := TfrmBars.Create(Self);
  frmBars.ShowModal;
  frmBars.Free;
end;

end.