Procedure

TfrmVit.cboTempExit

Module

fvit

Last Modified

7/15/2014 3:26:40 PM

Visibility

Public/Published

Owner

TfrmVit

Declaration

procedure cboTempExit(Sender: TObject);

Calls Hierarchy


TfrmVit.cboTempExit
 └VitalInvalid
   ├VerifyVital
   ├IsNumericWeight
   └VitalErrorText

Calls

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


Source

383   procedure TfrmVit.cboTempExit(Sender: TObject);
384   begin
385     inherited;
386     if(ActiveControl <> txtMeasTemp) then
387     begin
388       if VitalInvalid(txtMeasTemp, cboTemp) then
389         txtMeasTemp.SetFocus;
390     end;
391   end;