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

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

Initial Upload of Official WV CPRS 1.0.26.76
File size: 12.6 KB
Line 
1inherited frmReports: TfrmReports
2 Left = 456
3 Top = 200
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 = 617
15 Width = 717
16 Height = 10
17 end
18 inherited sptHorz: TSplitter
19 Left = 119
20 Height = 617
21 OnMoved = sptHorzMoved
22 end
23 inherited pnlLeft: TPanel
24 Width = 119
25 Height = 617
26 object Splitter1: TSplitter
27 Left = 0
28 Top = 259
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 = 259
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 = 240
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 = 365
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 = 265
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 = 617
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 = 436
338 Align = alClient
339 TabOrder = 2
340 object WebBrowser1: TWebBrowser
341 Left = 1
342 Top = 31
343 Width = 592
344 Height = 277
345 TabStop = False
346 Align = alClient
347 TabOrder = 1
348 OnDocumentComplete = WebBrowser1DocumentComplete
349 ControlData = {
350 4C0000002F3D0000A11C00000000000000000000000000000000000000000000
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 = 308
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 object PopupMenu1: TPopupMenu
432 OnPopup = PopupMenu1Popup
433 Left = 229
434 Top = 176
435 object Print2: TMenuItem
436 Caption = 'Print'
437 ShortCut = 16464
438 OnClick = Print2Click
439 end
440 object Copy2: TMenuItem
441 Caption = 'Copy'
442 ShortCut = 16451
443 OnClick = Copy2Click
444 end
445 object SelectAll2: TMenuItem
446 Caption = 'Select All'
447 ShortCut = 16449
448 OnClick = SelectAll2Click
449 end
450 object GotoTop1: TMenuItem
451 Caption = 'Go to Top'
452 Enabled = False
453 OnClick = GotoTop1Click
454 end
455 object GotoBottom1: TMenuItem
456 Caption = 'Go to Bottom'
457 OnClick = GotoBottom1Click
458 end
459 object FreezeText1: TMenuItem
460 Caption = 'Freeze Text'
461 Enabled = False
462 OnClick = FreezeText1Click
463 end
464 object UnFreezeText1: TMenuItem
465 Caption = 'Un-Freeze Text'
466 Enabled = False
467 OnClick = UnFreezeText1Click
468 end
469 end
470 object calApptRng: TORDateRangeDlg
471 DateOnly = False
472 Instruction = 'Enter a date range -'
473 LabelStart = 'Begin Date'
474 LabelStop = 'End Date'
475 RequireTime = False
476 Format = 'mmm d,yy@hh:nn'
477 Left = 325
478 Top = 176
479 end
480 object Timer1: TTimer
481 Enabled = False
482 OnTimer = Timer1Timer
483 Left = 389
484 Top = 176
485 end
486 object PopupMenu2: TPopupMenu
487 Left = 267
488 Top = 174
489 object Print1: TMenuItem
490 Caption = 'Print'
491 ShortCut = 16464
492 OnClick = Print1Click
493 end
494 object Copy1: TMenuItem
495 Caption = 'Copy Data From Table'
496 ShortCut = 16451
497 OnClick = Copy1Click
498 end
499 object SelectAll1: TMenuItem
500 Caption = 'Select All From Table'
501 ShortCut = 16449
502 OnClick = SelectAll1Click
503 end
504 end
505end
Note: See TracBrowser for help on using the repository browser.