source: cprs/trunk/CPRS-Chart/Vitals/fVitalsDate.pas@ 1683

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

Upgrade to version 27

File size: 828 bytes
Line 
1unit fVitalsDate;
2
3interface
4
5uses
6 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
7 StdCtrls, ORDtTm, fBase508Form, VA508AccessibilityManager;
8
9type
10 TfrmVitalsDate = class(TfrmBase508Form)
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.