Changeset 460 for cprs/branches/foia-cprs/CPRS-Chart/fDeviceSelect.pas

Timestamp:

Jul 6, 2008, 8:20:14 PM (16 years ago)

Author:

Kevin Toppenberg

Message:

Uploading from OR_30_258

File:

• cprs/branches/foia-cprs/CPRS-Chart/fDeviceSelect.pas (modified) (4 diffs)

cprs/branches/foia-cprs/CPRS-Chart/fDeviceSelect.pas

@@ -5 +5 @@
 uses
   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
-  StdCtrls, fAutoSz, ORCtrls, ORNet, Mask;
+  StdCtrls, fAutoSz, ORCtrls, ORNet, Mask, ExtCtrls;
 
 type
   TfrmDeviceSelect = class(TfrmAutoSz)
     grpDevice: TGroupBox;
-    lblMargin: TLabel;
-    lblLength: TLabel;
-    txtRightMargin: TMaskEdit;
-    txtPageLength: TMaskEdit;
     cboDevice: TORComboBox;
+    pnlBottom: TPanel;
     cmdOK: TButton;
     cmdCancel: TButton;
     chkDefault: TCheckBox;
+    pnlGBBottom: TPanel;
+    lblMargin: TLabel;
+    txtRightMargin: TMaskEdit;
+    lblLength: TLabel;
+    txtPageLength: TMaskEdit;
     procedure cboDeviceChange(Sender: TObject);
     procedure cmdOKClick(Sender: TObject);
@@ -23 +25 @@
     procedure cboDeviceNeedData(Sender: TObject; const StartFrom: String;
       Direction, InsertAt: Integer);
+    procedure FormShow(Sender: TObject);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
   private
     FWinPrint: Boolean;
@@ -37 +41 @@
 {$R *.DFM}
 
-uses ORFn, rCore, uCore, rReports, Printers, fFrame;
+uses ORFn, rCore, uCore, rReports, Printers, fFrame, rMisc;
 
 const
@@ -143 +147 @@
 end;
 
+procedure TfrmDeviceSelect.FormShow(Sender: TObject);
+begin
+  SetFormPosition(Self);
+  inherited;
+end;
+
+procedure TfrmDeviceSelect.FormClose(Sender: TObject;
+  var Action: TCloseAction);
+begin
+  inherited;
+  SaveUserBounds(Self);
+end;
+
 end.