source: cprs/branches/foia-cprs/CPRS-Chart/Vitals/fVitalsDate.pas@ 1742

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

Adding foia-cprs branch

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