source: cprs/branches/tmg-cprs/CPRS-Chart/Vitals/mVitTemp.pas@ 1240

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

Initial upload of TMG-CPRS 1.0.26.69

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