source: cprs/branches/tmg-cprs/CPRS-Chart/Vitals/mVitHeight.pas@ 1802

Last change on this file since 1802 was 453, checked in by Kevin Toppenberg, 16 years ago

Initial upload of TMG-CPRS 1.0.26.69

File size: 1.1 KB
RevLine 
[453]1//kt -- Modified with SourceScanner on 8/8/2007
2unit mVitHeight;
3
4interface
5
6uses
7 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
8 mVitBase, StdCtrls, Buttons, ComCtrls, DKLang;
9
10type
11 TfraVitHeight = class(TfraVitBase)
12 edtHtIn: TEdit;
13 lblIn: TLabel;
14 udHeight: TUpDown;
15 edtHtCm: TEdit;
16 Label1: TLabel;
17 private
18 { Private declarations }
19 public
20 procedure VitalsMetricChanged; override;
21 function GetVitalInfo: TVitInfo; override;
22 end;
23
24var
25 fraVitHeight: TfraVitHeight;
26
27implementation
28
29uses uVitals, rVitals;
30
31{$R *.DFM}
32
33{ TfraVitHeight }
34
35function TfraVitHeight.GetVitalInfo: TVitInfo;
36begin
37 Result.VType := vtHeight;
38 Result.VValue := edtHtIn.Text;
39end;
40
41procedure TfraVitHeight.VitalsMetricChanged;
42begin
43 inherited;
44 edtHtCm.Color := VitEnabledColor[uVitalsMetric];
45 edtHtCm.Enabled := uVitalsMetric;
46 edtHtCm.TabStop := uVitalsMetric;
47 edtHtIn.Color := VitEnabledColor[not uVitalsMetric];
48 edtHtIn.Enabled := not uVitalsMetric;
49 edtHtIn.TabStop := not uVitalsMetric;
50end;
51
52end.
Note: See TracBrowser for help on using the repository browser.