mydialogs.pas

themeengine6源码

unit mydialogs;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  te_panelselecttheme, te_panelopentheme, ExtCtrls,
  te_controls, te_dialogs, te_printer, te_stddialogs;

type
  TMyDialogsForm = class(TForm)
    TePageControl1: TTePageControl;
    TeTabSheet1: TTeTabSheet;
    TeTabSheet2: TTeTabSheet;
    TeTabSheet3: TTeTabSheet;
    TeTabSheet4: TTeTabSheet;
    TeTabSheet5: TTeTabSheet;
    TeTabSheet6: TTeTabSheet;
    TePanel1: TTePanel;
    TeOpenPanel1: TTeOpenPanel;
    TeOpenPicturePanel1: TTeOpenPicturePanel;
    TeColorPanel1: TTeColorPanel;
    TeTabSheet7: TTeTabSheet;
    TeDirectoryPanel1: TTeDirectoryPanel;
    TeButton1: TTeButton;
    TeButton2: TTeButton;
    TeButton3: TTeButton;
    TeButton4: TTeButton;
    TeButton5: TTeButton;
    TeButton6: TTeButton;
    TeButton7: TTeButton;
    TeOpenDialog1: TTeOpenDialog;
    TeOpenPictureDialog1: TTeOpenPictureDialog;
    TeOpenThemeDialog1: TTeOpenThemeDialog;
    TeSelectThemeDialog1: TTeSelectThemeDialog;
    TeFontDialog1: TTeFontDialog;
    TeColorDialog1: TTeColorDialog;
    TeDirectoryDialog1: TTeDirectoryDialog;
    TeForm1: TTeForm;
    TeButton8: TTeButton;
    TePrintDialog1: TTePrintDialog;
    TeButton9: TTeButton;
    TeSmallPrinterDialog1: TTeSmallPrinterDialog;
    TeButton10: TTeButton;
    TePrinterSetupDialog1: TTePrinterSetupDialog;
    TeButton11: TTeButton;
    TePageSetupDialog1: TTePageSetupDialog;
    TeOpenThemePanel1: TTeOpenThemePanel;
    TeFontPanel1: TTeFontPanel;
    TeSelectThemePanel1: TTeSelectThemePanel;
    procedure TeButton1Click(Sender: TObject);
    procedure TeButton2Click(Sender: TObject);
    procedure TeButton3Click(Sender: TObject);
    procedure TeButton4Click(Sender: TObject);
    procedure TeButton5Click(Sender: TObject);
    procedure TeButton6Click(Sender: TObject);
    procedure TeButton7Click(Sender: TObject);
    procedure TeButton8Click(Sender: TObject);
    procedure TeButton9Click(Sender: TObject);
    procedure TeButton10Click(Sender: TObject);
    procedure TeButton11Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MyDialogsForm: TMyDialogsForm;

implementation

uses Main;

{$R *.DFM}

procedure TMyDialogsForm.TeButton1Click(Sender: TObject);
begin
  TeOpenDialog1.Execute;
end;

procedure TMyDialogsForm.TeButton2Click(Sender: TObject);
begin
  TeOpenThemeDialog1.Execute;
end;

procedure TMyDialogsForm.TeButton3Click(Sender: TObject);
begin
  TeOpenPictureDialog1.Execute;
end;

procedure TMyDialogsForm.TeButton4Click(Sender: TObject);
begin
  TeSelectThemeDialog1.Execute;
end;

procedure TMyDialogsForm.TeButton5Click(Sender: TObject);
begin
  TeFontDialog1.Execute;
end;

procedure TMyDialogsForm.TeButton6Click(Sender: TObject);
begin
  TeColorDialog1.Execute;
end;

procedure TMyDialogsForm.TeButton7Click(Sender: TObject);
begin
  TeDirectoryDialog1.Execute;
end;

procedure TMyDialogsForm.TeButton8Click(Sender: TObject);
begin
  TePrintDialog1.Execute;
end;

procedure TMyDialogsForm.TeButton9Click(Sender: TObject);
begin
  TeSmallPrinterDialog1.Execute;
end;

procedure TMyDialogsForm.TeButton10Click(Sender: TObject);
begin
  TePrinterSetupDialog1.Execute;
end;

procedure TMyDialogsForm.TeButton11Click(Sender: TObject);
begin
  TePageSetupDialog1.Execute;
end;

end.