source: cprs/branches/tmg-cprs/CPRS-Chart/Vitals/mVitPain.pas@ 973

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

Initial upload of TMG-CPRS 1.0.26.69

File size: 625 bytes
Line 
1//kt -- Modified with SourceScanner on 8/8/2007
2unit mVitPain;
3
4interface
5
6uses
7 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
8 mVitBase, StdCtrls, Buttons, ORCtrls, DKLang;
9
10type
11 TfraVitPain = class(TfraVitBase)
12 cbxPain: TORComboBox;
13 private
14 { Private declarations }
15 public
16 function GetVitalInfo: TVitInfo; override;
17 end;
18
19var
20 fraVitPain: TfraVitPain;
21
22implementation
23
24uses uVitals;
25
26{$R *.DFM}
27
28{ TfraVitPain }
29
30function TfraVitPain.GetVitalInfo: TVitInfo;
31begin
32 Result.VType := vtPain;
33 Result.VValue := cbxPain.ItemID;
34end;
35
36end.
Note: See TracBrowser for help on using the repository browser.