Procedure

SetFormPosition

Module

rMisc

Last Modified

7/15/2014 3:26:44 PM

Scope

Interfaced

Declaration

procedure SetFormPosition(AForm: TForm);

Calls Hierarchy


SetFormPosition
 └TSizeHolder.GetSize

Called-By Hierarchy


                                                 SetFormPosition
                                  TfrmNotesSearchText.FormShow┤ 
                                 TfrmTemplateDialog.FormCreate┤ 
                                   TfrmTemplateView.FormCreate┤ 
                                                     ShowFlags┤ 
                                      TfrmFrame.SetupPatient┤ │ 
                                 UpdatePatientInfoForAlert┤ │ │ 
                              TfrmFrame.mnuFileNextClick┘ │ │ │ 
                            TfrmFrame.mnuFileOpenClick┤   │ │ │ 
                                TfrmFrame.UMInitiate┤ │   │ │ │ 
                       TfrmFrame.mnuFileNextClick...┤ │   │ │ │ 
                       TfrmFrame.mnuFileRefreshClick┤ │   │ │ │ 
                       TfrmOrders.CheckOrderStatus┤ │ │   │ │ │ 
                   TfrmOrders.mnuActChgEvntClick┤ │ │ │   │ │ │ 
                      TfrmOrders.mnuActHoldClick┤ │ │ │   │ │ │ 
                    TfrmOrders.mnuActUnholdClick┤ │ │ │   │ │ │ 
                     TfrmOrders.mnuActRenewClick┤ │ │ │   │ │ │ 
                    TfrmOrders.mnuActChangeClick┤ │ │ │   │ │ │ 
                      TfrmOrders.mnuActCopyClick┘ │ │ │   │ │ │ 
                            TfrmMeds.mnuActDCClick┤ │ │   │ │ │ 
                           TfrmMeds.CheckMedStatus┘ │ │   │ │ │ 
                        TfrmMeds.mnuActHoldClick┤   │ │   │ │ │ 
                       TfrmMeds.mnuActRenewClick┤   │ │   │ │ │ 
                      TfrmMeds.mnuActUnholdClick┤   │ │   │ │ │ 
                      TfrmMeds.mnuActChangeClick┤   │ │   │ │ │ 
                        TfrmMeds.mnuActCopyClick┤   │ │   │ │ │ 
                      TfrmMeds.mnuActRefillClick┘   │ │   │ │ │ 
                                  TfrmFrame.ViewInfo┘ │   │ │ │ 
                               TfrmDCSumm.ViewInfo┤   │   │ │ │ 
                             TfrmConsults.ViewInfo┤   │   │ │ │ 
                     TfrmFrame.pnlRemindersMouseUp┤   │   │ │ │ 
                      TfrmFrame.RemindersChanged┘ │   │   │ │ │ 
                          TfrmFrame.FormCreate┘   │   │   │ │ │ 
                            TfrmFrame.pnlCIRNClick┤   │   │ │ │ 
                      TfrmFrame.pnlVistaWebClick┤ │   │   │ │ │ 
                           TfrmFrame.FormKeyDown┘ │   │   │ │ │ 
                         TfrmFrame.pnlPatientClick┤   │   │ │ │ 
                           TfrmFrame.pnlVisitClick┤   │   │ │ │ 
                     TfrmFrame.pnlPrimaryCareClick┤   │   │ │ │ 
                       TfrmFrame.pnlRemindersClick┤   │   │ │ │ 
                        TfrmFrame.pnlPostingsClick┤   │   │ │ │ 
                            TfrmFrame.pnlFlagClick┤   │   │ │ │ 
                              TfrmFrame.laMHVClick┤   │   │ │ │ 
                             TfrmFrame.laVAA2Click┤   │   │ │ │ 
                               TfrmOrders.ViewInfo┤   │   │ │ │ 
                                 TfrmMeds.ViewInfo┤   │   │ │ │ 
                              TfrmSurgery.ViewInfo┤   │   │ │ │ 
                                TfrmNotes.ViewInfo┤   │   │ │ │ 
                             TfrmProblems.ViewInfo┘   │   │ │ │ 
                     TfrmFrame.mnuFileNotifRemoveClick┤   │ │ │ 
                             TfrmFrame.NextButtonClick┘   │ │ │ 
                           TfrmFrame.SetUpNextButton┘     │ │ │ 
                     TfrmFrame.mnuFileOpenClick...┤       │ │ │ 
                              TfrmFrame.FormResize┘       │ │ │ 
                            TfrmFrame.ChangeFont┘         │ │ │ 
                    TfrmFrame.LoadSizesForUser┤           │ │ │ 
               TfrmFrame.LoadUserPreferences┘ │           │ │ │ 
                      TfrmFrame.UMInitiate┘   │           │ │ │ 
                    TfrmFrame.mnuFontSizeClick┘           │ │ │ 
                             TfrmFrame.mnuFileOpenClick...┤ │ │ 
                          TfrmFrame.AllowCCOWContextChange┤ │ │ 
                           TfrmFrame.mnuFileNextClick...┤ │ │ │ 
                           TfrmFrame.mnuFileOpenClick...┤ │ │ │ 
                  TfrmFrame.mnuFileResumeContextSetClick┘ │ │ │ 
                               TfrmFrame.UpdateCCOWContext┤ │ │ 
                           TfrmFrame.mnuFileOpenClick...┤ │ │ │ 
                         TfrmFrame.ctxContextorCommitted┤ │ │ │ 
                          TfrmFrame.StartCCOWContextor┘ │ │ │ │ 
                                TfrmFrame.FormCreate┘   │ │ │ │ 
                  TfrmFrame.mnuFileResumeContextGetClick┘ │ │ │ 
                    TfrmFrame.mnuFileResumeContextSetClick┘ │ │ 
                                       TfrmFrame.ViewInfo...┤ │ 
                                      TfrmCover.lstFlagClick┘ │ 
                                  TfrmCover.lstFlagKeyDown┘   │ 
                                            TfrmFlags.FormShow┤ 
                                      TfrmPtSel.AdjustFormSize┤ 
                                               SelectPatient┘ │ 
                             TfrmFrame.mnuFileOpenClick...┘   │ 
                                 TfrmDCSummProperties.FormShow┤ 
                                  TfrmPrerequisites.FormCreate┤ 
                                             ShowOtherSchedule┤ 
                             TfrmODMedIV.CreateOtherSchedule┤ │ 
                             TfrmODMedIV.cboScheduleChange┤ │ │ 
                                 TfrmODMedIV.txtNSSClick┘ │ │ │ 
                        TfrmODMedIV.cboScheduleKeyDown┘   │ │ │ 
                              TfrmODMedIV.cboScheduleClick┘ │ │ 
                              TfrmODMedIV.txtNSSClick...┘   │ │ 
                              TfrmODMeds.CreateOtherScheduel┤ │ 
                               TfrmODMeds.cboScheduleClick┤ │ │ 
                               TfrmODMeds.cmdAcceptClick┤ │ │ │ 
                                  TfrmODMeds.chkPRNClick┤ │ │ │ 
                                  TfrmODMeds.txtNSSClick┤ │ │ │ 
                             TfrmODMeds.cboScheduleEnter┤ │ │ │ 
                             TfrmODMeds.UMShowNSSBuilder┘ │ │ │ 
                              TfrmODMeds.cboScheduleChange┘ │ │ 
                       TfrmODMeds.CreateOtherScheduelComplex┘ │ 
                             TfrmODMeds.cboXScheduleChange┘   │ 
                                  TfrmODMeds.txtNSSClick┘     │ 
                                               ShowOtherRoutes┤ 
                                TfrmODMedIV.CreateOtherRoute┘ │ 
                                 TfrmODMedIV.cboRouteClick┘   │ 
                              TfrmODMedIV.cboRouteChange┤     │ 
                       TfrmODMedIV.txtAllIVRoutesClick┘ │     │ 
                         TfrmODMedIV.cboRouteKeyDown┘   │     │ 
                      TfrmODMedIV.txtAllIVRoutesClick...┘     │ 
                                        TfrmODMedOIFA.FormShow┤ 
                                                ShowVerifyText┤ 
                                         ActivateOrderDialog┘ │ 
                                 TfrmRemDlg.btnFinishClick┤   │ 
                 TfrmConsults.mnuActNewConsultRequestClick┤   │ 
                         TfrmConsults.cmdNewConsultClick┘ │   │ 
                      TfrmConsults.mnuActNewProcedureClick┤   │ 
                            TfrmConsults.cmdNewProcClick┘ │   │ 
                                              ChangeOrders┤   │ 
                            TfrmOrders.mnuActChangeClick┤ │   │ 
                              TfrmMeds.mnuActChangeClick┘ │   │ 
                                           ChangeOrdersEvt┤   │ 
                                                CopyOrders┤   │ 
                              TfrmOrders.mnuActCopyClick┤ │   │ 
                                TfrmMeds.mnuActCopyClick┤ │   │ 
                                 TfrmODActive.btnOKClick┘ │   │ 
                                            TransferOrders┤   │ 
                              TfrmOrders.mnuActCopyClick┤ │   │ 
                                TfrmMeds.mnuActCopyClick┤ │   │ 
                                 TfrmODActive.btnOKClick┘ │   │ 
                                  TfrmOrders.lstWriteClick┤   │ 
                     TfrmOrders.PlaceOrderForDefaultDialog┤   │ 
                        TfrmOrders.DisplayDefaultDlgList┤ │   │ 
                             TfrmOrders.ResetOrderPage┘ │ │   │ 
                     TfrmOrders.btnDelayedOrderClick┘   │ │   │ 
                                       DisplayEvntDialog┤ │   │ 
                                   SetDelayEventForMed┘ │ │   │ 
                            TfrmMeds.mnuActCopyClick┘   │ │   │ 
                                       DisplayEvntDialog┤ │   │ 
                                        SetViewForCopy┘ │ │   │ 
                          TfrmOrders.mnuActCopyClick┘   │ │   │ 
                                       DisplayEvntDialog┘ │   │ 
                                      ExecuteChangeEvt┘   │   │ 
                       TfrmOrders.mnuActChgEvntClick┘     │   │ 
                                   TfrmMeds.mnuActNewClick┤   │ 
                                 TfrmOMNavA.ActivateDialog┤   │ 
                               TfrmOMNavA.grdMenuKeyDown┤ │   │ 
                               TfrmOMNavA.grdMenuMouseUp┘ │   │ 
                                      TfrmOMSet.DoNextItem┘   │ 
                                    TfrmOMSet.InsertList┤     │ 
                                     ActivateOrderList┘ │     │ 
                           TfrmRemDlg.btnFinishClick┤   │     │ 
                                   ActivateOrderHTML┤   │     │ 
                          TfrmOrders.lstWriteClick┤ │   │     │ 
          TfrmOrders.PlaceOrderForDefaultDialog...┘ │   │     │ 
                                    ActivateOrderSet┤   │     │ 
                         TfrmRemDlg.btnFinishClick┤ │   │     │ 
      TfrmConsults.mnuActNewConsultRequestClick...┤ │   │     │ 
           TfrmConsults.mnuActNewProcedureClick...┤ │   │     │ 
                          TfrmOrders.lstWriteClick┤ │   │     │ 
          TfrmOrders.PlaceOrderForDefaultDialog...┤ │   │     │ 
                           TfrmMeds.mnuActNewClick┤ │   │     │ 
                      TfrmOMNavA.ActivateDialog...┤ │   │     │ 
                           TfrmOMSet.DoNextItem...┘ │   │     │ 
                             TfrmOMNavA.DoSelectList┘   │     │ 
                           TfrmOMNavA.grdMenuKeyUp┤     │     │ 
                         TfrmOMNavA.grdMenuMouseUp┘     │     │ 
                                              SkipToNext┤     │ 
                               TfrmOMSet.DoNextItem...┘ │     │ 
                                  TfrmOMSet.UMDelayEvent┘     │ 
                                        ActivateOrderDialog...┤ 
                                          ActivateOrderHTML...┤ 
                                             ActivateOrderMenu┤ 
                                   TfrmRemDlg.btnFinishClick┤ │ 
                TfrmConsults.mnuActNewConsultRequestClick...┤ │ 
                     TfrmConsults.mnuActNewProcedureClick...┤ │ 
                                    TfrmOrders.lstWriteClick┤ │ 
                    TfrmOrders.PlaceOrderForDefaultDialog...┤ │ 
                                     TfrmMeds.mnuActNewClick┤ │ 
                                     TfrmOMSet.DoNextItem...┘ │ 
                                          ActivateOrderList...┤ 
                                        TfrmOCSession.FormShow┤ 
                           ShowDelayedEventsTreatingSepecialty┤ 
                             TfrmOrders.btnDelayedOrderClick┘ │ 
                                     TfrmRefillOrders.FormShow┤ 
                                       SelectEvtReleasedOrders┤ 
                        TfrmOrders.EventRealeasedOrder1Click┘ │ 
                                           ExecuteChangeEvt...┤ 
                                               ExecuteDCOrders┤ 
                                    TfrmOrders.mnuActDCClick┤ │ 
                                      TfrmMeds.mnuActDCClick┘ │ 
                                    TfrmRenewOrders.FormCreate┤ 
                                                     UpdatePCE┤ 
                                        TPCEData.OK2SignNote┤ │ 
                                                 IsOK2Sign┘ │ │ 
                              TfrmDCSumm.mnuActSignClick┤   │ │ 
                                 TfrmDCSumm.SaveSignItem┤   │ │ 
                                 TfrmReview.cmdOKClick┘ │   │ │ 
                                       ReviewChanges┘   │   │ │ 
                   TfrmFrame.AllowContextChangeAll┤     │   │ │ 
                        TfrmFrame.FormCloseQuery┤ │     │   │ │ 
                   TfrmFrame.mnuFileNextClick...┤ │     │   │ │ 
                   TfrmFrame.mnuFileOpenClick...┤ │     │   │ │ 
                   TfrmFrame.ctxContextorPending┤ │     │   │ │ 
               TfrmFrame.StartCCOWContextor...┘ │ │     │   │ │ 
              TfrmFrame.ctxContextorCommitted...┤ │     │   │ │ 
          TfrmFrame.mnuFileResumeContextGetClick┤ │     │   │ │ 
          TfrmFrame.mnuFileResumeContextSetClick┘ │     │   │ │ 
                          TfrmFrame.FormCloseQuery┤     │   │ │ 
                      TfrmFrame.mnuFileReviewClick┤     │   │ │ 
                                   UpdateEncounter┘     │   │ │ 
                 TfrmFrame.mnuFileEncounterClick┤       │   │ │ 
                         TfrmFrame.ViewInfo...┤ │       │   │ │ 
            TfrmODMedIV.SetValuesFromResponses┤ │       │   │ │ 
                     TfrmODMedIV.SetupDialog┤ │ │       │   │ │ 
           TfrmODMedIV.cboSolutionMouseClick┘ │ │       │   │ │ 
               TfrmODMedIV.cboSolutionExit┘   │ │       │   │ │ 
          TfrmODMedIV.cboSolutionMouseClick...┤ │       │   │ │ 
             TfrmODMedIV.cboAdditiveMouseClick┤ │       │   │ │ 
                 TfrmODMedIV.cboAdditiveExit┘ │ │       │   │ │ 
                        TfrmODAuto.SetupDialog┤ │       │   │ │ 
                        ActivateOrderDialog...┤ │       │   │ │ 
                       TfrmOMSet.InsertList...┤ │       │   │ │ 
                        TfrmODMeds.SetupDialog┤ │       │   │ │ 
                     TfrmODMeds.btnSelectClick┤ │       │   │ │ 
                     TfrmODMeds.UMDelayClick┘ │ │       │   │ │ 
                            ExecuteRenewOrders┘ │       │   │ │ 
                 TfrmOrders.mnuActRenewClick┤   │       │   │ │ 
                   TfrmMeds.mnuActRenewClick┘   │       │   │ │ 
                                EncounterPresent┤       │   │ │ 
                              ReadyForNewOrder┤ │       │   │ │ 
                   TfrmRemDlg.btnFinishClick┤ │ │       │   │ │ 
