Procedure

TfrmPtSel.AdjustButtonSize

Module

fPtSel

Last Modified

7/15/2014 3:26:38 PM

Visibility

Private

Owner

TfrmPtSel

Declaration

procedure AdjustButtonSize(pButton:TButton);

Called-By Hierarchy


                       TfrmPtSel.AdjustButtonSize
                       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

1291  procedure TfrmPtSel.AdjustButtonSize(pButton:TButton);
1292  var
1293  thisButton: TButton;
1294  const Gap = 5;
1295  begin
1296      thisButton := pButton;
1297      if thisButton.Width < frmFrame.Canvas.TextWidth(thisButton.Caption) then      //CQ2737  GE
1298      begin
1299         FNotificationBtnsAdjusted := (thisButton.Width < frmFrame.Canvas.TextWidth(thisButton.Caption));
1300         thisButton.Width := (frmFrame.Canvas.TextWidth(thisButton.Caption) + Gap+Gap);    //CQ2737  GE
1301      end;
1302      if thisButton.Height < frmFrame.Canvas.TextHeight(thisButton.Caption) then    //CQ2737  GE
1303         thisButton.Height := (frmFrame.Canvas.TextHeight(thisButton.Caption) + Gap);   //CQ2737  GE
1304  end;