source: cprs/branches/tmg-cprs/CPRS-Chart/fReports.dfm@ 1071

Last change on this file since 1071 was 453, checked in by Kevin Toppenberg, 16 years ago

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