source: cprs/branches/foia-cprs/CPRS-Chart/Vitals/mVitPO2.pas@ 1376

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

Adding foia-cprs branch

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