source: cprs/branches/foia-cprs/CPRS-Chart/Vitals/mVitHeight.pas@ 1806

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

Adding foia-cprs branch

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