home *** CD-ROM | disk | FTP | other *** search
/ CD Shareware Magazine 1996 December / CD_shareware_12-96.iso / WIN / Programa / GTSIZE32.ZIP / GTDEMO.ZIP / GTMDIDEM.ZIP / ORDRINFO.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-06-11  |  2.1 KB  |  105 lines
  1. unit OrdrInfo;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, SysUtils, Messages, Classes, Graphics, Controls, Forms,
  7.   Dialogs, StdCtrls, Mask, Menus, Buttons,ExtCtrls, Gtsize32;
  8.  
  9. type
  10.   TOrderform = class(TForm)
  11.     Panel1: TPanel;
  12.     Label11: TLabel;
  13.     Edit9: TEdit;
  14.     Label14: TLabel;
  15.     Panel2: TPanel;
  16.     Label1: TLabel;
  17.     Label2: TLabel;
  18.     Edit2: TEdit;
  19.     Edit3: TEdit;
  20.     Edit4: TEdit;
  21.     Label3: TLabel;
  22.     Label4: TLabel;
  23.     Edit5: TEdit;
  24.     Label7: TLabel;
  25.     Edit8: TEdit;
  26.     Label6: TLabel;
  27.     Edit7: TEdit;
  28.     Edit10: TEdit;
  29.     Label12: TLabel;
  30.     Label5: TLabel;
  31.     Edit6: TEdit;
  32.     GroupBox1: TGroupBox;
  33.     Label8: TLabel;
  34.     Label9: TLabel;
  35.     Label15: TLabel;
  36.     Label10: TLabel;
  37.     Edit11: TEdit;
  38.     Edit12: TEdit;
  39.     Edit13: TEdit;
  40.     Image1: TImage;
  41.     Label13: TLabel;
  42.     GTForm1: GTForm;
  43.     procedure Exit1Click(Sender: TObject);
  44.     procedure About1Click(Sender: TObject);
  45.     procedure RestoreForm1Click(Sender: TObject);
  46.     procedure On1Click(Sender: TObject);
  47.     procedure Off1Click(Sender: TObject);
  48.     procedure GTForm1GTOnCreate(Sender: TObject);
  49.     procedure On2Click(Sender: TObject);
  50.     procedure Off2Click(Sender: TObject);
  51.   private
  52.     { Private declarations }
  53.   public
  54.     { Public declarations }
  55.   end;
  56.  
  57. var
  58.   Orderform: TOrderform;
  59.  
  60. implementation
  61.  
  62. {$R *.DFM}
  63.  
  64. procedure TOrderform.Exit1Click(Sender: TObject);
  65. begin
  66.   Close;
  67. end;
  68.  
  69. procedure TOrderform.About1Click(Sender: TObject);
  70. begin
  71.   ShowMessage('This is a demo of the incredible GTSizer');
  72. end;
  73.  
  74. procedure TOrderform.RestoreForm1Click(Sender: TObject);
  75. begin
  76.   {GTForm1.FormReset;{}
  77. end;
  78.  
  79. procedure TOrderform.On1Click(Sender: TObject);
  80. begin
  81.   { GTForm1.SizeBalancing := True;{}
  82. end;
  83.  
  84. procedure TOrderform.Off1Click(Sender: TObject);
  85. begin
  86.   {GTForm1.SizeBalancing := False;{}
  87. end;
  88.  
  89. procedure TOrderform.GTForm1GTOnCreate(Sender: TObject);
  90. begin
  91.   On1Click(Self);
  92. end;
  93.  
  94. procedure TOrderform.On2Click(Sender: TObject);
  95. begin
  96.  { GTForm1.Enabled := True; {}
  97. end;
  98.  
  99. procedure TOrderform.Off2Click(Sender: TObject);
  100. begin
  101.   {GTForm1.Enabled := False;{}
  102. end;
  103.  
  104. end.
  105.