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

Last change on this file since 1737 was 1679, checked in by healthsevak, 10 years ago

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