source: cprs/branches/foia-cprs/CPRS-Chart/Vitals/mVitBase.pas@ 1742

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

Adding foia-cprs branch

File size: 1.1 KB
RevLine 
[459]1unit mVitBase;
2
3interface
4
5uses
6 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
7 StdCtrls, Buttons, uVitals;
8
9type
10 TVitInfo = record
11 VType: TVitalType;
12 VValue: string;
13 end;
14
15 TfraVitBase = class(TFrame)
16 lblVitalType: TLabel;
17 btnQuals: TBitBtn;
18 private
19 { Private declarations }
20 public
21 constructor Create(AOwner: TComponent); override;
22 procedure VitalsMetricChanged; virtual;
23 procedure VitalsCVPUnitsChanged; virtual;
24 function GetVitalInfo: TVitInfo; virtual;
25 end;
26
27var
28 VitEnabledColor: array[boolean] of TColor = (clBtnFace, clWindow);
29
30implementation
31
32{$R *.DFM}
33
34{ TFrame1 }
35
36constructor TfraVitBase.Create(AOwner: TComponent);
37begin
38 inherited;
39 VitalsFrameCreated(Self);
40 VitalsMetricChanged;
41 VitalsCVPUnitsChanged;
42end;
43
44function TfraVitBase.GetVitalInfo: TVitInfo;
45begin
46 Result.VType := vtUnknown;
47 Result.VValue := '';
48end;
49
50procedure TfraVitBase.VitalsCVPUnitsChanged;
51begin
52end;
53
54procedure TfraVitBase.VitalsMetricChanged;
55begin
56end;
57
58end.
Note: See TracBrowser for help on using the repository browser.