TfrmConsults.mnuActNewConsultRequestClick...┤ │ │       │   │ │ 
     TfrmConsults.mnuActNewProcedureClick...┤ │ │       │   │ │ 
                             ChangeOrders...┤ │ │       │   │ │ 
                             ChangeOrdersEvt┤ │ │       │   │ │ 
                               CopyOrders...┤ │ │       │   │ │ 
                           TransferOrders...┤ │ │       │   │ │ 
                    TfrmOrders.lstWriteClick┤ │ │       │   │ │ 
                     TfrmMeds.mnuActNewClick┘ │ │       │   │ │ 
                             ReadyForNewOrder1┤ │       │   │ │ 
    TfrmOrders.PlaceOrderForDefaultDialog...┘ │ │       │   │ │ 
                      TfrmOrders.mnuActDCClick┤ │       │   │ │ 
                     TfrmOrders.mnuActRelClick┤ │       │   │ │ 
                    TfrmOrders.mnuActHoldClick┤ │       │   │ │ 
                  TfrmOrders.mnuActUnholdClick┤ │       │   │ │ 
                   TfrmOrders.mnuActRenewClick┤ │       │   │ │ 
                 TfrmOrders.mnuActReleaseClick┤ │       │   │ │ 
                 TfrmOrders.mnuActOnChartClick┤ │       │   │ │ 
                    TfrmOrders.mnuActSignClick┤ │       │   │ │ 
                        TfrmMeds.mnuActDCClick┤ │       │   │ │ 
                      TfrmMeds.mnuActHoldClick┤ │       │   │ │ 
                     TfrmMeds.mnuActRenewClick┤ │       │   │ │ 
                    TfrmMeds.mnuActUnholdClick┤ │       │   │ │ 
                      TfrmMeds.mnuActCopyClick┤ │       │   │ │ 
                    TfrmMeds.mnuActRefillClick┘ │       │   │ │ 
                             EncounterPresentEDO┤       │   │ │ 
                           ReadyForNewOrder...┤ │       │   │ │ 
                 TfrmOrders.mnuActChgEvntClick┤ │       │   │ │ 
                  TfrmOrders.mnuActChangeClick┤ │       │   │ │ 
                    TfrmOrders.mnuActCopyClick┤ │       │   │ │ 
               TfrmOrders.btnDelayedOrderClick┤ │       │   │ │ 
                    TfrmMeds.mnuActChangeClick┤ │       │   │ │ 
                      TfrmMeds.mnuActCopyClick┘ │       │   │ │ 
                                     UpdateVisit┤       │   │ │ 
                                   EditPCEData┤ │       │   │ │ 
                     TfrmSurgery.cmdPCEClick┤ │ │       │   │ │ 
                         UpdateEncounterInfo┘ │ │       │   │ │ 
                     TfrmNotes.cmdPCEClick┘   │ │       │   │ │ 
                TfrmVitals.btnEnterVitalsClick┘ │       │   │ │ 
                                     UpdateVisit┤       │   │ │ 
                                EncounterPresent┘       │   │ │ 
                 TfrmProblems.lstProbActsClick┘         │   │ │ 
             TfrmProblems.wgProbDataDblClick┤           │   │ │ 
                   TfrmProblems.lstViewClick┘           │   │ │ 
           TfrmProblems.HighlightDuplicate┘             │   │ │ 
                 TfrmProblems.AddProblem┤               │   │ │ 
      TfrmProblems.lstProbActsClick...┤ │               │   │ │ 
         TfrmProblems.lstProbPickClick┤ │               │   │ │ 
      TfrmProblems.lstProbPickDblClick┤ │               │   │ │ 
      TfrmProblems.edProbEntKeyPress┘ │ │               │   │ │ 
              TfrmProblems.UMPLLexicon┘ │               │   │ │ 
           TfrmdlgProb.bbChangeProbClick┘               │   │ │ 
                   TfrmConsults.mnuActSignatureSignClick┤   │ │ 
                               TfrmConsults.SaveSignItem┤   │ │ 
                              TfrmReview.cmdOKClick...┘ │   │ │ 
                             TfrmSurgery.mnuActSignClick┤   │ │ 
                                TfrmSurgery.SaveSignItem┤   │ │ 
                              TfrmReview.cmdOKClick...┘ │   │ │ 
                               TfrmNotes.mnuActSignClick┤   │ │ 
                                  TfrmNotes.SaveSignItem┘   │ │ 
                              TfrmReview.cmdOKClick...┘     │ │ 
                                      TfrmDCSumm.cmdPCEClick┤ │ 
                                    TfrmConsults.cmdPCEClick┤ │ 
                                              EditPCEData...┤ │ 
                                     TfrmSurgery.cmdPCEClick┤ │ 
                                      UpdateEncounterInfo...┘ │ 
                                 TfrmTemplateEditor.FormCreate┤ 
                                   TfrmDeviceSelect.FormCreate┤ 
                                                   SelectTests┘ 
                                     TfrmLabs.tvReportsClick┘   
                                      TfrmLabs.DisplayPage┤     
                                     TfrmLabs.LoadTreeView┤     
                                    TfrmLabs.DisplayPage┤ │     
                  TfrmOptionsReportsCustom.btnApplyClick┘ │     
                   TfrmOptionsReportsCustom.btnOKClick┘   │     
                               TfrmLabs.cmdOtherTestsClick┤     
                                  TfrmLabs.chkMaxFreqClick┤     
                             TfrmLabs.ProcessNotifications┤     
                                    TfrmLabs.DisplayPage┘ │     
                                                 ..(rec)..┤     
                                 TfrmLabs.tvReportsKeyDown┤     
                           TfrmFrame.lstCIRNLocationsClick┘     
                                     TfrmFrame.SetUpCIRN┘       
                             TfrmFrame.SetupPatient...┘         

