source: cprs/trunk/CPRS-Chart/fReportsAdhocComponent1.dfm@ 924

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

Upgrading to version 27
File size: 14.1 KB
RevLine 
[830]1inherited frmReportsAdhocComponent1: TfrmReportsAdhocComponent1
[456]2 Left = 229
3 Top = 195
4 BorderIcons = [biSystemMenu]
5 Caption = 'ADHOC Health Summary'
[830]6 ClientHeight = 452
7 ClientWidth = 633
[456]8 OldCreateOrder = False
9 Position = poScreenCenter
10 OnClose = FormClose
11 OnCreate = FormCreate
12 OnShow = FormShow
[830]13 ExplicitWidth = 320
14 ExplicitHeight = 240
[456]15 PixelsPerInch = 96
16 TextHeight = 13
[830]17 object Splitter1: TSplitter [0]
[456]18 Left = 185
19 Top = 0
20 Width = 5
[830]21 Height = 401
[456]22 Beveled = True
23 OnCanResize = Splitter1CanResize
[830]24 ExplicitHeight = 394
[456]25 end
[830]26 object ORComboBox1: TORComboBox [1]
[456]27 Left = 0
28 Top = 0
29 Width = 185
[830]30 Height = 401
[456]31 Style = orcsSimple
32 Align = alLeft
33 AutoSelect = True
34 Caption = 'Available Components'
35 Color = clWindow
36 DropDownCount = 8
37 ItemHeight = 13
38 ItemTipColor = clWindow
39 ItemTipEnable = True
40 ListItemsOnly = False
41 LongList = False
42 LookupPiece = 0
43 MaxLength = 0
44 Pieces = '2'
45 Sorted = True
46 SynonymChars = '<>'
47 TabOrder = 0
48 OnDblClick = btnAddComponentClick
49 OnKeyDown = ORComboBox1KeyDown
50 CharsNeedMatch = 1
[830]51 ExplicitHeight = 394
[456]52 end
[830]53 object Panel2: TPanel [2]
[456]54 Left = 0
[830]55 Top = 401
[456]56 Width = 633
57 Height = 51
58 Align = alBottom
59 TabOrder = 2
[830]60 ExplicitTop = 394
[456]61 DesignSize = (
62 633
63 51)
64 object btnCancelMain: TButton
65 Left = 550
66 Top = 18
67 Width = 75
68 Height = 25
69 Anchors = [akRight, akBottom]
70 Cancel = True
71 Caption = 'Cancel'
72 TabOrder = 2
73 OnClick = btnCancelMainClick
74 end
75 object btnOKMain: TButton
76 Left = 462
77 Top = 18
78 Width = 75
79 Height = 25
80 Anchors = [akRight, akBottom]
81 Caption = 'OK'
82 TabOrder = 1
83 OnClick = btnOKMainClick
84 end
85 object GroupBox1: TGroupBox
86 Left = 0
87 Top = 8
88 Width = 329
89 Height = 41
90 Caption = 'Lookup By:'
91 TabOrder = 0
92 object rbtnHeader: TRadioButton
93 Left = 208
94 Top = 16
95 Width = 105
96 Height = 17
97 Caption = '&Display Header'
98 TabOrder = 2
99 OnClick = rbtnHeaderClick
100 end
101 object rbtnAbbrev: TRadioButton
102 Left = 96
103 Top = 16
104 Width = 89
105 Height = 17
106 Caption = '&Abbreviation'
107 TabOrder = 1
108 OnClick = rbtnAbbrevClick
109 end
110 object rbtnName: TRadioButton
111 Left = 8
112 Top = 16
113 Width = 65
114 Height = 17
115 Caption = '&Name'
116 TabOrder = 0
117 OnClick = rbtnNameClick
118 end
119 end
120 end
[830]121 object Panel3: TPanel [3]
[456]122 Left = 190
123 Top = 0
124 Width = 443
[830]125 Height = 401
[456]126 Align = alClient
127 TabOrder = 1
[830]128 ExplicitHeight = 394
[456]129 object Splitter4: TSplitter
130 Left = 219
131 Top = 25
132 Width = 5
[830]133 Height = 375
[456]134 Beveled = True
135 OnCanResize = Splitter4CanResize
[830]136 ExplicitHeight = 368
[456]137 end
138 object Panel1: TPanel
139 Left = 1
140 Top = 1
141 Width = 441
142 Height = 24
143 Align = alTop
144 BevelOuter = bvNone
145 Caption = 'Component Selection(s)'
146 TabOrder = 0
147 end
148 object ORListBox2: TORListBox
149 Left = 26
150 Top = 25
151 Width = 193
[830]152 Height = 375
[456]153 Align = alLeft
154 DragMode = dmAutomatic
155 ItemHeight = 13
156 ParentShowHint = False
157 ShowHint = True
158 TabOrder = 2
159 OnClick = ORListBox2Click
160 OnDblClick = btnRemoveComponentClick
161 OnDragDrop = ORListBox2DragDrop
162 OnDragOver = ORListBox2DragOver
163 OnEndDrag = ORListBox2EndDrag
164 Caption = 'Selected Components'
165 ItemTipColor = clWindow
166 LongList = False
167 Pieces = '2'
[830]168 ExplicitHeight = 368
[456]169 end
170 object Panel6: TPanel
171 Left = 1
172 Top = 25
173 Width = 25
[830]174 Height = 375
[456]175 Align = alLeft
176 BevelOuter = bvNone
177 TabOrder = 1
[830]178 ExplicitHeight = 368
[456]179 object btnRemoveComponent: TButton
180 Left = 4
181 Top = 30
182 Width = 17
183 Height = 22
184 Caption = '<'
185 TabOrder = 1
186 OnClick = btnRemoveComponentClick
187 end
188 object btnRemoveAllComponents: TButton
189 Left = 4
190 Top = 55
191 Width = 17
192 Height = 22
193 Caption = '<<'
194 TabOrder = 2
195 OnClick = btnRemoveAllComponentsClick
196 end
197 object btnAddComponent: TButton
198 Left = 4
199 Top = 5
200 Width = 17
201 Height = 22
202 Caption = '>'
203 TabOrder = 0
204 OnClick = btnAddComponentClick
205 end
206 end
207 object Panel7: TPanel
208 Left = 224
209 Top = 25
210 Width = 218
[830]211 Height = 375
[456]212 Align = alClient
213 BevelOuter = bvNone
214 TabOrder = 3
[830]215 ExplicitHeight = 368
[456]216 object lblHeaderName: TLabel
217 Left = 30
218 Top = 8
219 Width = 69
220 Height = 13
221 Caption = 'Header Name:'
222 Enabled = False
223 end
224 object lblOccuranceLimit: TLabel
225 Left = 30
226 Top = 48
227 Width = 83
228 Height = 13
229 Caption = 'Occurrence Limit:'
230 Enabled = False
231 end
232 object lblTimeLimit: TLabel
233 Left = 153
234 Top = 48
235 Width = 50
236 Height = 13
237 Caption = 'Time Limit:'
238 Enabled = False
239 end
240 object lblItems: TLabel
241 Left = 30
242 Top = 184
243 Width = 49
244 Height = 13
245 Caption = 'Sub-items:'
246 Enabled = False
247 end
248 object pnl5Button: TKeyClickPanel
249 Left = 0
250 Top = 90
251 Width = 17
252 Height = 24
253 Caption = 'Display selected component earlier'
254 TabOrder = 0
255 TabStop = True
256 OnClick = SpeedButton5Click
257 OnEnter = pnl5ButtonEnter
258 OnExit = pnl5ButtonExit
259 object SpeedButton5: TSpeedButton
260 Left = 0
261 Top = 1
262 Width = 17
263 Height = 22
264 Enabled = False
265 Glyph.Data = {
266 76010000424D7601000000000000760000002800000020000000100000000100
267 0400000000000001000000000000000000001000000010000000000000000000
268 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
269 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000333
270 3333333333777F3333333333330F033333333333337F7F3333333333330F0333
271 33333333337F7F3333333333330F033333333333337F7F3333333333330F0333
272 33333333337F7F3333333333330F033333333333FF7F7FFFF3333330000F0000
273 3333333777737777F3333330FFFFFFF0333333373F333337333333330FFFFF03
274 333333337F33337F333333330FFFFF033333333373F333733333333330FFF033
275 3333333337F337F33333333330FFF03333333333373F373333333333330F0333
276 33333333337F7F3333333333330F033333333333337373333333333333303333
277 333333333337F333333333333330333333333333333733333333}
278 NumGlyphs = 2
279 OnClick = SpeedButton5Click
280 end
281 end
282 object pnl6Button: TKeyClickPanel
283 Left = 0
284 Top = 115
285 Width = 17
286 Height = 24
287 BevelOuter = bvNone
288 Caption = 'Display selected component later'
289 TabOrder = 1
290 TabStop = True
291 OnClick = SpeedButton6Click
292 OnEnter = pnl5ButtonEnter
293 OnExit = pnl5ButtonExit
294 object SpeedButton6: TSpeedButton
295 Left = 0
296 Top = 1
297 Width = 17
298 Height = 22
299 Enabled = False
300 Glyph.Data = {
301 76010000424D7601000000000000760000002800000020000000100000000100
302 0400000000000001000000000000000000001000000010000000000000000000
303 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
304 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333303333
305 333333333337F33333333333333033333333333333373F3333333333330F0333
306 33333333337F7F3333333333330F033333333333337373F33333333330FFF033
307 3333333337F337F33333333330FFF033333333333733373F333333330FFFFF03
308 333333337F33337F333333330FFFFF033333333373333373F3333330FFFFFFF0
309 33333337FFFF3FF7F3333330000F000033333337777F777733333333330F0333
310 33333333337F7F3333333333330F033333333333337F7F3333333333330F0333
311 33333333337F7F3333333333330F033333333333337F7F3333333333330F0333
312 33333333337F7F33333333333300033333333333337773333333}
313 NumGlyphs = 2
314 OnClick = SpeedButton6Click
315 end
316 end
317 object edtHeaderName: TCaptionEdit
318 Left = 24
319 Top = 24
320 Width = 189
321 Height = 21
322 Enabled = False
323 TabOrder = 2
324 OnExit = edtHeaderNameExit
325 Caption = 'Header Name'
326 end
327 object edtOccuranceLimit: TCaptionEdit
328 Left = 24
329 Top = 64
330 Width = 79
331 Height = 21
332 Enabled = False
333 TabOrder = 3
334 OnExit = edtOccuranceLimitExit
335 Caption = 'Occurance Limit'
336 end
337 object cboTimeLimit: TCaptionComboBox
338 Left = 150
339 Top = 64
340 Width = 63
341 Height = 21
342 ItemHeight = 13
343 TabOrder = 4
344 OnExit = cboTimeLimitExit
345 Items.Strings = (
346 '1D'
347 '2D'
348 '3D'
349 '4D'
350 '5D'
351 '6D'
352 '1W'
353 '2W'
354 '3W'
355 '4W'
356 '1M'
357 '2M'
358 '3M'
359 '4M'
360 '5M'
361 '6M'
362 '7M'
363 '8M'
364 '9M'
365 '10M'
366 '11M'
367 '12M'
368 '1Y'
369 '2Y'
370 '3Y'
371 '4Y'
372 '5Y'
373 '6Y'
374 '7Y'
375 '8Y'
376 '9Y'
377 '10Y'
378 'No Limit')
379 Caption = 'Time Limit'
380 end
381 object gpbDisplay: TGroupBox
382 Left = 24
383 Top = 88
384 Width = 189
385 Height = 89
386 Enabled = False
387 TabOrder = 5
388 object lblICD: TLabel
389 Left = 24
390 Top = 48
391 Width = 82
392 Height = 13
393 Caption = 'ICD Text Display:'
394 Enabled = False
395 end
396 object ckbHospitalLocation: TCheckBox
397 Left = 24
398 Top = 16
399 Width = 153
400 Height = 17
401 Caption = 'Display Hospital Location'
402 Enabled = False
403 TabOrder = 0
404 OnExit = ckbHospitalLocationExit
405 end
406 object ckbProviderNarrative: TCheckBox
407 Left = 24
408 Top = 32
409 Width = 153
410 Height = 17
411 Caption = 'Display Provider Narrative'
412 Enabled = False
413 TabOrder = 1
414 OnExit = ckbProviderNarrativeExit
415 end
416 object cboICD: TCaptionComboBox
417 Left = 24
418 Top = 64
419 Width = 121
420 Height = 21
421 Enabled = False
422 ItemHeight = 13
423 TabOrder = 2
424 OnExit = cboICDExit
425 Items.Strings = (
426 'Long text'
427 'Short text'
428 'Code only'
429 'Text only'
430 'None')
431 Caption = 'ICD Text Display'
432 end
433 end
434 object ORListBox1: TORListBox
435 Left = 24
436 Top = 200
437 Width = 185
438 Height = 149
439 Enabled = False
440 ItemHeight = 13
441 ParentShowHint = False
442 ShowHint = True
443 TabOrder = 6
444 Caption = 'Sub-items'
445 ItemTipColor = clWindow
446 LongList = False
447 Pieces = '2'
448 end
449 object btnEditSubitems: TButton
450 Left = 120
451 Top = 352
452 Width = 89
453 Height = 21
454 Caption = 'Edit Sub-items'
455 Enabled = False
456 TabOrder = 7
457 OnClick = btnEditSubitemsClick
458 end
459 end
460 end
[830]461 inherited amgrMain: TVA508AccessibilityManager
462 Data = (
463 (
464 'Component = ORComboBox1'
465 'Status = stsDefault')
466 (
467 'Component = Panel2'
468 'Status = stsDefault')
469 (
470 'Component = btnCancelMain'
471 'Status = stsDefault')
472 (
473 'Component = btnOKMain'
474 'Status = stsDefault')
475 (
476 'Component = GroupBox1'
477 'Status = stsDefault')
478 (
479 'Component = rbtnHeader'
480 'Status = stsDefault')
481 (
482 'Component = rbtnAbbrev'
483 'Status = stsDefault')
484 (
485 'Component = rbtnName'
486 'Status = stsDefault')
487 (
488 'Component = Panel3'
489 'Status = stsDefault')
490 (
491 'Component = Panel1'
492 'Status = stsDefault')
493 (
494 'Component = ORListBox2'
495 'Status = stsDefault')
496 (
497 'Component = Panel6'
498 'Status = stsDefault')
499 (
500 'Component = btnRemoveComponent'
501 'Status = stsDefault')
502 (
503 'Component = btnRemoveAllComponents'
504 'Status = stsDefault')
505 (
506 'Component = btnAddComponent'
507 'Status = stsDefault')
508 (
509 'Component = Panel7'
510 'Status = stsDefault')
511 (
512 'Component = pnl5Button'
513 'Status = stsDefault')
514 (
515 'Component = pnl6Button'
516 'Status = stsDefault')
517 (
518 'Component = edtHeaderName'
519 'Status = stsDefault')
520 (
521 'Component = edtOccuranceLimit'
522 'Status = stsDefault')
523 (
524 'Component = cboTimeLimit'
525 'Status = stsDefault')
526 (
527 'Component = gpbDisplay'
528 'Status = stsDefault')
529 (
530 'Component = ckbHospitalLocation'
531 'Status = stsDefault')
532 (
533 'Component = ckbProviderNarrative'
534 'Status = stsDefault')
535 (
536 'Component = cboICD'
537 'Status = stsDefault')
538 (
539 'Component = ORListBox1'
540 'Status = stsDefault')
541 (
542 'Component = btnEditSubitems'
543 'Status = stsDefault')
544 (
545 'Component = frmReportsAdhocComponent1'
546 'Status = stsDefault'))
547 end
[456]548 object Timer1: TTimer
549 Enabled = False
550 Interval = 100
551 OnTimer = Timer1Timer
552 Left = 591
553 Top = 6
554 end
555end
Note: See TracBrowser for help on using the repository browser.