Procedure

TfrmOptionsDays.btnLabDefaultsClick

Module

fOptionsDays

Last Modified

7/15/2014 3:26:40 PM

Visibility

Public/Published

Owner

TfrmOptionsDays

Declaration

procedure btnLabDefaultsClick(Sender: TObject);

Calls Hierarchy


TfrmOptionsDays.btnLabDefaultsClick
 ├TfrmOptionsDays.spnLabInpatientClick
 │ └TfrmOptionsDays.AdjustLabLabel
 └TfrmOptionsDays.spnLabOutpatientClick
   └TfrmOptionsDays.AdjustLabLabel

Calls

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


Source

265   procedure TfrmOptionsDays.btnLabDefaultsClick(Sender: TObject);
266   begin
267     txtLabInpatient.Text := inttostr(spnLabInpatient.Tag);
268     spnLabInpatientClick(self, btNext);
269     txtLabOutpatient.Text := inttostr(spnLabOutpatient.Tag);
270     spnLabOutpatientClick(self, btNext);
271     btnLabDefaults.Tag := 1;
272   end;