Procedure

TfrmLabs.AlignList

Module

fLabs

Last Modified

7/15/2014 3:26:38 PM

Visibility

Private

Owner

TfrmLabs

Declaration

procedure AlignList;

Called-By Hierarchy


                                  TfrmLabs.AlignList
                               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┘           

Called-By

Name Declaration Comments
TfrmLabs.FormResize procedure FormResize(Sender: TObject); -


Source

918   procedure TfrmLabs.AlignList;
919   begin
920     lblReports.Top := 0;
921     lstDates.Height := pnlLeft.Height div 3 - (lblDates.Height div 2);
922     lstDates.Top := pnlLeft.Height - lstDates.Height;
923     lblDates.Top := lstDates.Top - lblDates.Height;
924     lstQualifier.Height := pnlLeft.Height div 3 - (lblQualifier.Height div 2);
925     lstQualifier.Top := pnlLeft.Height - lstQualifier.Height;
926     lblQualifier.Top := lstQualifier.Top - lblQualifier.Height;
927     pnlOtherTests.Top := lblDates.Top - pnlOtherTests.Height;
928     lstHeaders.Height := pnlLeft.Height div 3 - (lblHeaders.Height * 3);
929     lstHeaders.Top := lblDates.Top - lstHeaders.Height;
930     lblHeaders.Top := lstHeaders.Top - lblHeaders.Height;
931     lstDates.Repaint;
932     lstHeaders.Repaint;
933     lstQualifier.Repaint;
934   end;