1 | inherited frmLabTestGroups: TfrmLabTestGroups
|
---|
2 | Left = 337
|
---|
3 | Top = 202
|
---|
4 | Caption = 'Select Lab Tests'
|
---|
5 | ClientHeight = 434
|
---|
6 | ClientWidth = 457
|
---|
7 | OldCreateOrder = True
|
---|
8 | Position = poScreenCenter
|
---|
9 | OnCreate = FormCreate
|
---|
10 | ExplicitWidth = 465
|
---|
11 | ExplicitHeight = 461
|
---|
12 | PixelsPerInch = 96
|
---|
13 | TextHeight = 13
|
---|
14 | object pnlLabTestGroups: TORAutoPanel [0]
|
---|
15 | Left = 0
|
---|
16 | Top = 0
|
---|
17 | Width = 457
|
---|
18 | Height = 434
|
---|
19 | Align = alClient
|
---|
20 | Caption = 'Specimen'
|
---|
21 | TabOrder = 0
|
---|
22 | object bvlTestGroups: TBevel
|
---|
23 | Left = 1
|
---|
24 | Top = 1
|
---|
25 | Width = 455
|
---|
26 | Height = 120
|
---|
27 | Align = alTop
|
---|
28 | end
|
---|
29 | object lblTests: TLabel
|
---|
30 | Left = 10
|
---|
31 | Top = 124
|
---|
32 | Width = 79
|
---|
33 | Height = 13
|
---|
34 | Caption = 'Laboratory Tests'
|
---|
35 | end
|
---|
36 | object lblList: TLabel
|
---|
37 | Left = 284
|
---|
38 | Top = 144
|
---|
39 | Width = 100
|
---|
40 | Height = 13
|
---|
41 | Caption = 'Tests to be displayed'
|
---|
42 | end
|
---|
43 | object lblSpecimen: TLabel
|
---|
44 | Left = 12
|
---|
45 | Top = 383
|
---|
46 | Width = 47
|
---|
47 | Height = 13
|
---|
48 | Caption = 'Specimen'
|
---|
49 | end
|
---|
50 | object lblTestGroups: TLabel
|
---|
51 | Left = 10
|
---|
52 | Top = 38
|
---|
53 | Width = 58
|
---|
54 | Height = 13
|
---|
55 | Caption = 'Test Groups'
|
---|
56 | end
|
---|
57 | object lblUsers: TLabel
|
---|
58 | Left = 164
|
---|
59 | Top = 4
|
---|
60 | Width = 159
|
---|
61 | Height = 13
|
---|
62 | Caption = 'Persons with defined Test Groups'
|
---|
63 | end
|
---|
64 | object lblOrder: TLabel
|
---|
65 | Left = 182
|
---|
66 | Top = 304
|
---|
67 | Width = 40
|
---|
68 | Height = 52
|
---|
69 | Caption = 'Arrange order of tests for display.'
|
---|
70 | WordWrap = True
|
---|
71 | end
|
---|
72 | object lblTestGroup: TLabel
|
---|
73 | Left = 181
|
---|
74 | Top = 198
|
---|
75 | Width = 91
|
---|
76 | Height = 39
|
---|
77 | Caption = 'To create a New Test Group, limit selection to 7 tests.'
|
---|
78 | WordWrap = True
|
---|
79 | end
|
---|
80 | object lblDefine: TVA508StaticText
|
---|
81 | Name = 'lblDefine'
|
---|
82 | Left = 352
|
---|
83 | Top = 8
|
---|
84 | Width = 94
|
---|
85 | Height = 15
|
---|
86 | Alignment = taLeftJustify
|
---|
87 | AutoSize = True
|
---|
88 | Caption = 'Define Test Groups'
|
---|
89 | TabOrder = 10
|
---|
90 | ShowAccelChar = True
|
---|
91 | end
|
---|
92 | object pnlUpButton: TKeyClickPanel
|
---|
93 | Left = 235
|
---|
94 | Top = 299
|
---|
95 | Width = 29
|
---|
96 | Height = 29
|
---|
97 | BevelOuter = bvNone
|
---|
98 | Constraints.MaxHeight = 29
|
---|
99 | Constraints.MaxWidth = 29
|
---|
100 | TabOrder = 5
|
---|
101 | TabStop = True
|
---|
102 | OnClick = cmdUpClick
|
---|
103 | OnEnter = pnlUpButtonEnter
|
---|
104 | OnExit = pnlUpButtonExit
|
---|
105 | OnResize = pnlUpButtonResize
|
---|
106 | object cmdUp: TSpeedButton
|
---|
107 | Left = 1
|
---|
108 | Top = 2
|
---|
109 | Width = 25
|
---|
110 | Height = 25
|
---|
111 | Caption = '^'
|
---|
112 | Enabled = False
|
---|
113 | OnClick = cmdUpClick
|
---|
114 | end
|
---|
115 | end
|
---|
116 | object pnlDownButton: TKeyClickPanel
|
---|
117 | Left = 235
|
---|
118 | Top = 331
|
---|
119 | Width = 29
|
---|
120 | Height = 29
|
---|
121 | BevelOuter = bvNone
|
---|
122 | Constraints.MaxHeight = 29
|
---|
123 | Constraints.MaxWidth = 29
|
---|
124 | TabOrder = 6
|
---|
125 | TabStop = True
|
---|
126 | OnClick = cmdDownClick
|
---|
127 | OnEnter = pnlDownButtonEnter
|
---|
128 | OnExit = pnlDownButtonExit
|
---|
129 | OnResize = pnlDownButtonResize
|
---|
130 | object cmdDown: TSpeedButton
|
---|
131 | Left = 1
|
---|
132 | Top = 2
|
---|
133 | Width = 25
|
---|
134 | Height = 25
|
---|
135 | Caption = 'v'
|
---|
136 | Enabled = False
|
---|
137 | OnClick = cmdDownClick
|
---|
138 | end
|
---|
139 | end
|
---|
140 | object cmdOK: TButton
|
---|
141 | Left = 277
|
---|
142 | Top = 398
|
---|
143 | Width = 72
|
---|
144 | Height = 21
|
---|
145 | Caption = 'OK'
|
---|
146 | TabOrder = 8
|
---|
147 | OnClick = cmdOKClick
|
---|
148 | end
|
---|
149 | object cmdCancel: TButton
|
---|
150 | Left = 368
|
---|
151 | Top = 398
|
---|
152 | Width = 72
|
---|
153 | Height = 21
|
---|
154 | Cancel = True
|
---|
155 | Caption = 'Cancel'
|
---|
156 | ModalResult = 2
|
---|
157 | TabOrder = 9
|
---|
158 | end
|
---|
159 | object cmdClear: TButton
|
---|
160 | Left = 189
|
---|
161 | Top = 244
|
---|
162 | Width = 72
|
---|
163 | Height = 21
|
---|
164 | Caption = 'Remove All'
|
---|
165 | Enabled = False
|
---|
166 | TabOrder = 3
|
---|
167 | OnClick = cmdClearClick
|
---|
168 | end
|
---|
169 | object cmdRemove: TButton
|
---|
170 | Left = 189
|
---|
171 | Top = 268
|
---|
172 | Width = 72
|
---|
173 | Height = 21
|
---|
174 | Caption = 'Remove One'
|
---|
175 | Enabled = False
|
---|
176 | TabOrder = 4
|
---|
177 | OnClick = cmdRemoveClick
|
---|
178 | end
|
---|
179 | object lstList: TORListBox
|
---|
180 | Left = 278
|
---|
181 | Top = 163
|
---|
182 | Width = 160
|
---|
183 | Height = 211
|
---|
184 | ItemHeight = 13
|
---|
185 | ParentShowHint = False
|
---|
186 | ShowHint = True
|
---|
187 | TabOrder = 7
|
---|
188 | OnClick = lstListClick
|
---|
189 | Caption = 'Tests to be displayed'
|
---|
190 | ItemTipColor = clWindow
|
---|
191 | LongList = False
|
---|
192 | Pieces = '2'
|
---|
193 | OnChange = lstListClick
|
---|
194 | end
|
---|
195 | object cboTests: TORComboBox
|
---|
196 | Left = 10
|
---|
197 | Top = 144
|
---|
198 | Width = 160
|
---|
199 | Height = 233
|
---|
200 | Style = orcsSimple
|
---|
201 | AutoSelect = True
|
---|
202 | Caption = 'Laboratory Tests'
|
---|
203 | Color = clWindow
|
---|
204 | DropDownCount = 8
|
---|
205 | ItemHeight = 13
|
---|
206 | ItemTipColor = clWindow
|
---|
207 | ItemTipEnable = True
|
---|
208 | ListItemsOnly = False
|
---|
209 | LongList = True
|
---|
210 | LookupPiece = 0
|
---|
211 | MaxLength = 0
|
---|
212 | ParentShowHint = False
|
---|
213 | Pieces = '2'
|
---|
214 | ShowHint = True
|
---|
215 | Sorted = False
|
---|
216 | SynonymChars = '<>'
|
---|
217 | TabOrder = 0
|
---|
218 | TabStop = True
|
---|
219 | OnChange = cboTestsChange
|
---|
220 | OnDblClick = cmdAddTestClick
|
---|
221 | OnEnter = cboTestsEnter
|
---|
222 | OnExit = cboTestsExit
|
---|
223 | OnNeedData = cboTestsNeedData
|
---|
224 | CharsNeedMatch = 1
|
---|
225 | end
|
---|
226 | object cboUsers: TORComboBox
|
---|
227 | Left = 164
|
---|
228 | Top = 23
|
---|
229 | Width = 165
|
---|
230 | Height = 21
|
---|
231 | Style = orcsDropDown
|
---|
232 | AutoSelect = True
|
---|
233 | Caption = 'Persons with defined Test Groups'
|
---|
234 | Color = clWindow
|
---|
235 | DropDownCount = 8
|
---|
236 | ItemHeight = 13
|
---|
237 | ItemTipColor = clWindow
|
---|
238 | ItemTipEnable = True
|
---|
239 | ListItemsOnly = False
|
---|
240 | LongList = True
|
---|
241 | LookupPiece = 0
|
---|
242 | MaxLength = 0
|
---|
243 | Pieces = '2'
|
---|
244 | Sorted = False
|
---|
245 | SynonymChars = '<>'
|
---|
246 | TabOrder = 11
|
---|
247 | OnClick = cboUsersClick
|
---|
248 | OnNeedData = cboUsersNeedData
|
---|
249 | CharsNeedMatch = 1
|
---|
250 | end
|
---|
251 | object lstTestGroups: TORListBox
|
---|
252 | Left = 10
|
---|
253 | Top = 56
|
---|
254 | Width = 319
|
---|
255 | Height = 57
|
---|
256 | ItemHeight = 13
|
---|
257 | ParentShowHint = False
|
---|
258 | ShowHint = True
|
---|
259 | TabOrder = 12
|
---|
260 | Caption = 'Test Groups'
|
---|
261 | ItemTipColor = clWindow
|
---|
262 | LongList = False
|
---|
263 | Pieces = '2'
|
---|
264 | OnChange = lstTestGroupsChange
|
---|
265 | end
|
---|
266 | object cmdReplace: TButton
|
---|
267 | Left = 368
|
---|
268 | Top = 60
|
---|
269 | Width = 72
|
---|
270 | Height = 21
|
---|
271 | Caption = 'Replace'
|
---|
272 | Enabled = False
|
---|
273 | TabOrder = 14
|
---|
274 | OnClick = cmdReplaceClick
|
---|
275 | end
|
---|
276 | object cboSpecimen: TORComboBox
|
---|
277 | Left = 12
|
---|
278 | Top = 402
|
---|
279 | Width = 160
|
---|
280 | Height = 21
|
---|
281 | Style = orcsDropDown
|
---|
282 | AutoSelect = True
|
---|
283 | Caption = 'Specimen'
|
---|
284 | Color = clWindow
|
---|
285 | DropDownCount = 8
|
---|
286 | ItemHeight = 13
|
---|
287 | ItemTipColor = clWindow
|
---|
288 | ItemTipEnable = True
|
---|
289 | ListItemsOnly = False
|
---|
290 | LongList = True
|
---|
291 | LookupPiece = 0
|
---|
292 | MaxLength = 0
|
---|
293 | ParentShowHint = False
|
---|
294 | Pieces = '2'
|
---|
295 | ShowHint = True
|
---|
296 | Sorted = False
|
---|
297 | SynonymChars = '<>'
|
---|
298 | TabOrder = 1
|
---|
299 | OnNeedData = cboSpecimenNeedData
|
---|
300 | CharsNeedMatch = 1
|
---|
301 | end
|
---|
302 | object cmdDelete: TButton
|
---|
303 | Left = 368
|
---|
304 | Top = 88
|
---|
305 | Width = 72
|
---|
306 | Height = 21
|
---|
307 | Caption = 'Delete'
|
---|
308 | Enabled = False
|
---|
309 | TabOrder = 15
|
---|
310 | OnClick = cmdDeleteClick
|
---|
311 | end
|
---|
312 | object cmdAdd: TButton
|
---|
313 | Left = 368
|
---|
314 | Top = 32
|
---|
315 | Width = 72
|
---|
316 | Height = 21
|
---|
317 | Caption = 'New'
|
---|
318 | Enabled = False
|
---|
319 | ParentShowHint = False
|
---|
320 | ShowHint = False
|
---|
321 | TabOrder = 13
|
---|
322 | OnClick = cmdAddClick
|
---|
323 | end
|
---|
324 | object cmdAddTest: TButton
|
---|
325 | Left = 189
|
---|
326 | Top = 144
|
---|
327 | Width = 72
|
---|
328 | Height = 21
|
---|
329 | Caption = 'Add'
|
---|
330 | Enabled = False
|
---|
331 | TabOrder = 2
|
---|
332 | OnClick = cmdAddTestClick
|
---|
333 | end
|
---|
334 | end
|
---|
335 | inherited amgrMain: TVA508AccessibilityManager
|
---|
336 | Data = (
|
---|
337 | (
|
---|
338 | 'Component = pnlLabTestGroups'
|
---|
339 | 'Status = stsDefault')
|
---|
340 | (
|
---|
341 | 'Component = pnlUpButton'
|
---|
342 | 'Text = Display selected test earlier'
|
---|
343 | 'Status = stsOK')
|
---|
344 | (
|
---|
345 | 'Component = pnlDownButton'
|
---|
346 | 'Text = Display selected test later'
|
---|
347 | 'Status = stsOK')
|
---|
348 | (
|
---|
349 | 'Component = cmdOK'
|
---|
350 | 'Status = stsDefault')
|
---|
351 | (
|
---|
352 | 'Component = cmdCancel'
|
---|
353 | 'Status = stsDefault')
|
---|
354 | (
|
---|
355 | 'Component = cmdClear'
|
---|
356 | 'Status = stsDefault')
|
---|
357 | (
|
---|
358 | 'Component = cmdRemove'
|
---|
359 | 'Status = stsDefault')
|
---|
360 | (
|
---|
361 | 'Component = lstList'
|
---|
362 | 'Status = stsDefault')
|
---|
363 | (
|
---|
364 | 'Component = cboTests'
|
---|
365 | 'Status = stsDefault')
|
---|
366 | (
|
---|
367 | 'Component = cboUsers'
|
---|
368 | 'Label = lblUsers'
|
---|
369 | 'Status = stsOK')
|
---|
370 | (
|
---|
371 | 'Component = lstTestGroups'
|
---|
372 | 'Label = lblTestGroups'
|
---|
373 | 'Status = stsOK')
|
---|
374 | (
|
---|
375 | 'Component = cmdReplace'
|
---|
376 | 'Text = Replace Test Group'
|
---|
377 | 'Status = stsOK')
|
---|
378 | (
|
---|
379 | 'Component = cboSpecimen'
|
---|
380 | 'Status = stsDefault')
|
---|
381 | (
|
---|
382 | 'Component = cmdDelete'
|
---|
383 | 'Text = Delete Test Group'
|
---|
384 | 'Status = stsOK')
|
---|
385 | (
|
---|
386 | 'Component = cmdAdd'
|
---|
387 | 'Text = New Test Group'
|
---|
388 | 'Status = stsOK')
|
---|
389 | (
|
---|
390 | 'Component = cmdAddTest'
|
---|
391 | 'Status = stsDefault')
|
---|
392 | (
|
---|
393 | 'Component = frmLabTestGroups'
|
---|
394 | 'Status = stsDefault')
|
---|
395 | (
|
---|
396 | 'Component = lblDefine'
|
---|
397 | 'Status = stsDefault'))
|
---|
398 | end
|
---|
399 | end
|
---|