Procedure

TfrmOptionsDays.AdjustVisitLabel

Module

fOptionsDays

Last Modified

7/15/2014 3:26:40 PM

Visibility

Private

Owner

TfrmOptionsDays

Declaration

procedure AdjustVisitLabel;

Called-By Hierarchy


         TfrmOptionsDays.AdjustVisitLabel
     TfrmOptionsDays.spnVisitStartClick┤ 
             TfrmOptionsDays.FormShow┤ │ 
TfrmOptionsDays.btnVisitDefaultsClick┤ │ 
    TfrmOptionsDays.txtVisitStartExit┘ │ 
      TfrmOptionsDays.spnVisitStopClick┤ 
             TfrmOptionsDays.FormShow┤ │ 
TfrmOptionsDays.btnVisitDefaultsClick┤ │ 
     TfrmOptionsDays.txtVisitStopExit┘ │ 
      TfrmOptionsDays.txtVisitStartExit┤ 
       TfrmOptionsDays.txtVisitStopExit┘ 

Called-By

Name Declaration Comments
TfrmOptionsDays.spnVisitStartClick procedure spnVisitStartClick(Sender: TObject; Button: TUDBtnType); -
TfrmOptionsDays.spnVisitStopClick procedure spnVisitStopClick(Sender: TObject; Button: TUDBtnType); -
TfrmOptionsDays.txtVisitStartExit procedure txtVisitStartExit(Sender: TObject); -
TfrmOptionsDays.txtVisitStopExit procedure txtVisitStopExit(Sender: TObject); -


Source

283   procedure TfrmOptionsDays.AdjustVisitLabel;
284   var
285     start, stop: string;
286   begin
287     start := txtVisitStart.Text;
288     stop := txtVisitStop.Text;
289     if start <> 'Today' then start := start + ' days';
290     if stop <> 'Today' then stop := stop + ' days';
291     lblVisitValue.Text := 'Appointments and visits will be displayed on the cover sheet '
292                            + 'from ' + start + ' to ' + stop + '.'
293   end;