source: cprs/branches/tmg-cprs/CPRS-Chart/Vitals/mVitCVP.pas@ 1800

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

Initial upload of TMG-CPRS 1.0.26.69

File size: 1.4 KB
RevLine 
[453]1//kt -- Modified with SourceScanner on 8/8/2007
2unit mVitCVP;
3
4interface
5
6uses
7 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
8 mVitBase, ComCtrls, StdCtrls, Buttons, ORCtrls, DKLang;
9
10type
11 TfraVitCVP = class(TfraVitBase)
12 edtCVPcm: TEdit;
13 UpDown1: TUpDown;
14 lblMm: TLabel;
15 edtCVPmm: TEdit;
16 lblCm: TLabel;
17 cbcmH2O: TORCheckBox;
18 procedure cbcmH2OClick(Sender: TObject);
19 private
20 FChanging: boolean;
21 public
22 function GetVitalInfo: TVitInfo; override;
23 procedure VitalsCVPUnitsChanged; override;
24 end;
25
26var
27 fraVitCVP: TfraVitCVP;
28
29implementation
30
31uses uVitals, rVitals;
32
33{$R *.DFM}
34
35{ TfraVitCVP }
36
37function TfraVitCVP.GetVitalInfo: TVitInfo;
38begin
39 Result.VType := vtCVP;
40 Result.VValue := edtCVPcm.Text;
41end;
42
43procedure TfraVitCVP.VitalsCVPUnitsChanged;
44begin
45 inherited;
46 edtCVPmm.Color := VitEnabledColor[uVitCVPmmHg];
47 edtCVPmm.Enabled := uVitCVPmmHg;
48 edtCVPmm.TabStop := uVitCVPmmHg;
49 edtCVPcm.Color := VitEnabledColor[not uVitCVPmmHg];
50 edtCVPcm.Enabled := not uVitCVPmmHg;
51 edtCVPcm.TabStop := not uVitCVPmmHg;
52 FChanging := TRUE;
53 try
54 cbcmH2O.Checked := not uVitCVPmmHg;
55 finally
56 FChanging := FALSE;
57 end;
58end;
59
60procedure TfraVitCVP.cbcmH2OClick(Sender: TObject);
61begin
62 inherited;
63 if FChanging then exit;
64 SetVitCVPmmHg(not cbcmH2O.Checked);
65end;
66
67end.
Note: See TracBrowser for help on using the repository browser.