source: cprs/trunk/CPRS-Chart/fReports.dfm@ 1068

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

Upgrading to version 27
File size: 15.8 KB
Line 
1inherited frmReports: TfrmReports
2 Left = 356
3 Top = 69
4 HelpContext = 9000
5 Caption = 'Reports Page'
6 ClientHeight = 627
7 ClientWidth = 717
8 HelpFile = 'qnoback'
9 OnDestroy = FormDestroy
10 OnShow = FormShow
11 ExplicitLeft = 356
12 ExplicitTop = 69
13 ExplicitWidth = 725
14 ExplicitHeight = 654
15 PixelsPerInch = 96
16 TextHeight = 13
17 inherited shpPageBottom: TShape
18 Top = 617
19 Width = 717
20 Height = 10
21 ExplicitTop = 617
22 ExplicitWidth = 717
23 ExplicitHeight = 10
24 end
25 inherited sptHorz: TSplitter
26 Left = 119
27 Height = 617
28 OnMoved = sptHorzMoved
29 ExplicitLeft = 119
30 ExplicitHeight = 617
31 end
32 inherited pnlLeft: TPanel
33 Width = 119
34 Height = 617
35 ExplicitWidth = 119
36 ExplicitHeight = 617
37 object Splitter1: TSplitter
38 Left = 0
39 Top = 259
40 Width = 119
41 Height = 6
42 Cursor = crVSplit
43 Align = alBottom
44 Color = clBtnFace
45 ParentColor = False
46 OnCanResize = Splitter1CanResize
47 end
48 object pnlLefTop: TPanel
49 Left = 0
50 Top = 0
51 Width = 119
52 Height = 259
53 Align = alClient
54 BevelOuter = bvNone
55 Constraints.MinWidth = 30
56 TabOrder = 0
57 object lblTypes: TOROffsetLabel
58 Left = 0
59 Top = 0
60 Width = 119
61 Height = 19
62 Align = alTop
63 Caption = 'Available Reports'
64 HorzOffset = 3
65 Transparent = True
66 VertOffset = 6
67 WordWrap = False
68 end
69 object tvReports: TORTreeView
70 Left = 0
71 Top = 19
72 Width = 119
73 Height = 240
74 Align = alClient
75 HideSelection = False
76 Indent = 18
77 ReadOnly = True
78 TabOrder = 0
79 OnClick = tvReportsClick
80 OnCollapsing = tvReportsCollapsing
81 OnExpanding = tvReportsExpanding
82 OnKeyDown = tvReportsKeyDown
83 Caption = 'Available Reports'
84 NodePiece = 0
85 end
86 end
87 object pnlLeftBottom: TPanel
88 Left = 0
89 Top = 365
90 Width = 119
91 Height = 252
92 Align = alBottom
93 Anchors = [akLeft, akTop, akRight, akBottom]
94 BevelOuter = bvNone
95 TabOrder = 1
96 Visible = False
97 object lblQualifier: TOROffsetLabel
98 Left = 0
99 Top = 0
100 Width = 119
101 Height = 13
102 Align = alTop
103 HorzOffset = 3
104 Transparent = True
105 VertOffset = 4
106 WordWrap = False
107 end
108 object lblHeaders: TLabel
109 Left = 0
110 Top = 13
111 Width = 119
112 Height = 13
113 Align = alTop
114 Caption = 'Headings'
115 Transparent = True
116 Visible = False
117 ExplicitWidth = 45
118 end
119 object lstHeaders: TORListBox
120 Left = 0
121 Top = 26
122 Width = 119
123 Height = 226
124 Align = alClient
125 ItemHeight = 13
126 ParentShowHint = False
127 ShowHint = True
128 TabOrder = 0
129 Visible = False
130 OnClick = lstHeadersClick
131 Caption = 'Headings'
132 ItemTipColor = clWindow
133 LongList = False
134 Pieces = '2'
135 end
136 object lstQualifier: TORListBox
137 Left = 0
138 Top = 26
139 Width = 119
140 Height = 226
141 Style = lbOwnerDrawFixed
142 Align = alClient
143 ItemHeight = 13
144 ParentShowHint = False
145 ShowHint = True
146 TabOrder = 1
147 OnClick = lstQualifierClick
148 OnDrawItem = lstQualifierDrawItem
149 ItemTipColor = clWindow
150 LongList = False
151 Pieces = '2,3'
152 TabPositions = '10'
153 end
154 object pnlViews: TORAutoPanel
155 Left = 0
156 Top = 26
157 Width = 119
158 Height = 226
159 Align = alClient
160 BevelOuter = bvNone
161 TabOrder = 3
162 Visible = False
163 object pnlTopViews: TPanel
164 Left = 0
165 Top = 0
166 Width = 119
167 Height = 80
168 Align = alTop
169 BevelOuter = bvNone
170 TabOrder = 0
171 DesignSize = (
172 119
173 80)
174 object lblDateRange: TLabel
175 Left = 0
176 Top = 63
177 Width = 58
178 Height = 13
179 Anchors = [akLeft, akTop, akRight]
180 Caption = 'Date Range'
181 end
182 object chkDualViews: TCheckBox
183 Left = 0
184 Top = 0
185 Width = 121
186 Height = 17
187 Anchors = [akLeft, akTop, akRight]
188 Caption = 'Split Views'
189 TabOrder = 0
190 OnClick = chkDualViewsClick
191 end
192 object btnGraphSelections: TORAlignButton
193 Left = 0
194 Top = 20
195 Width = 119
196 Height = 21
197 Anchors = [akLeft, akTop, akRight]
198 Caption = 'Select/Define...'
199 TabOrder = 1
200 OnClick = btnGraphSelectionsClick
201 end
202 object btnChangeView: TORAlignButton
203 Left = 0
204 Top = 41
205 Width = 119
206 Height = 21
207 Anchors = [akLeft, akTop, akRight]
208 Caption = 'Settings...'
209 TabOrder = 2
210 OnClick = btnChangeViewClick
211 end
212 end
213 object lstDateRange: TORListBox
214 Left = 0
215 Top = 80
216 Width = 119
217 Height = 146
218 Align = alClient
219 Font.Charset = DEFAULT_CHARSET
220 Font.Color = clWindowText
221 Font.Height = -11
222 Font.Name = 'MS Sans Serif'
223 Font.Style = []
224 ItemHeight = 13
225 ParentFont = False
226 ParentShowHint = False
227 ShowHint = True
228 TabOrder = 1
229 OnClick = lstDateRangeClick
230 ItemTipColor = clWindow
231 LongList = False
232 Pieces = '2'
233 TabPositions = '10'
234 end
235 end
236 end
237 object pnlProcedures: TPanel
238 Left = 0
239 Top = 265
240 Width = 119
241 Height = 100
242 Align = alBottom
243 BevelOuter = bvNone
244 TabOrder = 2
245 Visible = False
246 object lblProcedures: TOROffsetLabel
247 Left = 0
248 Top = 0
249 Width = 119
250 Height = 15
251 Align = alTop
252 Caption = 'Radiology Procedures'
253 Color = clBtnFace
254 HorzOffset = 2
255 ParentColor = False
256 Transparent = False
257 VertOffset = 2
258 WordWrap = False
259 end
260 object tvProcedures: TORTreeView
261 Left = 0
262 Top = 15
263 Width = 119
264 Height = 85
265 Align = alClient
266 HideSelection = False
267 Indent = 19
268 ReadOnly = True
269 TabOrder = 0
270 OnChange = tvProceduresChange
271 OnClick = tvProceduresClick
272 OnCollapsing = tvProceduresCollapsing
273 OnExpanding = tvProceduresExpanding
274 OnKeyDown = tvProceduresKeyDown
275 Caption = 'tvProcedures'
276 NodePiece = 0
277 end
278 end
279 end
280 inherited pnlRight: TPanel
281 Left = 123
282 Width = 594
283 Height = 617
284 ExplicitLeft = 123
285 ExplicitWidth = 594
286 ExplicitHeight = 617
287 object sptHorzRight: TSplitter
288 Left = 0
289 Top = 177
290 Width = 594
291 Height = 4
292 Cursor = crVSplit
293 Align = alTop
294 Visible = False
295 OnCanResize = sptHorzRightCanResize
296 end
297 object pnlRightTop: TPanel
298 Left = 0
299 Top = 0
300 Width = 594
301 Height = 57
302 Align = alTop
303 BevelOuter = bvNone
304 TabOrder = 0
305 object lblProcTypeMsg: TOROffsetLabel
306 Left = 0
307 Top = 0
308 Width = 594
309 Height = 17
310 Align = alTop
311 HorzOffset = 3
312 Transparent = False
313 VertOffset = 2
314 WordWrap = False
315 ExplicitWidth = 529
316 end
317 object TabControl1: TTabControl
318 Left = 0
319 Top = 40
320 Width = 594
321 Height = 20
322 Align = alTop
323 Font.Charset = DEFAULT_CHARSET
324 Font.Color = clWindowText
325 Font.Height = -11
326 Font.Name = 'MS Sans Serif'
327 Font.Style = []
328 HotTrack = True
329 ParentFont = False
330 Style = tsButtons
331 TabHeight = 16
332 TabOrder = 0
333 TabStop = False
334 Visible = False
335 OnChange = TabControl1Change
336 end
337 object pnlTopRtLabel: TPanel
338 Left = 0
339 Top = 17
340 Width = 594
341 Height = 23
342 Align = alTop
343 TabOrder = 1
344 object lblTitle: TOROffsetLabel
345 Left = 1
346 Top = 1
347 Width = 495
348 Height = 21
349 Align = alClient
350 HorzOffset = 3
351 Transparent = True
352 VertOffset = 6
353 WordWrap = False
354 ExplicitWidth = 312
355 ExplicitHeight = 26
356 end
357 object chkMaxFreq: TCheckBox
358 Left = 496
359 Top = 1
360 Width = 97
361 Height = 21
362 Align = alRight
363 Caption = 'Max/Site OFF'
364 TabOrder = 0
365 Visible = False
366 OnClick = chkMaxFreqClick
367 end
368 end
369 end
370 object pnlRightBottom: TPanel
371 Left = 0
372 Top = 181
373 Width = 594
374 Height = 436
375 Align = alClient
376 TabOrder = 2
377 object WebBrowser1: TWebBrowser
378 Left = 1
379 Top = 31
380 Width = 592
381 Height = 277
382 TabStop = False
383 Align = alClient
384 TabOrder = 1
385 OnDocumentComplete = WebBrowser1DocumentComplete
386 ControlData = {
387 4C0000002F3D0000A11C00000000000000000000000000000000000000000000
388 000000004C000000000000000000000001000000E0D057007335CF11AE690800
389 2B2E126208000000000000004C0000000114020000000000C000000000000046
390 8000000000000000000000000000000000000000000000000000000000000000
391 00000000000000000100000000000000000000000000000000000000}
392 end
393 object Memo1: TMemo
394 Left = 1
395 Top = 1
396 Width = 592
397 Height = 30
398 TabStop = False
399 Align = alTop
400 Font.Charset = ANSI_CHARSET
401 Font.Color = clWindowText
402 Font.Height = -12
403 Font.Name = 'Courier New'
404 Font.Style = []
405 ParentFont = False
406 ScrollBars = ssVertical
407 TabOrder = 0
408 Visible = False
409 WantTabs = True
410 OnKeyUp = Memo1KeyUp
411 end
412 object memText: TRichEdit
413 Left = 1
414 Top = 308
415 Width = 592
416 Height = 127
417 Align = alBottom
418 Color = clCream
419 Font.Charset = ANSI_CHARSET
420 Font.Color = clWindowText
421 Font.Height = -12
422 Font.Name = 'Courier New'
423 Font.Style = []
424 Constraints.MinHeight = 20
425 ParentFont = False
426 PlainText = True
427 PopupMenu = PopupMenu1
428 ReadOnly = True
429 ScrollBars = ssBoth
430 TabOrder = 2
431 Visible = False
432 WantReturns = False
433 WordWrap = False
434 end
435 end
436 object pnlRightMiddle: TPanel
437 Left = 0
438 Top = 57
439 Width = 594
440 Height = 120
441 Align = alTop
442 Constraints.MaxHeight = 700
443 Constraints.MinHeight = 50
444 TabOrder = 1
445 Visible = False
446 object lvReports: TCaptionListView
447 Left = 1
448 Top = 1
449 Width = 592
450 Height = 118
451 Hint = 'To sort, click on column headers|'
452 Align = alClient
453 Columns = <>
454 Constraints.MinHeight = 50
455 HideSelection = False
456 MultiSelect = True
457 ReadOnly = True
458 RowSelect = True
459 ParentShowHint = False
460 PopupMenu = PopupMenu2
461 ShowHint = True
462 TabOrder = 0
463 ViewStyle = vsReport
464 OnColumnClick = lvReportsColumnClick
465 OnCompare = lvReportsCompare
466 OnKeyUp = lvReportsKeyUp
467 OnSelectItem = lvReportsSelectItem
468 end
469 end
470 end
471 inherited amgrMain: TVA508AccessibilityManager
472 Data = (
473 (
474 'Component = pnlLefTop'
475 'Status = stsDefault')
476 (
477 'Component = tvReports'
478 'Status = stsDefault')
479 (
480 'Component = pnlLeftBottom'
481 'Status = stsDefault')
482 (
483 'Component = lstHeaders'
484 'Status = stsDefault')
485 (
486 'Component = lstQualifier'
487 'Status = stsDefault')
488 (
489 'Component = pnlViews'
490 'Status = stsDefault')
491 (
492 'Component = pnlTopViews'
493 'Status = stsDefault')
494 (
495 'Component = chkDualViews'
496 'Status = stsDefault')
497 (
498 'Component = btnGraphSelections'
499 'Status = stsDefault')
500 (
501 'Component = btnChangeView'
502 'Status = stsDefault')
503 (
504 'Component = lstDateRange'
505 'Status = stsDefault')
506 (
507 'Component = pnlProcedures'
508 'Status = stsDefault')
509 (
510 'Component = tvProcedures'
511 'Status = stsDefault')
512 (
513 'Component = pnlRightTop'
514 'Status = stsDefault')
515 (
516 'Component = TabControl1'
517 'Status = stsDefault')
518 (
519 'Component = pnlRightBottom'
520 'Status = stsDefault')
521 (
522 'Component = WebBrowser1'
523 'Status = stsDefault')
524 (
525 'Component = Memo1'
526 'Status = stsDefault')
527 (
528 'Component = memText'
529 'Status = stsDefault')
530 (
531 'Component = pnlRightMiddle'
532 'Status = stsDefault')
533 (
534 'Component = lvReports'
535 'Status = stsDefault')
536 (
537 'Component = pnlLeft'
538 'Status = stsDefault')
539 (
540 'Component = pnlRight'
541 'Status = stsDefault')
542 (
543 'Component = frmReports'
544 'Status = stsDefault')
545 (
546 'Component = pnlTopRtLabel'
547 'Status = stsDefault')
548 (
549 'Component = chkMaxFreq'
550 'Status = stsDefault'))
551 end
552 object PopupMenu1: TPopupMenu
553 OnPopup = PopupMenu1Popup
554 Left = 229
555 Top = 176
556 object Print2: TMenuItem
557 Caption = 'Print'
558 ShortCut = 16464
559 OnClick = Print2Click
560 end
561 object Copy2: TMenuItem
562 Caption = 'Copy'
563 ShortCut = 16451
564 OnClick = Copy2Click
565 end
566 object SelectAll2: TMenuItem
567 Caption = 'Select All'
568 ShortCut = 16449
569 OnClick = SelectAll2Click
570 end
571 object GotoTop1: TMenuItem
572 Caption = 'Go to Top'
573 Enabled = False
574 OnClick = GotoTop1Click
575 end
576 object GotoBottom1: TMenuItem
577 Caption = 'Go to Bottom'
578 OnClick = GotoBottom1Click
579 end
580 object FreezeText1: TMenuItem
581 Caption = 'Freeze Text'
582 Enabled = False
583 OnClick = FreezeText1Click
584 end
585 object UnFreezeText1: TMenuItem
586 Caption = 'Un-Freeze Text'
587 Enabled = False
588 OnClick = UnFreezeText1Click
589 end
590 end
591 object calApptRng: TORDateRangeDlg
592 DateOnly = False
593 Instruction = 'Enter a date range -'
594 LabelStart = 'Begin Date'
595 LabelStop = 'End Date'
596 RequireTime = False
597 Format = 'mmm d,yy@hh:nn'
598 Left = 325
599 Top = 176
600 end
601 object Timer1: TTimer
602 Enabled = False
603 OnTimer = Timer1Timer
604 Left = 389
605 Top = 176
606 end
607 object PopupMenu2: TPopupMenu
608 Left = 267
609 Top = 174
610 object Print1: TMenuItem
611 Caption = 'Print'
612 ShortCut = 16464
613 OnClick = Print1Click
614 end
615 object Copy1: TMenuItem
616 Caption = 'Copy Data From Table'
617 ShortCut = 16451
618 OnClick = Copy1Click
619 end
620 object SelectAll1: TMenuItem
621 Caption = 'Select All From Table'
622 ShortCut = 16449
623 OnClick = SelectAll1Click
624 end
625 end
626 object imgLblImages: TVA508ImageListLabeler
627 Components = <
628 item
629 Component = lvReports
630 end>
631 Labels = <>
632 RemoteLabeler = dmodShared.imgLblImages
633 Left = 40
634 Top = 200
635 end
636end
Note: See TracBrowser for help on using the repository browser.