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