source: cprs/branches/tmg-cprs/CPRS-Chart/Vitals/mVitBase.pas@ 1806

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

Initial upload of TMG-CPRS 1.0.26.69

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