source: cprs/branches/foia-cprs/CPRS-Chart/Vitals/mVitBP.pas@ 1643

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

Adding foia-cprs branch

File size: 740 bytes
RevLine 
[459]1unit mVitBP;
2
3interface
4
5uses
6 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
7 mVitBase, StdCtrls, Buttons, ComCtrls;
8
9type
10 TfraVitPB = class(TfraVitBase)
11 udSystolic: TUpDown;
12 edtSystolic: TEdit;
13 udDiastolic: TUpDown;
14 edtDiastolic: TEdit;
15 lblSlash: TLabel;
16 private
17 { Private declarations }
18 public
19 function GetVitalInfo: TVitInfo; override;
20 end;
21
22var
23 fraVitPB: TfraVitPB;
24
25implementation
26
27uses uVitals;
28
29{$R *.DFM}
30
31{ TfraVitPB }
32
33function TfraVitPB.GetVitalInfo: TVitInfo;
34begin
35 Result.VType := vtBP;
36 Result.VValue := edtSystolic.Text + '/' + edtDiastolic.Text;
37 if Result.VValue = '/' then
38 Result.VValue := '';
39end;
40
41end.
Note: See TracBrowser for help on using the repository browser.