source: cprs/branches/foia-cprs/CPRS-Chart/Orders/fODTest.pas@ 1035

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

Adding foia-cprs branch

File size: 1.2 KB
RevLine 
[459]1unit fODTest;
2
3interface
4
5uses
6 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
7 fODBase, ComCtrls, ExtCtrls, StdCtrls, ORCtrls, Mask, RZDebug;
8
9type
10 TfrmODTest = class(TfrmODBase)
11 lblMedication: TLabel;
12 cboMedAlt: TORComboBox;
13 cboMedication: TORComboBox;
14 lblDosage: TLabel;
15 cboInstructions: TORComboBox;
16 lblRoute: TLabel;
17 cboRoute: TORComboBox;
18 lblSchedule: TLabel;
19 cboSchedule: TORComboBox;
20 lblQuantity: TLabel;
21 txtQuantity: TEdit;
22 lblRefills: TLabel;
23 txtRefills: TMaskEdit;
24 spnRefills: TUpDown;
25 lblPickup: TLabel;
26 cboPickup: TORComboBox;
27 lblSC: TLabel;
28 cboSC: TORComboBox;
29 Label1: TLabel;
30 cboPriority: TORComboBox;
31 Label2: TLabel;
32 memComments: TMemo;
33 Timer1: TTimer;
34 procedure Timer1Timer(Sender: TObject);
35 private
36 { Private declarations }
37 public
38 { Public declarations }
39 end;
40
41var
42 frmODTest: TfrmODTest;
43
44implementation
45
46{$R *.DFM}
47
48procedure TfrmODTest.Timer1Timer(Sender: TObject);
49var
50 AControl: TControl;
51begin
52 inherited;
53 AControl := GetCaptureControl;
54 if AControl <> nil then Writeln(AControl.Name) else Writeln('nil');
55end;
56
57end.
Note: See TracBrowser for help on using the repository browser.