source: cprs/branches/tmg-cprs/CPRS-Chart/Vitals/fVitalsDate.pas@ 973

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

Initial upload of TMG-CPRS 1.0.26.69

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