source: cprs/branches/tmg-cprs/CPRS-Chart/Vitals/mVitBP.pas@ 1802

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

Initial upload of TMG-CPRS 1.0.26.69

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