source: cprs/branches/foia-cprs/CPRS-Chart/Vitals/mVitCirGirth.pas@ 1376

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

Adding foia-cprs branch

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