source: cprs/branches/tmg-cprs/CPRS-Chart/Vitals/mVitMetric.pas@ 1593

Last change on this file since 1593 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 mVitMetric;
3
4interface
5
6uses
7 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
8 StdCtrls, ExtCtrls, DKLang;
9
10type
11 TfraVitMetric = class(TFrame)
12 rgMetric: TRadioGroup;
13 DKLanguageController1: TDKLanguageController;
14 procedure rgMetricClick(Sender: TObject);
15 private
16 FChanging: boolean;
17 public
18 constructor Create(AOwner: TComponent); override;
19 procedure VitalsMetricChanged;
20 end;
21
22implementation
23
24uses rVitals, uVitals;
25
26{$R *.DFM}
27
28{ TfraVitMetric }
29
30constructor TfraVitMetric.Create(AOwner: TComponent);
31begin
32 inherited;
33 VitalsMetricChanged;
34 VitalsFrameCreated(Self);
35end;
36
37procedure TfraVitMetric.rgMetricClick(Sender: TObject);
38begin
39 if FChanging then exit;
40 SetVitalsMetric(rgMetric.ItemIndex = 1);
41end;
42
43procedure TfraVitMetric.VitalsMetricChanged;
44begin
45 FChanging := TRUE;
46 try
47 if uVitalsMetric then
48 rgMetric.ItemIndex := 1
49 else
50 rgMetric.ItemIndex := 0;
51 finally
52 FCHanging := FALSE;
53 end;
54end;
55
56end.
Note: See TracBrowser for help on using the repository browser.