Procedure

SaveUserBounds

Module

rMisc

Last Modified

7/15/2014 3:26:44 PM

Scope

Interfaced

Declaration

procedure SaveUserBounds(AControl: TControl);

Calls Hierarchy


SaveUserBounds
 └TSizeHolder.SetSize

Called-By Hierarchy


                   SaveUserBounds
TfrmNotesSearchText.FormDestroy┤ 
   TfrmTemplateDialog.FormClose┤ 
     TfrmTemplateView.FormClose┤ 
           TfrmODBase.FormClose┤ 
            TfrmFlags.FormClose┤ 
          TfrmPtSel.FormDestroy┤ 
 TfrmDCSummProperties.FormClose┤ 
    TfrmPrerequisites.FormClose┤ 
    TfrmOtherSchedule.FormClose┤ 
        TfrmODMedOIFA.FormClose┤ 
         TfrmOMVerify.FormClose┤ 
           TfrmOMHTML.FormClose┤ 
        TfrmOCSession.FormClose┤ 
         TfrmOrdersTS.FormClose┤ 
     TfrmRefillOrders.FormClose┤ 
TfrmOrdersEvntRelease.FormClose┤ 
           TfrmOMNavA.FormClose┤ 
            TfrmOMSet.FormClose┤ 
         TfrmChgEvent.FormClose┤ 
                ExecuteDCOrders┤ 
     TfrmOrders.mnuActDCClick┤ │ 
       TfrmMeds.mnuActDCClick┘ │ 
      TfrmRenewOrders.FormClose┤ 
   TfrmEncounterFrame.FormClose┤ 
   TfrmTemplateEditor.FormClose┤ 
     TfrmDeviceSelect.FormClose┤ 
         TfrmLabTests.FormClose┘ 

Calls

Name Declaration Comments
TSizeHolder.SetSize procedure SetSize(AName,ASize: String); -

Called-By

Name Declaration Comments
ExecuteDCOrders function ExecuteDCOrders(SelectedList: TList; var DelEvt: boolean): Boolean; -
TfrmTemplateDialog.FormClose procedure FormClose(Sender: TObject; var Action: TCloseAction); -
TfrmTemplateView.FormClose procedure FormClose(Sender: TObject; var Action: TCloseAction); -
TfrmODBase.FormClose procedure FormClose(Sender: TObject; var Action: TCloseAction); -
TfrmFlags.FormClose procedure FormClose(Sender: TObject; var Action: TCloseAction); -
TfrmDCSummProperties.FormClose procedure FormClose(Sender: TObject; var Action: TCloseAction); -
TfrmPrerequisites.FormClose procedure FormClose(Sender: TObject; var Action: TCloseAction); -
TfrmOtherSchedule.FormClose procedure FormClose(Sender: TObject; var Action: TCloseAction); -
TfrmODMedOIFA.FormClose procedure FormClose(Sender: TObject; var Action: TCloseAction); -
TfrmOMVerify.FormClose procedure FormClose(Sender: TObject; var Action: TCloseAction); -
TfrmOMHTML.FormClose procedure FormClose(Sender: TObject; var Action: TCloseAction); -
TfrmOCSession.FormClose procedure FormClose(Sender: TObject; var Action: TCloseAction); -
TfrmOrdersTS.FormClose procedure FormClose(Sender: TObject; var Action: TCloseAction); -
TfrmRefillOrders.FormClose procedure FormClose(Sender: TObject; var Action: TCloseAction); -
TfrmOrdersEvntRelease.FormClose procedure FormClose(Sender: TObject; var Action: TCloseAction); -
TfrmOMNavA.FormClose procedure FormClose(Sender: TObject; var Action: TCloseAction); -
TfrmOMSet.FormClose procedure FormClose(Sender: TObject; var Action: TCloseAction); -
TfrmChgEvent.FormClose procedure FormClose(Sender: TObject; var Action: TCloseAction); -
TfrmRenewOrders.FormClose procedure FormClose(Sender: TObject; var Action: TCloseAction); -
TfrmEncounterFrame.FormClose procedure FormClose(Sender: TObject; var Action: TCloseAction); -
TfrmTemplateEditor.FormClose procedure FormClose(Sender: TObject; var Action: TCloseAction); -
TfrmDeviceSelect.FormClose procedure FormClose(Sender: TObject; var Action: TCloseAction); -
TfrmLabTests.FormClose procedure FormClose(Sender: TObject; var Action: TCloseAction); -
TfrmNotesSearchText.FormDestroy procedure FormDestroy(Sender: TObject); -
TfrmPtSel.FormDestroy procedure FormDestroy(Sender: TObject); -


Source

356   procedure SaveUserBounds(AControl: TControl);
357   var
358     x: string;
359     NewHeight: integer;
360   begin
361     if (AControl is TForm) and (TForm(AControl).WindowState = wsMaximized) then
362       x := '0,0,0,0'
363     else
364       with AControl do
365         begin
366           //Done to remove the adjustment for Window XP style before saving the form size
367           NewHeight := Height - (GetSystemMetrics(SM_CYCAPTION) - 19);
368           x := IntToStr(Left) + ',' + IntToStr(Top) + ',' +
369              IntToStr(Width) + ',' + IntToStr(NewHeight);
370         end;
371   //  CallV('ORWCH SAVESIZ', [AControl.Name, x]);
372     SizeHolder.SetSize(AControl.Name, x);
373   end;