source: cprs/branches/tmg-cprs/CPRS-Chart/fRemVisitInfo.pas@ 1593

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

Initial upload of TMG-CPRS 1.0.26.69

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