source: cprs/branches/tmg-cprs/CPRS-Chart/Vitals/mVitPulse.pas@ 1742

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

Initial upload of TMG-CPRS 1.0.26.69

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