source: cprs/branches/tmg-cprs/CPRS-Chart/Vitals/mVitCirGirth.pas@ 1742

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