source: cprs/branches/tmg-cprs/CPRS-Chart/Orders/fODTest.pas@ 1742

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

Initial upload of TMG-CPRS 1.0.26.69

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