source: cprs/branches/tmg-cprs/CPRS-Chart/Vitals/mVitPO2.pas@ 973

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

Initial upload of TMG-CPRS 1.0.26.69

File size: 666 bytes
Line 
1//kt -- Modified with SourceScanner on 8/8/2007
2unit mVitPO2;
3
4interface
5
6uses
7 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
8 mVitBase, StdCtrls, Buttons, ORCtrls, ComCtrls, DKLang;
9
10type
11 TfraVitPO2 = class(TfraVitBase)
12 UpDown1: TUpDown;
13 lblPercent: TLabel;
14 edtPO2: TEdit;
15 private
16 { Private declarations }
17 public
18 function GetVitalInfo: TVitInfo; override;
19 end;
20
21var
22 fraVitPO2: TfraVitPO2;
23
24implementation
25
26uses uVitals;
27
28{$R *.DFM}
29
30{ TfraVitPO2 }
31
32function TfraVitPO2.GetVitalInfo: TVitInfo;
33begin
34 Result.VType := vtPO2;
35 Result.VValue := edtPO2.Text;
36end;
37
38end.
Note: See TracBrowser for help on using the repository browser.