home *** CD-ROM | disk | FTP | other *** search
/ CD Shareware Magazine 1996 December / CD_shareware_12-96.iso / WIN / Programa / GTSIZE32.ZIP / GTDEMO.ZIP / GTSDIDEM.ZIP / SDIMAIN.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-08-09  |  3.1 KB  |  138 lines

  1. unit SDIMain;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, SysUtils, Messages, Classes, Graphics, Controls, Forms, 
  7.   Dialogs, StdCtrls, Mask, Menus, Buttons,ExtCtrls, GTSize32, Tabs,
  8.   ComCtrls;
  9.  
  10. type
  11.   TMainForm = class(TForm)
  12.     Panel1: TPanel;
  13.     Button1: TButton;
  14.     BitBtn1: TBitBtn;
  15.     MainMenu1: TMainMenu;
  16.     File1: TMenuItem;
  17.     Open1: TMenuItem;
  18.     N1: TMenuItem;
  19.     Exit1: TMenuItem;
  20.     Restore1: TMenuItem;
  21.     RestoreForm1: TMenuItem;
  22.     SizeBalancing1: TMenuItem;
  23.     On1: TMenuItem;
  24.     Off1: TMenuItem;
  25.     SizingFeature1: TMenuItem;
  26.     On2: TMenuItem;
  27.     Off2: TMenuItem;
  28.     Help1: TMenuItem;
  29.     About1: TMenuItem;
  30.     Resolutions1: TMenuItem;
  31.     StatusBar: TPanel;
  32.     Button2: TButton;
  33.     LargeForm1: TMenuItem;
  34.     DynaForm1: TMenuItem;
  35.     GTForm1: GTForm;
  36.     PageControl1: TPageControl;
  37.     TabSheet1: TTabSheet;
  38.     TabSheet2: TTabSheet;
  39.     TabSheet3: TTabSheet;
  40.     TabSheet4: TTabSheet;
  41.     TabSheet5: TTabSheet;
  42.     Memo6: TMemo;
  43.     Memo7: TMemo;
  44.     Memo8: TMemo;
  45.     Memo9: TMemo;
  46.     Memo10: TMemo;
  47.     procedure Button1Click(Sender: TObject);
  48.     procedure GTForm1GTOnClose(Sender: TObject;
  49.       var Action: TCloseAction);
  50.     procedure Exit1Click(Sender: TObject);
  51.     procedure About1Click(Sender: TObject);
  52.     procedure RestoreForm1Click(Sender: TObject);
  53.     procedure On1Click(Sender: TObject);
  54.     procedure Off1Click(Sender: TObject);
  55.     procedure GTForm1GTOnCreate(Sender: TObject);
  56.     Procedure DisplayHint(Sender:TObject);
  57.     procedure On2Click(Sender: TObject);
  58.     procedure Off2Click(Sender: TObject);
  59.     procedure Resolutions1Click(Sender: TObject);
  60.   private
  61.     { Private declarations }
  62.   public
  63.     { Public declarations }
  64.   end;
  65.  
  66. var
  67.   MainForm: TMainForm;
  68.  
  69. implementation
  70.        Uses SdiResCv, SdiLabel, GTFlash;
  71. {$R *.DFM}
  72.  
  73. procedure TMainForm.Button1Click(Sender: TObject);
  74. begin
  75.   OrderForm.Show;
  76. end;
  77.  
  78. procedure TMainForm.GTForm1GTOnClose(Sender: TObject;
  79.   var Action: TCloseAction);
  80. begin
  81.    Application.Terminate;
  82. end;
  83.  
  84. procedure TMainForm.About1Click(Sender: TObject);
  85. begin
  86.   ShowMessage('This is a demo of the new GTSize32');
  87. end;
  88.  
  89. procedure TMainForm.RestoreForm1Click(Sender: TObject);
  90. begin
  91.   GTForm1.FormReset;{}
  92. end;
  93.  
  94. procedure TMainForm.On1Click(Sender: TObject);
  95. begin
  96.    GTForm1.SizeBalancing := True;{}
  97. end;
  98.  
  99. procedure TMainForm.Off1Click(Sender: TObject);
  100. begin
  101.   GTForm1.SizeBalancing := False; {}
  102. end;
  103.  
  104. procedure TMainForm.GTForm1GTOnCreate(Sender: TObject);
  105. begin
  106.   Application.OnHint := DisplayHint;
  107.   Application.ShowHint := True;
  108.   Application.HintColor := clAqua;
  109.   On1Click(Self);
  110. end;
  111.  
  112. Procedure TMainForm.DisplayHint(Sender:TObject);
  113. begin
  114.   StatusBar.Caption := Application.Hint;
  115. end;
  116.  
  117. procedure TMainForm.On2Click(Sender: TObject);
  118. begin
  119.   GTForm1.Enabled := True; {}
  120. end;
  121.  
  122. procedure TMainForm.Off2Click(Sender: TObject);
  123. begin
  124.   GTForm1.Enabled := False;  {}
  125. end;
  126.  
  127. procedure TMainForm.Exit1Click(Sender: TObject);
  128. begin
  129. Close;
  130. end;
  131.  
  132. procedure TMainForm.Resolutions1Click(Sender: TObject);
  133. begin
  134.  Form3.ShowModal;
  135. end;
  136.  
  137. end.
  138.