home *** CD-ROM | disk | FTP | other *** search
- unit SDIMain;
-
- interface
-
- uses
- Windows, SysUtils, Messages, Classes, Graphics, Controls, Forms,
- Dialogs, StdCtrls, Mask, Menus, Buttons,ExtCtrls, GTSize32, Tabs,
- ComCtrls;
-
- type
- TMainForm = class(TForm)
- Panel1: TPanel;
- Button1: TButton;
- BitBtn1: TBitBtn;
- MainMenu1: TMainMenu;
- File1: TMenuItem;
- Open1: TMenuItem;
- N1: TMenuItem;
- Exit1: TMenuItem;
- Restore1: TMenuItem;
- RestoreForm1: TMenuItem;
- SizeBalancing1: TMenuItem;
- On1: TMenuItem;
- Off1: TMenuItem;
- SizingFeature1: TMenuItem;
- On2: TMenuItem;
- Off2: TMenuItem;
- Help1: TMenuItem;
- About1: TMenuItem;
- Resolutions1: TMenuItem;
- StatusBar: TPanel;
- Button2: TButton;
- LargeForm1: TMenuItem;
- DynaForm1: TMenuItem;
- GTForm1: GTForm;
- PageControl1: TPageControl;
- TabSheet1: TTabSheet;
- TabSheet2: TTabSheet;
- TabSheet3: TTabSheet;
- TabSheet4: TTabSheet;
- TabSheet5: TTabSheet;
- Memo6: TMemo;
- Memo7: TMemo;
- Memo8: TMemo;
- Memo9: TMemo;
- Memo10: TMemo;
- procedure Button1Click(Sender: TObject);
- procedure GTForm1GTOnClose(Sender: TObject;
- var Action: TCloseAction);
- procedure Exit1Click(Sender: TObject);
- procedure About1Click(Sender: TObject);
- procedure RestoreForm1Click(Sender: TObject);
- procedure On1Click(Sender: TObject);
- procedure Off1Click(Sender: TObject);
- procedure GTForm1GTOnCreate(Sender: TObject);
- Procedure DisplayHint(Sender:TObject);
- procedure On2Click(Sender: TObject);
- procedure Off2Click(Sender: TObject);
- procedure Resolutions1Click(Sender: TObject);
- private
- { Private declarations }
- public
- { Public declarations }
- end;
-
- var
- MainForm: TMainForm;
-
- implementation
- Uses SdiResCv, SdiLabel, GTFlash;
- {$R *.DFM}
-
- procedure TMainForm.Button1Click(Sender: TObject);
- begin
- OrderForm.Show;
- end;
-
- procedure TMainForm.GTForm1GTOnClose(Sender: TObject;
- var Action: TCloseAction);
- begin
- Application.Terminate;
- end;
-
- procedure TMainForm.About1Click(Sender: TObject);
- begin
- ShowMessage('This is a demo of the new GTSize32');
- end;
-
- procedure TMainForm.RestoreForm1Click(Sender: TObject);
- begin
- GTForm1.FormReset;{}
- end;
-
- procedure TMainForm.On1Click(Sender: TObject);
- begin
- GTForm1.SizeBalancing := True;{}
- end;
-
- procedure TMainForm.Off1Click(Sender: TObject);
- begin
- GTForm1.SizeBalancing := False; {}
- end;
-
- procedure TMainForm.GTForm1GTOnCreate(Sender: TObject);
- begin
- Application.OnHint := DisplayHint;
- Application.ShowHint := True;
- Application.HintColor := clAqua;
- On1Click(Self);
- end;
-
- Procedure TMainForm.DisplayHint(Sender:TObject);
- begin
- StatusBar.Caption := Application.Hint;
- end;
-
- procedure TMainForm.On2Click(Sender: TObject);
- begin
- GTForm1.Enabled := True; {}
- end;
-
- procedure TMainForm.Off2Click(Sender: TObject);
- begin
- GTForm1.Enabled := False; {}
- end;
-
- procedure TMainForm.Exit1Click(Sender: TObject);
- begin
- Close;
- end;
-
- procedure TMainForm.Resolutions1Click(Sender: TObject);
- begin
- Form3.ShowModal;
- end;
-
- end.
-