source: cprs/branches/tmg-cprs/CPRS-Chart/Vitals/mVitWeight.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 mVitWeight;
3
4interface
5
6uses
7 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
8 mVitBase, StdCtrls, Buttons, ComCtrls, DKLang;
9
10type
11 TfraVitWeight = class(TfraVitBase)
12 edtWtLbs: TEdit;
13 lblLbs: TLabel;
14 udWeight: TUpDown;
15 edtWtKg: 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 fraVitWeight: TfraVitWeight;
26
27implementation
28
29uses uVitals, rVitals;
30
31{$R *.DFM}
32
33{ TfraVitWeight }
34
35function TfraVitWeight.GetVitalInfo: TVitInfo;
36begin
37 Result.VType := vtWeight;
38 Result.VValue := edtWtLbs.Text;
39end;
40
41procedure TfraVitWeight.VitalsMetricChanged;
42begin
43 inherited;
44 edtWtKg.Color := VitEnabledColor[uVitalsMetric];
45 edtWtKg.Enabled := uVitalsMetric;
46 edtWtKg.TabStop := uVitalsMetric;
47 edtWtLbs.Color := VitEnabledColor[not uVitalsMetric];
48 edtWtLbs.Enabled := not uVitalsMetric;
49 edtWtLbs.TabStop := not uVitalsMetric;
50end;
51
52end.
Note: See TracBrowser for help on using the repository browser.