Procedure

TfrmOptionsDays.AdjustLabLabel

Module

fOptionsDays

Last Modified

7/15/2014 3:26:40 PM

Visibility

Private

Owner

TfrmOptionsDays

Declaration

procedure AdjustLabLabel;

Called-By Hierarchy


            TfrmOptionsDays.AdjustLabLabel
    TfrmOptionsDays.spnLabInpatientClick┤ 
              TfrmOptionsDays.FormShow┤ │ 
   TfrmOptionsDays.btnLabDefaultsClick┤ │ 
 TfrmOptionsDays.txtLabInpatientChange┤ │ 
   TfrmOptionsDays.txtLabInpatientExit┘ │ 
   TfrmOptionsDays.spnLabOutpatientClick┘ 
              TfrmOptionsDays.FormShow┤   
   TfrmOptionsDays.btnLabDefaultsClick┤   
TfrmOptionsDays.txtLabOutpatientChange┤   
  TfrmOptionsDays.txtLabOutpatientExit┘   

Called-By

Name Declaration Comments
TfrmOptionsDays.spnLabInpatientClick procedure spnLabInpatientClick(Sender: TObject; Button: TUDBtnType); -
TfrmOptionsDays.spnLabOutpatientClick procedure spnLabOutpatientClick(Sender: TObject; Button: TUDBtnType); -


Source

295   procedure TfrmOptionsDays.AdjustLabLabel;
296   begin
297     lblLabValue.Text := 'Lab results will be displayed on the cover sheet '
298                          + 'back ' + txtLabInpatient.Text + ' days for inpatients and '
299                          + txtLabOutpatient.Text + ' days for outpatients.';
300   end;