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

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

@@ -54 +54 @@
     procedure lstAdmissionsChange(Sender: TObject);
     procedure cboNewTitleDblClick(Sender: TObject);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
   private
     FCosignIEN: Int64;      // store cosigner that was passed in
@@ -87 +88 @@
 {$R *.DFM}
 
-uses ORFn, uCore, rCore, uPCE, rPCE;
+uses ORFn, uCore, rCore, uPCE, rPCE, rMisc;
 { Initial values in ASumm
 
@@ -231 +232 @@
 procedure TfrmDCSummProperties.FormShow(Sender: TObject);
 begin
+  SetFormPosition(Self);
   //if cboNewTitle.Text = '' then PostMessage(Handle, UM_DELAYEVENT, 0, 0);
 end;
@@ -512 +514 @@
 end;
 
+procedure TfrmDCSummProperties.FormClose(Sender: TObject;
+  var Action: TCloseAction);
+begin
+  SaveUserBounds(Self);
+end;
+
 end.