Procedure

TfrmLabs.FormResize

Module

fLabs

Last Modified

7/15/2014 3:26:38 PM

Visibility

Public/Published

Owner

TfrmLabs

Declaration

procedure FormResize(Sender: TObject);

Calls Hierarchy


TfrmLabs.FormResize
 └TfrmLabs.AlignList

Called-By Hierarchy


                               TfrmLabs.FormResize
                            TfrmLabs.SetFontSize┤ 
                          TfrmFrame.ChangeFont┘ │ 
                  TfrmFrame.LoadSizesForUser┤   │ 
             TfrmFrame.LoadUserPreferences┘ │   │ 
                    TfrmFrame.UMInitiate┘   │   │ 
                  TfrmFrame.mnuFontSizeClick┘   │ 
                   TfrmLabs.ProcessNotifications┤ 
                          TfrmLabs.DisplayPage┘ │ 
                         TfrmLabs.tvReportsClick┘ 
                          TfrmLabs.DisplayPage┤   
                         TfrmLabs.LoadTreeView┤   
                        TfrmLabs.DisplayPage┤ │   
      TfrmOptionsReportsCustom.btnApplyClick┘ │   
       TfrmOptionsReportsCustom.btnOKClick┘   │   
                   TfrmLabs.cmdOtherTestsClick┤   
                      TfrmLabs.chkMaxFreqClick┤   
              TfrmLabs.ProcessNotifications...┤   
                                     ..(rec)..┤   
                     TfrmLabs.tvReportsKeyDown┤   
               TfrmFrame.lstCIRNLocationsClick┘   
                         TfrmFrame.SetUpCIRN┘     
                    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.mnuFileOpenClick...┤         
        TfrmFrame.AllowCCOWContextChange┤         
         TfrmFrame.mnuFileNextClick...┤ │         
         TfrmFrame.mnuFileOpenClick...┤ │         
TfrmFrame.mnuFileResumeContextSetClick┘ │         
             TfrmFrame.UpdateCCOWContext┤         
         TfrmFrame.mnuFileOpenClick...┤ │         
       TfrmFrame.ctxContextorCommitted┤ │         
        TfrmFrame.StartCCOWContextor┘ │ │         
              TfrmFrame.FormCreate┘   │ │         
TfrmFrame.mnuFileResumeContextGetClick┘ │         
  TfrmFrame.mnuFileResumeContextSetClick┘         

Calls

Name Declaration Comments
TfrmLabs.AlignList procedure AlignList; -

Called-By

Name Declaration Comments
TfrmLabs.ProcessNotifications procedure ProcessNotifications; -
TfrmLabs.SetFontSize procedure SetFontSize(NewFontSize: Integer); override; -
TfrmLabs.tvReportsClick procedure tvReportsClick(Sender: TObject); -


Source

2382  procedure TfrmLabs.FormResize(Sender: TObject);
2383  
2384  begin
2385    inherited;
2386    AlignList;
2387    lblHeaders.Height := lblReports.Height;
2388    lblDates.Height := lblReports.Height;
2389    lblHeading.Height := lblReports.Height;
2390    pnlFooter.Height := lblReports.Height + 5;
2391    lblFooter.Height := lblReports.Height;
2392  end;