source: cprs/trunk/CPRS-Chart/Vitals/mVitMetric.pas@ 798

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

Initial Upload of Official WV CPRS 1.0.26.76

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