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

cprs/branches/foia-cprs/CPRS-Chart/Encounter/fEncounterFrame.pas

@@ -75 +75 @@
     procedure FormKeyDown(Sender: TObject; var Key: Word;
       Shift: TShiftState);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure FormCanResize(Sender: TObject; var NewWidth,
       NewHeight: Integer; var Resize: Boolean);
@@ -123 +124 @@
   uCore,
   fGAF, uConst,
-  rCore, fPCEProvider;
+  rCore, fPCEProvider, rMisc;
 
 {$R *.DFM}
@@ -397 +398 @@
     frmEncounterFrame.CreateChildForms(frmEncounterFrame, PCEData.Location);
     ResizeAnchoredFormToFont(frmEncounterFrame);
+    SetFormPosition(frmEncounterFrame);
 
     with frmEncounterFrame do
@@ -714 +716 @@
     if FormListContains(CT_ImmNm) then
       SetImmunizations(frmImmunizations.lbGrid.Items);
-    if FormListContains(CT_ImmNm) then
+    if FormListContains(CT_SkinNm) then
       SetSkinTests(frmSkinTests.lbGrid.Items);
     if FormListContains(CT_PedNm) then
       SetPatientEds(frmPatientEd.lbGrid.Items);
-    if FormListContains(CT_ImmNm) then
+    if FormListContains(CT_HlthNm) then
       SetHealthFactors(frmHealthFactors.lbGrid.Items);
-    if FormListContains(CT_ImmNm) then
+    if FormListContains(CT_XamNm) then
       SetExams(frmExams.lbGrid.Items);
   end;
@@ -817 +819 @@
 end;
 
-procedure TfrmEncounterFrame.FormCanResize(Sender: TObject; var NewWidth, NewHeight: Integer; var Resize: Boolean);
+procedure TfrmEncounterFrame.FormClose(Sender: TObject;
+  var Action: TCloseAction);
+begin
+  SaveUserBounds(Self);
+end;
+
+procedure TfrmEncounterFrame.FormCanResize(Sender: TObject; var NewWidth,
+  NewHeight: Integer; var Resize: Boolean);
 begin
   //CQ4740