source: cprs/trunk/CPRS-Chart/fLabs.dfm@ 544

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

Initial Upload of Official WV CPRS 1.0.26.76
File size: 20.0 KB
Line 
1inherited frmLabs: TfrmLabs
2 Left = 376
3 Top = 237
4 Height = 387
5 HelpContext = 8000
6 Caption = 'Laboratory Results Page'
7 HelpFile = 'qnoback'
8 OnDestroy = FormDestroy
9 PixelsPerInch = 96
10 TextHeight = 13
11 inherited shpPageBottom: TShape
12 Top = 348
13 end
14 inherited sptHorz: TSplitter
15 Height = 348
16 end
17 inherited pnlLeft: TPanel
18 Height = 348
19 object lblReports: TOROffsetLabel
20 Left = 0
21 Top = 0
22 Width = 97
23 Height = 19
24 Align = alTop
25 Caption = 'Lab Results'
26 HorzOffset = 2
27 Transparent = False
28 VertOffset = 6
29 WordWrap = False
30 end
31 object lblDates: TOROffsetLabel
32 Left = 0
33 Top = 225
34 Width = 97
35 Height = 15
36 Align = alBottom
37 Caption = 'Date Range'
38 HorzOffset = 2
39 Transparent = False
40 VertOffset = 2
41 WordWrap = False
42 end
43 object lblHeaders: TOROffsetLabel
44 Left = 0
45 Top = 125
46 Width = 97
47 Height = 15
48 Align = alBottom
49 Caption = 'Headings'
50 HorzOffset = 2
51 Transparent = False
52 VertOffset = 2
53 WordWrap = False
54 end
55 object lstReports: TORListBox
56 Left = 0
57 Top = 19
58 Width = 97
59 Height = 106
60 Align = alClient
61 ItemHeight = 13
62 ParentShowHint = False
63 ShowHint = True
64 TabOrder = 0
65 OnClick = lstReportsClick
66 Caption = 'Lab Results'
67 ItemTipColor = clWindow
68 LongList = False
69 Pieces = '2'
70 end
71 object lstHeaders: TORListBox
72 Left = 0
73 Top = 140
74 Width = 97
75 Height = 52
76 Align = alBottom
77 ItemHeight = 13
78 ParentShowHint = False
79 ShowHint = True
80 TabOrder = 1
81 Visible = False
82 OnClick = lstHeadersClick
83 Caption = 'Headings'
84 ItemTipColor = clWindow
85 LongList = False
86 Pieces = '2'
87 end
88 object lstDates: TORListBox
89 Left = 0
90 Top = 240
91 Width = 97
92 Height = 108
93 Align = alBottom
94 ItemHeight = 13
95 Items.Strings = (
96 'S^Date Range...'
97 '1^Today'
98 '8^One Week'
99 '15^Two Weeks'
100 '31^One Month'
101 '183^Six Months'
102 '366^One Year'
103 '732^Two Years'
104 '66666^All Results')
105 ParentShowHint = False
106 ShowHint = True
107 TabOrder = 3
108 Visible = False
109 OnClick = lstDatesClick
110 Caption = 'Date Range'
111 ItemTipColor = clWindow
112 LongList = False
113 Pieces = '2'
114 end
115 object pnlOtherTests: TORAutoPanel
116 Left = 0
117 Top = 192
118 Width = 97
119 Height = 33
120 Align = alBottom
121 BevelOuter = bvNone
122 TabOrder = 2
123 object bvlOtherTests: TBevel
124 Left = 3
125 Top = 31
126 Width = 90
127 Height = 2
128 end
129 object cmdOtherTests: TButton
130 Left = 11
131 Top = 4
132 Width = 75
133 Height = 25
134 Caption = 'Other Tests'
135 TabOrder = 0
136 OnClick = cmdOtherTestsClick
137 end
138 end
139 end
140 inherited pnlRight: TPanel
141 Height = 348
142 OnResize = pnlRightResize
143 object lblHeading: TOROffsetLabel
144 Left = 0
145 Top = 0
146 Width = 539
147 Height = 19
148 Align = alTop
149 Caption = 'Laboratory Results'
150 HorzOffset = 2
151 Transparent = False
152 VertOffset = 6
153 WordWrap = False
154 end
155 object pnlHeader: TORAutoPanel
156 Left = 0
157 Top = 19
158 Width = 539
159 Height = 60
160 Align = alTop
161 BevelOuter = bvNone
162 TabOrder = 0
163 object bvlHeader: TBevel
164 Left = 0
165 Top = 0
166 Width = 539
167 Height = 2
168 Align = alTop
169 end
170 object lblDateFloat: TLabel
171 Left = 396
172 Top = 4
173 Width = 56
174 Height = 13
175 Caption = 'lblDateFloat'
176 Visible = False
177 end
178 object pnlWorksheet: TORAutoPanel
179 Left = 0
180 Top = 2
181 Width = 539
182 Height = 58
183 Align = alClient
184 BevelOuter = bvNone
185 TabOrder = 1
186 object chkValues: TCheckBox
187 Left = 404
188 Top = 39
189 Width = 93
190 Height = 17
191 Caption = 'Values'
192 Enabled = False
193 TabOrder = 5
194 OnClick = chkValuesClick
195 end
196 object chk3D: TCheckBox
197 Left = 329
198 Top = 39
199 Width = 56
200 Height = 17
201 Caption = '3D'
202 Enabled = False
203 TabOrder = 4
204 OnClick = chk3DClick
205 end
206 object ragHorV: TRadioGroup
207 Left = 12
208 Top = 0
209 Width = 213
210 Height = 36
211 Caption = 'Table Format '
212 Columns = 2
213 ItemIndex = 0
214 Items.Strings = (
215 '&Horizontal'
216 '&Vertical')
217 TabOrder = 0
218 OnClick = ragHorVClick
219 end
220 object chkAbnormals: TCheckBox
221 Left = 12
222 Top = 39
223 Width = 221
224 Height = 17
225 Caption = 'Abnormal Results Only'
226 TabOrder = 2
227 OnClick = ragHorVClick
228 end
229 object ragCorG: TRadioGroup
230 Left = 252
231 Top = 0
232 Width = 213
233 Height = 36
234 Caption = 'Other Formats '
235 Columns = 2
236 ItemIndex = 0
237 Items.Strings = (
238 '&Comments'
239 '&Graph')
240 TabOrder = 1
241 OnClick = ragCorGClick
242 end
243 object chkZoom: TCheckBox
244 Left = 253
245 Top = 39
246 Width = 68
247 Height = 17
248 Caption = 'Zoom'
249 Enabled = False
250 TabOrder = 3
251 OnClick = chkZoomClick
252 end
253 end
254 object pnlGraph: TORAutoPanel
255 Left = 0
256 Top = 2
257 Width = 539
258 Height = 58
259 Align = alClient
260 BevelOuter = bvNone
261 TabOrder = 2
262 object lblGraphInfo: TLabel
263 Left = 0
264 Top = 45
265 Width = 539
266 Height = 13
267 Align = alBottom
268 Caption =
269 'To Zoom, hold down the mouse button while dragging an area to be' +
270 ' enlarged.'
271 end
272 object chkGraph3D: TCheckBox
273 Left = 162
274 Top = 13
275 Width = 61
276 Height = 17
277 Caption = '3D'
278 TabOrder = 1
279 OnClick = chkGraph3DClick
280 end
281 object chkGraphValues: TCheckBox
282 Left = 276
283 Top = 13
284 Width = 101
285 Height = 17
286 Caption = 'Values'
287 TabOrder = 2
288 OnClick = chkGraphValuesClick
289 end
290 object chkGraphZoom: TCheckBox
291 Left = 48
292 Top = 13
293 Width = 97
294 Height = 17
295 Caption = 'Zoom'
296 TabOrder = 0
297 OnClick = chkGraphZoomClick
298 end
299 end
300 object pnlButtons: TORAutoPanel
301 Left = 0
302 Top = 2
303 Width = 539
304 Height = 58
305 Align = alClient
306 BevelOuter = bvNone
307 TabOrder = 0
308 object lblOld: TOROffsetLabel
309 Left = 4
310 Top = 6
311 Width = 41
312 Height = 15
313 Caption = 'Oldest'
314 HorzOffset = 2
315 Transparent = False
316 VertOffset = 2
317 WordWrap = False
318 end
319 object lblPrev: TOROffsetLabel
320 Left = 48
321 Top = 6
322 Width = 49
323 Height = 15
324 Caption = 'Previous'
325 HorzOffset = 2
326 Transparent = False
327 VertOffset = 2
328 WordWrap = False
329 end
330 object lblNext: TOROffsetLabel
331 Left = 246
332 Top = 6
333 Width = 31
334 Height = 15
335 Caption = 'Next'
336 HorzOffset = 2
337 Transparent = False
338 VertOffset = 2
339 WordWrap = False
340 end
341 object lblRecent: TOROffsetLabel
342 Left = 287
343 Top = 6
344 Width = 46
345 Height = 15
346 Caption = 'Newest'
347 HorzOffset = 2
348 Transparent = False
349 VertOffset = 2
350 WordWrap = False
351 end
352 object lblMostRecent: TLabel
353 Left = 368
354 Top = 29
355 Width = 144
356 Height = 13
357 Caption = 'Most Recent Lab Results'
358 Font.Charset = DEFAULT_CHARSET
359 Font.Color = clWindowText
360 Font.Height = -11
361 Font.Name = 'MS Sans Serif'
362 Font.Style = [fsBold]
363 ParentFont = False
364 end
365 object lblDate: TLabel
366 Left = 95
367 Top = 29
368 Width = 5
369 Height = 13
370 Alignment = taCenter
371 Font.Charset = DEFAULT_CHARSET
372 Font.Color = clWindowText
373 Font.Height = -11
374 Font.Name = 'MS Sans Serif'
375 Font.Style = [fsBold]
376 ParentFont = False
377 end
378 object lblCollection: TLabel
379 Left = 95
380 Top = 8
381 Width = 44
382 Height = 13
383 Alignment = taCenter
384 Caption = 'Collected'
385 end
386 object cmdNext: TButton
387 Left = 238
388 Top = 23
389 Width = 45
390 Height = 25
391 Caption = '>'
392 Font.Charset = DEFAULT_CHARSET
393 Font.Color = clBtnText
394 Font.Height = -11
395 Font.Name = 'MS Sans Serif'
396 Font.Style = [fsBold]
397 ParentFont = False
398 TabOrder = 2
399 OnClick = cmdNextClick
400 end
401 object cmdPrev: TButton
402 Left = 49
403 Top = 23
404 Width = 45
405 Height = 25
406 Caption = '<'
407 Font.Charset = DEFAULT_CHARSET
408 Font.Color = clBtnText
409 Font.Height = -11
410 Font.Name = 'MS Sans Serif'
411 Font.Style = [fsBold]
412 ParentFont = False
413 TabOrder = 1
414 OnClick = cmdPrevClick
415 end
416 object cmdRecent: TButton
417 Left = 283
418 Top = 23
419 Width = 45
420 Height = 25
421 Caption = '>>'
422 Font.Charset = DEFAULT_CHARSET
423 Font.Color = clBtnText
424 Font.Height = -11
425 Font.Name = 'MS Sans Serif'
426 Font.Style = [fsBold]
427 ParentFont = False
428 TabOrder = 3
429 OnClick = cmdRecentClick
430 end
431 object cmdOld: TButton
432 Left = 4
433 Top = 23
434 Width = 45
435 Height = 25
436 Caption = '<<'
437 Font.Charset = DEFAULT_CHARSET
438 Font.Color = clBtnText
439 Font.Height = -11
440 Font.Name = 'MS Sans Serif'
441 Font.Style = [fsBold]
442 ParentFont = False
443 TabOrder = 0
444 OnClick = cmdOldClick
445 end
446 end
447 end
448 object pnlFooter: TORAutoPanel
449 Left = 0
450 Top = 328
451 Width = 539
452 Height = 20
453 Align = alBottom
454 TabOrder = 7
455 object lblSpecimen: TLabel
456 Left = 4
457 Top = 28
458 Width = 57
459 Height = 13
460 Caption = 'lblSpecimen'
461 Visible = False
462 end
463 object lblSingleTest: TLabel
464 Left = 88
465 Top = 28
466 Width = 60
467 Height = 13
468 Caption = 'lblSingleTest'
469 Visible = False
470 end
471 object lblFooter: TOROffsetLabel
472 Left = 1
473 Top = 1
474 Width = 537
475 Height = 25
476 Align = alTop
477 Caption =
478 ' KEY: "L" = Abnormal Low, "H" = Abnormal High, "*" = Critical V' +
479 'alue'
480 HorzOffset = 2
481 Transparent = False
482 VertOffset = 2
483 WordWrap = False
484 end
485 object lstTests: TORListBox
486 Left = 24
487 Top = 27
488 Width = 89
489 Height = 17
490 ItemHeight = 13
491 ParentShowHint = False
492 ShowHint = True
493 TabOrder = 0
494 Visible = False
495 ItemTipColor = clWindow
496 LongList = False
497 end
498 end
499 object grdLab: TCaptionStringGrid
500 Left = 0
501 Top = 95
502 Width = 539
503 Height = 122
504 Align = alTop
505 Color = clCream
506 DefaultRowHeight = 15
507 RowCount = 2
508 Font.Charset = DEFAULT_CHARSET
509 Font.Color = clWindowText
510 Font.Height = -11
511 Font.Name = 'MS Sans Serif'
512 Font.Style = []
513 Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goColSizing]
514 ParentFont = False
515 TabOrder = 2
516 Visible = False
517 Caption = 'Laboratory Results'
518 ColWidths = (
519 64
520 64
521 64
522 64
523 64)
524 RowHeights = (
525 15
526 15)
527 end
528 object pnlChart: TPanel
529 Left = 0
530 Top = 217
531 Width = 539
532 Height = 85
533 Align = alTop
534 BevelOuter = bvNone
535 Caption = 'no results to graph'
536 TabOrder = 3
537 Visible = False
538 object lblGraph: TLabel
539 Left = 0
540 Top = 72
541 Width = 370
542 Height = 13
543 Alignment = taCenter
544 Caption =
545 'Results may be available, but cannot be graphed. Please try an a' +
546 'lternate view.'
547 end
548 object lstTestGraph: TORListBox
549 Left = 0
550 Top = 0
551 Width = 97
552 Height = 85
553 Align = alLeft
554 ItemHeight = 13
555 ParentShowHint = False
556 ShowHint = True
557 TabOrder = 0
558 OnClick = lstTestGraphClick
559 Caption = 'Tests Graphed'
560 ItemTipColor = clWindow
561 LongList = False
562 Pieces = '2'
563 end
564 object chtChart: TChart
565 Left = 97
566 Top = 0
567 Width = 442
568 Height = 85
569 AllowPanning = pmNone
570 AllowZoom = False
571 BackWall.Brush.Color = clWhite
572 BackWall.Brush.Style = bsClear
573 Title.Text.Strings = (
574 'test name')
575 Title.Visible = False
576 OnClickLegend = chtChartClickLegend
577 OnClickSeries = chtChartClickSeries
578 OnUndoZoom = chtChartUndoZoom
579 LeftAxis.Title.Caption = 'units'
580 Legend.Alignment = laTop
581 Legend.Inverted = True
582 Legend.ShadowSize = 2
583 View3D = False
584 Align = alClient
585 BevelOuter = bvNone
586 Color = clSilver
587 PopupMenu = popChart
588 TabOrder = 1
589 OnMouseDown = chtChartMouseDown
590 object serHigh: TLineSeries
591 Marks.ArrowLength = 8
592 Marks.Visible = False
593 SeriesColor = clRed
594 Title = 'Ref High'
595 LinePen.Style = psDash
596 Pointer.InflateMargins = True
597 Pointer.Style = psRectangle
598 Pointer.Visible = False
599 XValues.DateTime = True
600 XValues.Name = 'X'
601 XValues.Multiplier = 1.000000000000000000
602 XValues.Order = loAscending
603 YValues.DateTime = False
604 YValues.Name = 'Y'
605 YValues.Multiplier = 1.000000000000000000
606 YValues.Order = loNone
607 end
608 object serLow: TLineSeries
609 Marks.ArrowLength = 8
610 Marks.Visible = False
611 SeriesColor = clRed
612 Title = 'Ref Low'
613 LinePen.Style = psDash
614 Pointer.InflateMargins = True
615 Pointer.Style = psRectangle
616 Pointer.Visible = False
617 XValues.DateTime = False
618 XValues.Name = 'X'
619 XValues.Multiplier = 1.000000000000000000
620 XValues.Order = loAscending
621 YValues.DateTime = False
622 YValues.Name = 'Y'
623 YValues.Multiplier = 1.000000000000000000
624 YValues.Order = loNone
625 end
626 object serTest: TLineSeries
627 Marks.ArrowLength = 8
628 Marks.Visible = False
629 SeriesColor = clBlue
630 Title = 'Lab Test'
631 Pointer.InflateMargins = True
632 Pointer.Style = psCircle
633 Pointer.Visible = True
634 XValues.DateTime = True
635 XValues.Name = 'X'
636 XValues.Multiplier = 1.000000000000000000
637 XValues.Order = loAscending
638 YValues.DateTime = False
639 YValues.Name = 'Y'
640 YValues.Multiplier = 1.000000000000000000
641 YValues.Order = loNone
642 end
643 end
644 end
645 object memLab: TRichEdit
646 Left = 0
647 Top = 321
648 Width = 539
649 Height = 7
650 Align = alClient
651 Color = clCream
652 Font.Charset = DEFAULT_CHARSET
653 Font.Color = clWindowText
654 Font.Height = -11
655 Font.Name = 'Courier New'
656 Font.Style = []
657 ParentFont = False
658 PopupMenu = PopupMenu1
659 ReadOnly = True
660 ScrollBars = ssBoth
661 TabOrder = 5
662 Visible = False
663 WantReturns = False
664 WordWrap = False
665 end
666 object Memo1: TMemo
667 Left = 0
668 Top = 302
669 Width = 539
670 Height = 19
671 Align = alTop
672 Font.Charset = DEFAULT_CHARSET
673 Font.Color = clWindowText
674 Font.Height = -11
675 Font.Name = 'Courier New'
676 Font.Style = []
677 Lines.Strings = (
678 '')
679 ParentFont = False
680 ScrollBars = ssVertical
681 TabOrder = 4
682 Visible = False
683 WantTabs = True
684 WordWrap = False
685 OnKeyUp = Memo1KeyUp
686 end
687 object TabControl1: TTabControl
688 Left = 0
689 Top = 79
690 Width = 539
691 Height = 16
692 Align = alTop
693 HotTrack = True
694 Style = tsButtons
695 TabHeight = 16
696 TabOrder = 1
697 Visible = False
698 OnChange = TabControl1Change
699 end
700 object WebBrowser1: TWebBrowser
701 Left = 0
702 Top = 321
703 Width = 539
704 Height = 7
705 TabStop = False
706 Align = alClient
707 TabOrder = 6
708 OnDocumentComplete = WebBrowser1DocumentComplete
709 ControlData = {
710 4C000000B5370000B90000000000000000000000000000000000000000000000
711 000000004C000000000000000000000001000000E0D057007335CF11AE690800
712 2B2E126208000000000000004C0000000114020000000000C000000000000046
713 8000000000000000000000000000000000000000000000000000000000000000
714 00000000000000000100000000000000000000000000000000000000}
715 end
716 end
717 object PopupMenu1: TPopupMenu
718 OnPopup = PopupMenu1Popup
719 Left = 5
720 Top = 320
721 object GotoTop1: TMenuItem
722 Caption = 'Go to Top'
723 Enabled = False
724 OnClick = GotoTop1Click
725 end
726 object GotoBottom1: TMenuItem
727 Caption = 'Go to Bottom'
728 Enabled = False
729 OnClick = GotoBottom1Click
730 end
731 object FreezeText1: TMenuItem
732 Caption = 'Freeze Text'
733 Enabled = False
734 OnClick = FreezeText1Click
735 end
736 object UnfreezeText1: TMenuItem
737 Caption = 'Un-freeze Text'
738 Enabled = False
739 OnClick = UnfreezeText1Click
740 end
741 end
742 object popChart: TPopupMenu
743 OnPopup = popChartPopup
744 Left = 37
745 Top = 317
746 object popValues: TMenuItem
747 Caption = 'Values'
748 OnClick = popValuesClick
749 end
750 object pop3D: TMenuItem
751 Caption = '3D'
752 OnClick = pop3DClick
753 end
754 object popZoom: TMenuItem
755 Caption = 'Zoom Enabled'
756 OnClick = popZoomClick
757 end
758 object popZoomBack: TMenuItem
759 Caption = 'Zoom Back'
760 OnClick = popZoomBackClick
761 end
762 object N1: TMenuItem
763 Caption = '-'
764 end
765 object popCopy: TMenuItem
766 Caption = 'Copy'
767 OnClick = popCopyClick
768 end
769 object N2: TMenuItem
770 Caption = '-'
771 end
772 object popDetails: TMenuItem
773 Caption = 'Details'
774 OnClick = popDetailsClick
775 end
776 object N3: TMenuItem
777 Caption = '-'
778 end
779 object popPrint: TMenuItem
780 Caption = 'Print'
781 OnClick = popPrintClick
782 end
783 end
784 object calLabRange: TORDateRangeDlg
785 DateOnly = True
786 Instruction = 'Enter a date range -'
787 LabelStart = 'Begin Date'
788 LabelStop = 'End Date'
789 RequireTime = False
790 Format = 'mmm d,yy'
791 Left = 66
792 Top = 320
793 end
794 object dlgWinPrint: TPrintDialog
795 Left = 610
796 Top = 23
797 end
798 object Timer1: TTimer
799 Interval = 100
800 OnTimer = Timer1Timer
801 Left = 253
802 Top = 45
803 end
804end
Note: See TracBrowser for help on using the repository browser.