Procedure

TfrmODLab.DisableCommentPanels

Module

fODLab

Last Modified

7/15/2014 3:26:42 PM

Visibility

Public/Published

Owner

TfrmODLab

Declaration

procedure DisableCommentPanels;

Called-By Hierarchy


     TfrmODLab.DisableCommentPanels
             TfrmODLab.InitDialog┤ 
           TfrmODLab.FormCreate┘ │ 
     TfrmODLab.cboAvailTestSelect┤ 
          TfrmODLab.SetupDialog┤ │ 
     TfrmODLab.cboAvailTestExit┘ │ 
      TfrmODLab.cboCollSampChange┤ 
          TfrmODLab.SetupDialog┤ │ 
TfrmODLab.cboAvailTestSelect...┘ │ 
    TfrmODLab.LoadRequiredComment┘ 
TfrmODLab.cboAvailTestSelect...┤   
 TfrmODLab.cboCollSampChange...┘   

Called-By

Name Declaration Comments
TfrmODLab.cboAvailTestSelect procedure cboAvailTestSelect(Sender: TObject); -
TfrmODLab.cboCollSampChange procedure cboCollSampChange(Sender: TObject); -
TfrmODLab.InitDialog procedure InitDialog; override; -
TfrmODLab.LoadRequiredComment procedure LoadRequiredComment(CmtType: integer); -


Source

1775  procedure TfrmODLab.DisableCommentPanels;
1776  begin
1777    pnlHide.BringToFront;
1778    lblReqComment.Visible := False;
1779    pnlAntiCoagulation.Visible := False;
1780    pnlOrderComment.Visible := False;
1781    pnlDoseDraw.Visible := False;
1782    pnlPeakTrough.Visible := False;
1783    pnlUrineVolume.Visible := False;
1784    lblAddlComment.Visible := False;
1785    txtAddlComment.Visible := False;
1786    //pnlTransfusion.Visible := False;
1787  end;