Changeset 460 for cprs/branches/foia-cprs/CPRS-Chart/fLabTests.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/fLabTests.pas (modified) (3 diffs)

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

@@ -30 +30 @@
     procedure cboTestsExit(Sender: TObject);
     procedure cmdAddClick(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
   private
     { Private declarations }
@@ -40 +42 @@
 implementation
 
-uses fLabs, ORFn, rLabs;
+uses fLabs, ORFn, rLabs, rMisc;
 
 {$R *.DFM}
@@ -156 +158 @@
 end;
 
+procedure TfrmLabTests.FormShow(Sender: TObject);
+begin
+  SetFormPosition(Self);
+end;
+
+procedure TfrmLabTests.FormClose(Sender: TObject;
+  var Action: TCloseAction);
+begin
+  SaveUserBounds(Self);
+end;
+
 end.