source: cprs/branches/foia-cprs/CPRS-Chart/Vitals/mVitCVP.pas@ 1806

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

Adding foia-cprs branch

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