Procedure

TfrmPtSel.AdjustNotificationButtons

Module

fPtSel

Last Modified

7/15/2014 3:26:38 PM

Comments

Reposition buttons after resizing eliminate overlap.

Visibility

Private

Owner

TfrmPtSel

Declaration

procedure AdjustNotificationButtons;

Called-By Hierarchy


              TfrmPtSel.AdjustNotificationButtons
                       TfrmPtSel.AdjustFormSize┤ 
                                SelectPatient┘ │ 
                 TfrmFrame.mnuFileOpenClick┘   │ 
                     TfrmFrame.UMInitiate┤     │ 
               TfrmFrame.mnuFileNextClick┤     │ 
          TfrmFrame.mnuFileOpenClick...┤ │     │ 
      TfrmFrame.mnuFileNotifRemoveClick┤ │     │ 
              TfrmFrame.NextButtonClick┘ │     │ 
            TfrmFrame.SetUpNextButton┘   │     │ 
      TfrmFrame.mnuFileOpenClick...┤     │     │ 
               TfrmFrame.FormResize┘     │     │ 
             TfrmFrame.ChangeFont┘       │     │ 
     TfrmFrame.LoadSizesForUser┤         │     │ 
TfrmFrame.LoadUserPreferences┘ │         │     │ 
       TfrmFrame.UMInitiate┘   │         │     │ 
     TfrmFrame.mnuFontSizeClick┘         │     │ 
            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┘       │ 
                           TfrmPtSel.FormResize┘ 

Called-By

Name Declaration Comments
TfrmPtSel.AdjustFormSize procedure AdjustFormSize(ShowNotif: Boolean; FontSize: Integer); -
TfrmPtSel.FormResize procedure FormResize(Sender: TObject); -


Source

1306  procedure TfrmPtSel.AdjustNotificationButtons;
1307  const
1308    Gap = 10; BigGap = 40;
1309   // reposition buttons after resizing eliminate overlap.
1310  begin
1311   if FNotificationBtnsAdjusted then
1312   begin
1313     cmdProcessAll.Left := (cmdProcessInfo.Left + cmdProcessInfo.Width + Gap);
1314     cmdProcess.Left    := (cmdProcessAll.Left + cmdProcessAll.Width + Gap);
1315     cmdForward.Left    := (cmdProcess.Left + cmdProcess.Width + Gap);
1316     cmdComments.Left   := (cmdForward.Left + cmdForward.Width + Gap);
1317     cmdRemove.Left     := (cmdComments.Left + cmdComments.Width + BigGap);
1318   end;
1319  end;