Calls

Name Declaration Comments
TSizeHolder.GetSize function GetSize(AName: String): String; -

Called-By

Name Declaration Comments
ActivateOrderDialog function ActivateOrderDialog(const AnID: string; AnEvent: TOrderDelayEvent; AnOwner: TComponent; ARefNum: Integer; ANeedVerify: boolean = True): Boolean; -
ActivateOrderHTML function ActivateOrderHTML(const AnID: string; AnEvent: TOrderDelayEvent; AnOwner: TComponent; ARefNum: Integer): Boolean; -
ActivateOrderList function ActivateOrderList(AList: TStringList; AnEvent: TOrderDelayEvent; AnOwner: TComponent; ARefNum: Integer; const KeyVarStr, ACaption: string): Boolean; -
ActivateOrderMenu function ActivateOrderMenu(const AnID: string; AnEvent: TOrderDelayEvent; AnOwner: TComponent; ARefNum: Integer): Boolean; -
TfrmPtSel.AdjustFormSize procedure AdjustFormSize(ShowNotif: Boolean; FontSize: Integer); -
ExecuteChangeEvt function ExecuteChangeEvt(SelectedList: TList; var DoesDestEvtOccur: boolean; var DestPtEvtID: integer; var DestPtEvtName: string): boolean; -
ExecuteDCOrders function ExecuteDCOrders(SelectedList: TList; var DelEvt: boolean): Boolean; -
TfrmTemplateDialog.FormCreate procedure FormCreate(Sender: TObject); -
TfrmTemplateView.FormCreate procedure FormCreate(Sender: TObject); -
TfrmPrerequisites.FormCreate procedure FormCreate(Sender: TObject); -
TfrmRenewOrders.FormCreate procedure FormCreate(Sender: TObject); -
TfrmTemplateEditor.FormCreate procedure FormCreate(Sender: TObject); -
TfrmDeviceSelect.FormCreate procedure FormCreate(Sender: TObject); -
TfrmNotesSearchText.FormShow procedure FormShow(Sender: TObject); -
TfrmFlags.FormShow procedure FormShow(Sender: TObject); -
TfrmDCSummProperties.FormShow procedure FormShow(Sender: TObject); -
TfrmODMedOIFA.FormShow procedure FormShow(Sender: TObject); -
TfrmOCSession.FormShow procedure FormShow(Sender: TObject); -
TfrmRefillOrders.FormShow procedure FormShow(Sender: TObject); -
SelectEvtReleasedOrders procedure SelectEvtReleasedOrders(var OrderView: TOrderView); -
SelectTests procedure SelectTests(FontSize: Integer); -
ShowDelayedEventsTreatingSepecialty function ShowDelayedEventsTreatingSepecialty(const ARadCaption: string; var AnEvent: TOrderDelayEvent; var ADlgLst: TStringlist; var ReleaseNow: boolean; AnLimitEvent: Char = #0): Boolean; -
ShowFlags procedure ShowFlags(FlagId: integer = 0); -
ShowOtherRoutes function ShowOtherRoutes(var Route: string): boolean; -
ShowOtherSchedule function ShowOtherSchedule(var ASchedule: string): boolean; -
ShowVerifyText procedure ShowVerifyText(var QuickLevel: Integer; var VerifyText: string; InptDispGrp: boolean = False); -
UpdatePCE function UpdatePCE(PCEData: TPCEData; SaveOnExit: boolean = TRUE): boolean; -


Source

385   procedure SetFormPosition(AForm: TForm);
386   var
387     x: string;
388     Rect: TRect;
389   begin
390   //  x := sCallV('ORWCH LOADSIZ', [AForm.Name]);
391     x := SizeHolder.GetSize(AForm.Name);
392     if x = '' then Exit; // allow default bounds to be passed in, else screen center?
393     if (x = '0,0,0,0') then
394       AForm.WindowState := wsMaximized
395     else
396     begin
397       AForm.SetBounds(StrToIntDef(Piece(x, ',', 1), AForm.Left),
398                       StrToIntDef(Piece(x, ',', 2), AForm.Top),
399                       StrToIntDef(Piece(x, ',', 3), AForm.Width),
400                       StrToIntDef(Piece(x, ',', 4), AForm.Height));
401       Rect := AForm.BoundsRect;
402       ForceInsideWorkArea(Rect);
403       AForm.BoundsRect := Rect;
404     end;
405   end;