Procedure

TfrmVit.cboWeightExit

Module

fvit

Last Modified

7/15/2014 3:26:40 PM

Visibility

Public/Published

Owner

TfrmVit

Declaration

procedure cboWeightExit(Sender: TObject);

Calls Hierarchy


TfrmVit.cboWeightExit
 └VitalInvalid
   ├VerifyVital
   ├IsNumericWeight
   └VitalErrorText

Calls

Name Declaration Comments
VitalInvalid function VitalInvalid(VitalControl: TControl; UnitsControl: TControl = nil; OverrideValue: string = NoVitalOverrideValue): boolean; -


Source

417   procedure TfrmVit.cboWeightExit(Sender: TObject);
418   begin
419     inherited;
420     if(ActiveControl <> txtMeasWt) then
421     begin
422       if VitalInvalid(txtMeasWt, cboWeight) then
423         txtMeasWt.SetFocus;
424     end;
425   end;