source: cprs/trunk/CPRS-Chart/fRemVisitInfo.pas@ 836

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

Upgrading to version 27

File size: 944 bytes
RevLine 
[456]1unit fRemVisitInfo;
2
3interface
4
5uses
6 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
[830]7 StdCtrls, mVisitRelated, ORDtTm,fBase508Form, VA508AccessibilityManager;
[456]8
9type
[830]10 TfrmRemVisitInfo = class(TfrmBase508Form)
[456]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.