1 | inherited frmPrintLocation: TfrmPrintLocation
|
---|
2 | Left = 293
|
---|
3 | Top = 250
|
---|
4 | Width = 450
|
---|
5 | Height = 472
|
---|
6 | AutoScroll = True
|
---|
7 | BorderIcons = []
|
---|
8 | Caption = 'Order Location'
|
---|
9 | Constraints.MinWidth = 440
|
---|
10 | OldCreateOrder = False
|
---|
11 | Position = poMainFormCenter
|
---|
12 | OnClose = FormClose
|
---|
13 | ExplicitWidth = 450
|
---|
14 | ExplicitHeight = 472
|
---|
15 | DesignSize = (
|
---|
16 | 442
|
---|
17 | 445)
|
---|
18 | PixelsPerInch = 96
|
---|
19 | TextHeight = 13
|
---|
20 | object lblEncounter: TLabel [0]
|
---|
21 | Left = 0
|
---|
22 | Top = 379
|
---|
23 | Width = 280
|
---|
24 | Height = 13
|
---|
25 | Caption = 'Where would you like to continue processing patient data? '
|
---|
26 | end
|
---|
27 | object pnlTop: TPanel [1]
|
---|
28 | Left = 0
|
---|
29 | Top = 0
|
---|
30 | Width = 442
|
---|
31 | Height = 153
|
---|
32 | Anchors = [akLeft, akTop, akRight]
|
---|
33 | BevelOuter = bvNone
|
---|
34 | TabOrder = 0
|
---|
35 | object lblText: TLabel
|
---|
36 | Left = 8
|
---|
37 | Top = 16
|
---|
38 | Width = 3
|
---|
39 | Height = 13
|
---|
40 | end
|
---|
41 | object orpnlTopBottom: TORAutoPanel
|
---|
42 | Left = 0
|
---|
43 | Top = 112
|
---|
44 | Width = 442
|
---|
45 | Height = 41
|
---|
46 | Align = alBottom
|
---|
47 | BevelOuter = bvNone
|
---|
48 | TabOrder = 0
|
---|
49 | object btnClinic: TButton
|
---|
50 | Left = 145
|
---|
51 | Top = 8
|
---|
52 | Width = 75
|
---|
53 | Height = 25
|
---|
54 | Caption = 'All Clinic'
|
---|
55 | TabOrder = 0
|
---|
56 | OnClick = btnClinicClick
|
---|
57 | end
|
---|
58 | object btnWard: TButton
|
---|
59 | Left = 230
|
---|
60 | Top = 8
|
---|
61 | Width = 75
|
---|
62 | Height = 25
|
---|
63 | Caption = 'All Ward'
|
---|
64 | TabOrder = 1
|
---|
65 | OnClick = btnWardClick
|
---|
66 | end
|
---|
67 | end
|
---|
68 | end
|
---|
69 | object pnlBottom: TORAutoPanel [2]
|
---|
70 | Left = 0
|
---|
71 | Top = 159
|
---|
72 | Width = 442
|
---|
73 | Height = 210
|
---|
74 | TabOrder = 1
|
---|
75 | object orderGrid: TStringGrid
|
---|
76 | Left = 1
|
---|
77 | Top = 1
|
---|
78 | Width = 440
|
---|
79 | Height = 208
|
---|
80 | Align = alClient
|
---|
81 | ColCount = 3
|
---|
82 | Constraints.MinWidth = 440
|
---|
83 | DefaultRowHeight = 30
|
---|
84 | Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goRowSizing]
|
---|
85 | ParentShowHint = False
|
---|
86 | ShowHint = True
|
---|
87 | TabOrder = 2
|
---|
88 | OnDrawCell = OrderGridDrawCell
|
---|
89 | OnKeyPress = orderGridKeyPress
|
---|
90 | OnMouseDown = orderGridMouseDown
|
---|
91 | end
|
---|
92 | object pnlOrder: TPanel
|
---|
93 | Left = 264
|
---|
94 | Top = 56
|
---|
95 | Width = 97
|
---|
96 | Height = 25
|
---|
97 | TabOrder = 0
|
---|
98 | Visible = False
|
---|
99 | end
|
---|
100 | object cbolocation: TORComboBox
|
---|
101 | Left = 240
|
---|
102 | Top = 104
|
---|
103 | Width = 121
|
---|
104 | Height = 21
|
---|
105 | Style = orcsDropDown
|
---|
106 | AutoSelect = True
|
---|
107 | Color = clWindow
|
---|
108 | DropDownCount = 8
|
---|
109 | ItemHeight = 13
|
---|
110 | ItemTipColor = clWindow
|
---|
111 | ItemTipEnable = True
|
---|
112 | ListItemsOnly = False
|
---|
113 | LongList = False
|
---|
114 | LookupPiece = 1
|
---|
115 | MaxLength = 0
|
---|
116 | Sorted = False
|
---|
117 | SynonymChars = '<>'
|
---|
118 | TabOrder = 1
|
---|
119 | Visible = False
|
---|
120 | OnChange = cbolocationChange
|
---|
121 | OnExit = cbolocationExit
|
---|
122 | CharsNeedMatch = 1
|
---|
123 | UniqueAutoComplete = True
|
---|
124 | end
|
---|
125 | end
|
---|
126 | object ORpnlBottom: TORAutoPanel [3]
|
---|
127 | Left = 0
|
---|
128 | Top = 404
|
---|
129 | Width = 442
|
---|
130 | Height = 41
|
---|
131 | BevelEdges = []
|
---|
132 | BevelOuter = bvNone
|
---|
133 | TabOrder = 3
|
---|
134 | object btnOK: TButton
|
---|
135 | Left = 187
|
---|
136 | Top = 3
|
---|
137 | Width = 75
|
---|
138 | Height = 25
|
---|
139 | Caption = 'OK'
|
---|
140 | TabOrder = 0
|
---|
141 | OnClick = btnOKClick
|
---|
142 | end
|
---|
143 | end
|
---|
144 | object cboEncLoc: TComboBox [4]
|
---|
145 | Left = 284
|
---|
146 | Top = 375
|
---|
147 | Width = 104
|
---|
148 | Height = 21
|
---|
149 | Anchors = [akLeft, akTop, akRight, akBottom]
|
---|
150 | ItemHeight = 0
|
---|
151 | TabOrder = 2
|
---|
152 | end
|
---|
153 | inherited amgrMain: TVA508AccessibilityManager
|
---|
154 | Data = (
|
---|
155 | (
|
---|
156 | 'Component = pnlTop'
|
---|
157 | 'Status = stsDefault')
|
---|
158 | (
|
---|
159 | 'Component = orpnlTopBottom'
|
---|
160 | 'Status = stsDefault')
|
---|
161 | (
|
---|
162 | 'Component = btnClinic'
|
---|
163 | 'Status = stsDefault')
|
---|
164 | (
|
---|
165 | 'Component = btnWard'
|
---|
166 | 'Status = stsDefault')
|
---|
167 | (
|
---|
168 | 'Component = pnlBottom'
|
---|
169 | 'Status = stsDefault')
|
---|
170 | (
|
---|
171 | 'Component = orderGrid'
|
---|
172 | 'Status = stsDefault')
|
---|
173 | (
|
---|
174 | 'Component = pnlOrder'
|
---|
175 | 'Status = stsDefault')
|
---|
176 | (
|
---|
177 | 'Component = cbolocation'
|
---|
178 | 'Status = stsDefault')
|
---|
179 | (
|
---|
180 | 'Component = ORpnlBottom'
|
---|
181 | 'Status = stsDefault')
|
---|
182 | (
|
---|
183 | 'Component = btnOK'
|
---|
184 | 'Status = stsDefault')
|
---|
185 | (
|
---|
186 | 'Component = cboEncLoc'
|
---|
187 | 'Status = stsDefault')
|
---|
188 | (
|
---|
189 | 'Component = frmPrintLocation'
|
---|
190 | 'Status = stsDefault'))
|
---|
191 | end
|
---|
192 | end
|
---|