source: cprs/branches/foia-cprs/CPRS-Chart/Vitals/mVitPulse.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: 599 bytes
RevLine 
[459]1unit mVitPulse;
2
3interface
4
5uses
6 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
7 mVitBase, StdCtrls, Buttons, ComCtrls, Spin;
8
9type
10 TfraVitPulse = class(TfraVitBase)
11 edtPulse: TEdit;
12 UpDown1: TUpDown;
13 private
14 { Private declarations }
15 public
16 function GetVitalInfo: TVitInfo; override;
17 end;
18
19var
20 fraVitPulse: TfraVitPulse;
21
22implementation
23
24uses uVitals;
25
26{$R *.DFM}
27
28{ TfraVitPulse }
29
30function TfraVitPulse.GetVitalInfo: TVitInfo;
31begin
32 Result.VType := vtPulse;
33 Result.VValue := edtPulse.Text;
34end;
35
36end.
Note: See TracBrowser for help on using the repository browser.