source: cprs/branches/HealthSevak-CPRS/CPRS-Chart/fRemVisitInfo.pas@ 1706

Last change on this file since 1706 was 830, checked in by Kevin Toppenberg, 14 years ago

Upgrading to version 27

File size: 944 bytes
Line 
1unit fRemVisitInfo;
2
3interface
4
5uses
6 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
7 StdCtrls, mVisitRelated, ORDtTm,fBase508Form, VA508AccessibilityManager;
8
9type
10 TfrmRemVisitInfo = class(TfrmBase508Form)
11 fraVisitRelated: TfraVisitRelated;
12 btnOK: TButton;
13 btnCancel: TButton;
14 dteVitals: TORDateBox;
15 lblVital: TLabel;
16 btnNow: TButton;
17 procedure btnNowClick(Sender: TObject);
18 procedure FormCreate(Sender: TObject);
19 private
20 { Private declarations }
21 public
22 { Public declarations }
23 end;
24
25implementation
26
27{$R *.DFM}
28
29uses
30 ORFn;
31
32procedure TfrmRemVisitInfo.btnNowClick(Sender: TObject);
33begin
34 dteVitals.Text := 'NOW';
35end;
36
37procedure TfrmRemVisitInfo.FormCreate(Sender: TObject);
38begin
39 ResizeAnchoredFormToFont(self);
40 btnOK.Top := fraVisitRelated.Top + fraVisitRelated.Height;
41 btnCancel.Top := btnOK.Top;
42end;
43
44end.
Note: See TracBrowser for help on using the repository browser.