source: cprs/branches/foia-cprs/CPRS-Chart/Vitals/mVitTemp.pas@ 594

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

Adding foia-cprs branch

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