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

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

Upgrading to version 27

File size: 29.5 KB
RevLine 
[456]1inherited frmLabs: TfrmLabs
[830]2 Left = 628
[456]3 Top = 237
4 HelpContext = 8000
5 Caption = 'Laboratory Results Page'
[830]6 ClientHeight = 701
[456]7 HelpFile = 'qnoback'
8 OnDestroy = FormDestroy
[830]9 ExplicitLeft = 628
10 ExplicitTop = 237
11 ExplicitWidth = 648
12 ExplicitHeight = 728
[456]13 PixelsPerInch = 96
14 TextHeight = 13
15 inherited shpPageBottom: TShape
[830]16 Top = 696
17 ExplicitTop = 355
[456]18 end
19 inherited sptHorz: TSplitter
[830]20 Height = 696
21 ExplicitHeight = 355
[456]22 end
23 inherited pnlLeft: TPanel
[830]24 Height = 696
25 ExplicitHeight = 696
26 object Splitter1: TSplitter
[456]27 Left = 0
[830]28 Top = 436
[456]29 Width = 97
[830]30 Height = 10
31 Cursor = crVSplit
[456]32 Align = alBottom
[830]33 Color = clBtnFace
34 ParentColor = False
35 OnCanResize = Splitter1CanResize
36 ExplicitLeft = -1
37 ExplicitTop = 263
[456]38 end
[830]39 object pnlLefTop: TPanel
[456]40 Left = 0
[830]41 Top = 0
[456]42 Width = 97
[830]43 Height = 436
[456]44 Align = alClient
[830]45 BevelOuter = bvNone
46 Constraints.MinWidth = 30
[456]47 TabOrder = 0
[830]48 object lblReports: TOROffsetLabel
49 Left = 0
50 Top = 0
51 Width = 97
52 Height = 19
53 Align = alTop
54 Caption = 'Lab Results'
55 HorzOffset = 2
56 Transparent = False
57 VertOffset = 6
58 WordWrap = False
59 ExplicitLeft = -41
60 ExplicitTop = 54
61 end
62 object tvReports: TORTreeView
63 Left = 0
64 Top = 19
65 Width = 97
66 Height = 417
67 Align = alClient
68 HideSelection = False
69 Indent = 18
70 ReadOnly = True
71 TabOrder = 0
72 OnClick = tvReportsClick
73 OnCollapsing = tvReportsCollapsing
74 OnExpanding = tvReportsExpanding
75 OnKeyDown = tvReportsKeyDown
76 Caption = 'Available Reports'
77 NodePiece = 0
78 end
[456]79 end
[830]80 object pnlLeftBottom: TPanel
[456]81 Left = 0
[830]82 Top = 446
[456]83 Width = 97
[830]84 Height = 250
[456]85 Align = alBottom
86 TabOrder = 1
[830]87 object lblQualifier: TOROffsetLabel
88 Left = 1
89 Top = 1
90 Width = 95
91 Height = 21
92 Align = alTop
93 HorzOffset = 3
94 Transparent = True
95 VertOffset = 4
96 Visible = False
97 WordWrap = False
98 ExplicitWidth = 98
[456]99 end
[830]100 object lblHeaders: TOROffsetLabel
101 Left = 1
102 Top = 120
103 Width = 95
104 Height = 17
105 Align = alTop
106 HorzOffset = 2
107 Transparent = False
108 VertOffset = 2
109 WordWrap = False
110 ExplicitTop = 185
111 ExplicitWidth = 97
112 end
113 object lblDates: TOROffsetLabel
114 Left = 1
115 Top = 105
116 Width = 95
117 Height = 15
118 Align = alTop
119 Caption = 'Date Range'
120 HorzOffset = 2
121 Transparent = False
122 VertOffset = 2
123 WordWrap = False
124 ExplicitLeft = 0
125 ExplicitTop = 69
126 end
127 object lstQualifier: TORListBox
128 Left = 1
129 Top = 137
130 Width = 95
131 Height = 112
132 Align = alClient
133 ItemHeight = 13
134 ParentShowHint = False
135 ShowHint = True
[456]136 TabOrder = 0
[830]137 Visible = False
138 OnClick = lstQualifierClick
139 ItemTipColor = clWindow
140 LongList = False
141 Pieces = '2,3'
142 TabPositions = '10'
[456]143 end
[830]144 object lstHeaders: TORListBox
145 Left = 1
146 Top = 55
147 Width = 95
148 Height = 50
149 Align = alTop
150 ItemHeight = 13
151 ParentShowHint = False
152 ShowHint = True
153 TabOrder = 1
154 Visible = False
155 OnClick = lstHeadersClick
156 Caption = 'Headings'
157 ItemTipColor = clWindow
158 LongList = False
159 Pieces = '2'
160 end
161 object lstDates: TORListBox
162 Left = 1
163 Top = 137
164 Width = 95
165 Height = 112
166 Align = alClient
167 ItemHeight = 13
168 Items.Strings = (
169 'S^Date Range...'
170 '1^Today'
171 '8^One Week'
172 '15^Two Weeks'
173 '31^One Month'
174 '183^Six Months'
175 '366^One Year'
176 '732^Two Years'
177 '50000^All Results')
178 ParentShowHint = False
179 ShowHint = True
180 TabOrder = 3
181 Visible = False
182 OnClick = lstDatesClick
183 Caption = 'Date Range'
184 ItemTipColor = clWindow
185 LongList = False
186 Pieces = '2'
187 end
188 object pnlOtherTests: TORAutoPanel
189 Left = 1
190 Top = 22
191 Width = 95
192 Height = 33
193 Align = alTop
194 BevelOuter = bvNone
195 TabOrder = 5
196 object bvlOtherTests: TBevel
197 Left = 3
198 Top = 31
199 Width = 90
200 Height = 2
201 end
202 object cmdOtherTests: TButton
203 Left = 11
204 Top = 4
205 Width = 75
206 Height = 25
207 Caption = 'Other Tests'
208 TabOrder = 0
209 OnClick = cmdOtherTestsClick
210 end
211 end
[456]212 end
213 end
214 inherited pnlRight: TPanel
[830]215 Height = 696
[456]216 OnResize = pnlRightResize
[830]217 ExplicitHeight = 696
218 object sptHorzRight: TSplitter
[456]219 Left = 0
[830]220 Top = 299
[456]221 Width = 539
[830]222 Height = 4
223 Cursor = crVSplit
[456]224 Align = alTop
[830]225 Visible = False
226 OnCanResize = sptHorzRightCanResize
227 OnMoved = sptHorzRightMoved
228 ExplicitTop = 288
[456]229 end
[830]230 object pnlRightBottom: TPanel
[456]231 Left = 0
[830]232 Top = 303
[456]233 Width = 539
[830]234 Height = 373
235 Align = alClient
[456]236 TabOrder = 0
[830]237 object Memo1: TMemo
238 Left = 1
239 Top = 1
240 Width = 537
241 Height = 19
[456]242 Align = alTop
[830]243 Font.Charset = DEFAULT_CHARSET
244 Font.Color = clWindowText
245 Font.Height = -11
246 Font.Name = 'Courier New'
247 Font.Style = []
248 Lines.Strings = (
249 '')
250 ParentFont = False
251 ScrollBars = ssVertical
252 TabOrder = 0
253 Visible = False
254 WantTabs = True
255 WordWrap = False
256 OnKeyUp = Memo1KeyUp
[456]257 end
[830]258 object memLab: TRichEdit
259 Left = 1
260 Top = 20
261 Width = 537
262 Height = 352
263 Align = alClient
264 Color = clCream
265 Font.Charset = DEFAULT_CHARSET
266 Font.Color = clWindowText
267 Font.Height = -11
268 Font.Name = 'Courier New'
269 Font.Style = []
270 ParentFont = False
271 PopupMenu = PopupMenu3
272 ReadOnly = True
273 ScrollBars = ssBoth
274 TabOrder = 1
[456]275 Visible = False
[830]276 WantReturns = False
277 WordWrap = False
[456]278 end
[830]279 end
280 object pnlRightTop: TPanel
281 Left = 0
282 Top = 25
283 Width = 539
284 Height = 274
285 Align = alTop
286 TabOrder = 1
287 object bvlHeader: TBevel
288 Left = 1
289 Top = 61
290 Width = 537
291 Height = 1
292 Align = alTop
293 ExplicitLeft = -8
294 ExplicitTop = 72
295 ExplicitWidth = 539
296 end
297 object pnlHeader: TORAutoPanel
298 Left = 1
299 Top = 1
300 Width = 537
301 Height = 60
302 Align = alTop
[456]303 BevelOuter = bvNone
[830]304 TabOrder = 0
305 object lblDateFloat: TLabel
306 Left = 396
307 Top = 4
[456]308 Width = 56
[830]309 Height = 13
310 Caption = 'lblDateFloat'
311 Visible = False
[456]312 end
[830]313 object pnlWorksheet: TORAutoPanel
314 Left = 0
[456]315 Top = 0
[830]316 Width = 537
317 Height = 60
318 Align = alClient
319 BevelOuter = bvNone
320 TabOrder = 1
321 object chkValues: TCheckBox
322 Left = 404
323 Top = 39
324 Width = 93
325 Height = 17
326 Caption = 'Values'
327 Enabled = False
328 TabOrder = 5
329 OnClick = chkValuesClick
330 end
331 object chk3D: TCheckBox
332 Left = 329
333 Top = 39
334 Width = 56
335 Height = 17
336 Caption = '3D'
337 Enabled = False
338 TabOrder = 4
339 OnClick = chk3DClick
340 end
341 object ragHorV: TRadioGroup
342 Left = 12
343 Top = 0
344 Width = 213
345 Height = 36
346 Caption = 'Table Format '
347 Columns = 2
348 ItemIndex = 0
349 Items.Strings = (
350 '&Horizontal'
351 '&Vertical')
352 TabOrder = 0
353 OnClick = ragHorVClick
354 end
355 object chkAbnormals: TCheckBox
356 Left = 12
357 Top = 39
358 Width = 221
359 Height = 17
360 Caption = 'Abnormal Results Only'
361 TabOrder = 2
362 OnClick = ragHorVClick
363 end
364 object ragCorG: TRadioGroup
365 Left = 252
366 Top = 0
367 Width = 213
368 Height = 36
369 Caption = 'Other Formats '
370 Columns = 2
371 ItemIndex = 0
372 Items.Strings = (
373 '&Comments'
374 '&Graph')
375 TabOrder = 1
376 OnClick = ragCorGClick
377 end
378 object chkZoom: TCheckBox
379 Left = 253
380 Top = 39
381 Width = 68
382 Height = 17
383 Caption = 'Zoom'
384 Enabled = False
385 TabOrder = 3
386 OnClick = chkZoomClick
387 end
[456]388 end
[830]389 object pnlGraph: TORAutoPanel
390 Left = 0
391 Top = 0
392 Width = 537
393 Height = 60
394 Align = alClient
395 BevelOuter = bvNone
[456]396 TabOrder = 2
[830]397 object lblGraphInfo: TLabel
398 Left = 0
399 Top = 47
400 Width = 537
401 Height = 13
402 Align = alBottom
403 Caption =
404 'To Zoom, hold down the mouse button while dragging an area to be' +
405 ' enlarged.'
406 ExplicitWidth = 367
407 end
408 object chkGraph3D: TCheckBox
409 Left = 162
410 Top = 13
411 Width = 61
412 Height = 17
413 Caption = '3D'
414 TabOrder = 1
415 OnClick = chkGraph3DClick
416 end
417 object chkGraphValues: TCheckBox
418 Left = 276
419 Top = 13
420 Width = 101
421 Height = 17
422 Caption = 'Values'
423 TabOrder = 2
424 OnClick = chkGraphValuesClick
425 end
426 object chkGraphZoom: TCheckBox
427 Left = 48
428 Top = 13
429 Width = 97
430 Height = 17
431 Caption = 'Zoom'
432 TabOrder = 0
433 OnClick = chkGraphZoomClick
434 end
[456]435 end
[830]436 object pnlButtons: TORAutoPanel
437 Left = 0
[456]438 Top = 0
[830]439 Width = 537
440 Height = 60
441 Align = alClient
442 BevelOuter = bvNone
443 TabOrder = 0
444 object lblOld: TOROffsetLabel
445 Left = 4
446 Top = 6
447 Width = 41
448 Height = 15
449 Caption = 'Oldest'
450 HorzOffset = 2
451 Transparent = False
452 VertOffset = 2
453 WordWrap = False
454 end
455 object lblPrev: TOROffsetLabel
456 Left = 48
457 Top = 6
458 Width = 49
459 Height = 15
460 Caption = 'Previous'
461 HorzOffset = 2
462 Transparent = False
463 VertOffset = 2
464 WordWrap = False
465 end
466 object lblNext: TOROffsetLabel
467 Left = 246
468 Top = 6
469 Width = 31
470 Height = 15
471 Caption = 'Next'
472 HorzOffset = 2
473 Transparent = False
474 VertOffset = 2
475 WordWrap = False
476 end
477 object lblRecent: TOROffsetLabel
478 Left = 287
479 Top = 6
480 Width = 46
481 Height = 15
482 Caption = 'Newest'
483 HorzOffset = 2
484 Transparent = False
485 VertOffset = 2
486 WordWrap = False
487 end
488 object lblMostRecent: TLabel
489 Left = 368
490 Top = 29
491 Width = 144
492 Height = 13
493 Caption = 'Most Recent Lab Results'
494 Font.Charset = DEFAULT_CHARSET
495 Font.Color = clWindowText
496 Font.Height = -11
497 Font.Name = 'MS Sans Serif'
498 Font.Style = [fsBold]
499 ParentFont = False
500 end
501 object lblCollection: TLabel
502 Left = 100
503 Top = 8
504 Width = 44
505 Height = 13
506 Alignment = taCenter
507 Caption = 'Collecte&d'
508 FocusControl = lblDate
509 end
510 object lblDate: TVA508StaticText
511 Name = 'lblDate'
512 Left = 95
513 Top = 29
514 Width = 7
515 Height = 15
516 Alignment = taCenter
517 AutoSize = True
518 Font.Charset = DEFAULT_CHARSET
519 Font.Color = clWindowText
520 Font.Height = -11
521 Font.Name = 'MS Sans Serif'
522 Font.Style = [fsBold]
523 ParentFont = False
524 TabOrder = 0
525 OnEnter = lblDateEnter
526 ShowAccelChar = True
527 end
528 object cmdNext: TButton
529 Left = 238
530 Top = 23
531 Width = 45
532 Height = 25
533 Caption = '>'
534 Font.Charset = DEFAULT_CHARSET
535 Font.Color = clBtnText
536 Font.Height = -11
537 Font.Name = 'MS Sans Serif'
538 Font.Style = [fsBold]
539 ParentFont = False
540 TabOrder = 3
541 OnClick = cmdNextClick
542 end
543 object cmdPrev: TButton
544 Left = 49
545 Top = 23
546 Width = 45
547 Height = 25
548 Caption = '<'
549 Font.Charset = DEFAULT_CHARSET
550 Font.Color = clBtnText
551 Font.Height = -11
552 Font.Name = 'MS Sans Serif'
553 Font.Style = [fsBold]
554 ParentFont = False
555 TabOrder = 2
556 OnClick = cmdPrevClick
557 end
558 object cmdRecent: TButton
559 Left = 283
560 Top = 23
561 Width = 45
562 Height = 25
563 Caption = '>>'
564 Font.Charset = DEFAULT_CHARSET
565 Font.Color = clBtnText
566 Font.Height = -11
567 Font.Name = 'MS Sans Serif'
568 Font.Style = [fsBold]
569 ParentFont = False
570 TabOrder = 4
571 OnClick = cmdRecentClick
572 end
573 object cmdOld: TButton
574 Left = 4
575 Top = 23
576 Width = 45
577 Height = 25
578 Caption = '<<'
579 Font.Charset = DEFAULT_CHARSET
580 Font.Color = clBtnText
581 Font.Height = -11
582 Font.Name = 'MS Sans Serif'
583 Font.Style = [fsBold]
584 ParentFont = False
585 TabOrder = 1
586 OnClick = cmdOldClick
587 end
[456]588 end
589 end
[830]590 object TabControl1: TTabControl
591 Left = 1
592 Top = 62
593 Width = 537
594 Height = 16
595 Align = alTop
596 HotTrack = True
597 Style = tsButtons
598 TabHeight = 16
599 TabOrder = 1
600 Visible = False
601 OnChange = TabControl1Change
602 end
603 object grdLab: TCaptionStringGrid
604 Left = 1
605 Top = 78
606 Width = 537
607 Height = 33
608 Align = alTop
609 Color = clCream
610 DefaultRowHeight = 15
611 RowCount = 2
612 Font.Charset = DEFAULT_CHARSET
613 Font.Color = clWindowText
614 Font.Height = -11
615 Font.Name = 'MS Sans Serif'
616 Font.Style = []
617 Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goColSizing]
618 ParentFont = False
619 TabOrder = 2
620 Visible = False
621 Caption = 'Laboratory Results'
622 ColWidths = (
623 64
624 64
625 64
626 64
627 64)
628 RowHeights = (
629 15
630 15)
631 end
632 object pnlChart: TPanel
633 Left = 1
634 Top = 111
635 Width = 537
636 Height = 85
637 Align = alTop
[456]638 BevelOuter = bvNone
[830]639 Caption = 'no results to graph'
640 TabOrder = 3
641 Visible = False
642 object lblGraph: TLabel
[456]643 Left = 0
[830]644 Top = 72
645 Width = 370
[456]646 Height = 13
[830]647 Alignment = taCenter
[456]648 Caption =
[830]649 'Results may be available, but cannot be graphed. Please try an a' +
650 'lternate view.'
[456]651 end
[830]652 object lstTestGraph: TORListBox
653 Left = 0
654 Top = 0
[456]655 Width = 97
[830]656 Height = 85
657 Align = alLeft
658 ItemHeight = 13
659 ParentShowHint = False
660 ShowHint = True
[456]661 TabOrder = 0
[830]662 OnClick = lstTestGraphClick
663 Caption = 'Tests Graphed'
664 ItemTipColor = clWindow
665 LongList = False
666 Pieces = '2'
[456]667 end
[830]668 object chtChart: TChart
669 Left = 97
670 Top = 0
671 Width = 440
672 Height = 85
673 AllowPanning = pmNone
674 AllowZoom = False
675 BackWall.Brush.Color = clWhite
676 BackWall.Brush.Style = bsClear
677 Title.Text.Strings = (
678 'test name')
679 Title.Visible = False
680 OnClickLegend = chtChartClickLegend
681 OnClickSeries = chtChartClickSeries
682 OnUndoZoom = chtChartUndoZoom
683 LeftAxis.Title.Caption = 'units'
684 Legend.Alignment = laTop
685 Legend.Inverted = True
686 Legend.ShadowSize = 2
687 View3D = False
688 Align = alClient
689 BevelOuter = bvNone
690 Color = clSilver
691 PopupMenu = popChart
692 TabOrder = 1
693 OnMouseDown = chtChartMouseDown
694 object serHigh: TLineSeries
695 Marks.ArrowLength = 8
696 Marks.Visible = False
697 SeriesColor = clRed
698 Title = 'Ref High'
699 LinePen.Style = psDash
700 Pointer.InflateMargins = True
701 Pointer.Style = psRectangle
702 Pointer.Visible = False
703 XValues.DateTime = True
704 XValues.Name = 'X'
705 XValues.Multiplier = 1.000000000000000000
706 XValues.Order = loAscending
707 YValues.DateTime = False
708 YValues.Name = 'Y'
709 YValues.Multiplier = 1.000000000000000000
710 YValues.Order = loNone
711 end
712 object serLow: TLineSeries
713 Marks.ArrowLength = 8
714 Marks.Visible = False
715 SeriesColor = clRed
716 Title = 'Ref Low'
717 LinePen.Style = psDash
718 Pointer.InflateMargins = True
719 Pointer.Style = psRectangle
720 Pointer.Visible = False
721 XValues.DateTime = False
722 XValues.Name = 'X'
723 XValues.Multiplier = 1.000000000000000000
724 XValues.Order = loAscending
725 YValues.DateTime = False
726 YValues.Name = 'Y'
727 YValues.Multiplier = 1.000000000000000000
728 YValues.Order = loNone
729 end
730 object serTest: TLineSeries
731 Marks.ArrowLength = 8
732 Marks.Visible = False
733 SeriesColor = clBlue
734 Title = 'Lab Test'
735 Pointer.InflateMargins = True
736 Pointer.Style = psCircle
737 Pointer.Visible = True
738 XValues.DateTime = True
739 XValues.Name = 'X'
740 XValues.Multiplier = 1.000000000000000000
741 XValues.Order = loAscending
742 YValues.DateTime = False
743 YValues.Name = 'Y'
744 YValues.Multiplier = 1.000000000000000000
745 YValues.Order = loNone
746 end
747 end
[456]748 end
[830]749 object lvReports: TCaptionListView
750 Left = 1
751 Top = 196
752 Width = 537
753 Height = 77
754 Hint = 'To sort, click on column headers|'
[456]755 Align = alClient
[830]756 Columns = <>
757 Constraints.MinHeight = 50
758 HideSelection = False
759 MultiSelect = True
760 ReadOnly = True
761 RowSelect = True
762 ParentShowHint = False
763 PopupMenu = PopupMenu2
764 ShowHint = True
765 TabOrder = 4
766 ViewStyle = vsReport
767 OnColumnClick = lvReportsColumnClick
768 OnCompare = lvReportsCompare
769 OnKeyUp = lvReportsKeyUp
770 OnSelectItem = lvReportsSelectItem
771 end
772 end
773 object pnlRightTopHeader: TPanel
774 Left = 0
775 Top = 0
776 Width = 539
777 Height = 25
778 Align = alTop
779 TabOrder = 2
780 object lblHeading: TOROffsetLabel
781 Left = 1
782 Top = 1
783 Width = 94
784 Height = 23
785 Align = alLeft
786 Caption = 'Laboratory Results'
787 HorzOffset = 2
788 Transparent = False
789 VertOffset = 6
790 WordWrap = False
791 ExplicitHeight = 39
792 end
793 object lblTitle: TOROffsetLabel
794 Left = 95
795 Top = 1
796 Width = 346
797 Height = 23
798 Align = alClient
799 HorzOffset = 3
800 Transparent = True
801 VertOffset = 6
802 WordWrap = False
803 ExplicitLeft = 80
804 ExplicitWidth = 369
805 ExplicitHeight = 39
806 end
807 object chkMaxFreq: TCheckBox
808 Left = 441
809 Top = 1
810 Width = 97
811 Height = 23
812 Align = alRight
813 Caption = 'Max/Site OFF'
[456]814 TabOrder = 0
[830]815 Visible = False
816 OnClick = chkMaxFreqClick
[456]817 end
818 end
819 object pnlFooter: TORAutoPanel
820 Left = 0
[830]821 Top = 676
[456]822 Width = 539
823 Height = 20
824 Align = alBottom
[830]825 TabOrder = 3
[456]826 object lblSpecimen: TLabel
827 Left = 4
828 Top = 28
829 Width = 57
830 Height = 13
831 Caption = 'lblSpecimen'
832 Visible = False
833 end
834 object lblSingleTest: TLabel
835 Left = 88
836 Top = 28
837 Width = 60
838 Height = 13
839 Caption = 'lblSingleTest'
840 Visible = False
841 end
842 object lblFooter: TOROffsetLabel
843 Left = 1
844 Top = 1
845 Width = 537
846 Height = 25
847 Align = alTop
848 Caption =
849 ' KEY: "L" = Abnormal Low, "H" = Abnormal High, "*" = Critical V' +
850 'alue'
851 HorzOffset = 2
852 Transparent = False
853 VertOffset = 2
854 WordWrap = False
[830]855 ExplicitTop = 6
856 ExplicitWidth = 535
[456]857 end
858 object lstTests: TORListBox
[830]859 Left = 1
860 Top = 26
861 Width = 537
[456]862 Height = 17
[830]863 Align = alTop
[456]864 ItemHeight = 13
865 ParentShowHint = False
866 ShowHint = True
867 TabOrder = 0
868 Visible = False
869 ItemTipColor = clWindow
870 LongList = False
871 end
872 end
873 end
[830]874 inherited amgrMain: TVA508AccessibilityManager
875 Data = (
876 (
877 'Component = pnlLeft'
878 'Status = stsDefault')
879 (
880 'Component = pnlRight'
881 'Status = stsDefault')
882 (
883 'Component = frmLabs'
884 'Status = stsDefault')
885 (
886 'Component = pnlRightBottom'
887 'Status = stsDefault')
888 (
889 'Component = Memo1'
890 'Status = stsDefault')
891 (
892 'Component = memLab'
893 'Status = stsDefault')
894 (
895 'Component = pnlRightTop'
896 'Status = stsDefault')
897 (
898 'Component = pnlHeader'
899 'Status = stsDefault')
900 (
901 'Component = pnlWorksheet'
902 'Status = stsDefault')
903 (
904 'Component = chkValues'
905 'Status = stsDefault')
906 (
907 'Component = chk3D'
908 'Status = stsDefault')
909 (
910 'Component = ragHorV'
911 'Status = stsDefault')
912 (
913 'Component = chkAbnormals'
914 'Status = stsDefault')
915 (
916 'Component = ragCorG'
917 'Status = stsDefault')
918 (
919 'Component = chkZoom'
920 'Status = stsDefault')
921 (
922 'Component = pnlGraph'
923 'Status = stsDefault')
924 (
925 'Component = chkGraph3D'
926 'Status = stsDefault')
927 (
928 'Component = chkGraphValues'
929 'Status = stsDefault')
930 (
931 'Component = chkGraphZoom'
932 'Status = stsDefault')
933 (
934 'Component = pnlButtons'
935 'Status = stsDefault')
936 (
937 'Component = lblDate'
938 'Text = Date Collected'
939 'Status = stsOK')
940 (
941 'Component = cmdNext'
942 'Text = Next'
943 'Status = stsOK')
944 (
945 'Component = cmdPrev'
946 'Text = Previous'
947 'Status = stsOK')
948 (
949 'Component = cmdRecent'
950 'Text = Newest'
951 'Status = stsOK')
952 (
953 'Component = cmdOld'
954 'Text = Oldest'
955 'Status = stsOK')
956 (
957 'Component = TabControl1'
958 'Status = stsDefault')
959 (
960 'Component = grdLab'
961 'Status = stsDefault')
962 (
963 'Component = pnlChart'
964 'Status = stsDefault')
965 (
966 'Component = lstTestGraph'
967 'Status = stsDefault')
968 (
969 'Component = chtChart'
970 'Status = stsDefault')
971 (
972 'Component = pnlRightTopHeader'
973 'Status = stsDefault')
974 (
975 'Component = pnlFooter'
976 'Status = stsDefault')
977 (
978 'Component = lstTests'
979 'Status = stsDefault')
980 (
981 'Component = lvReports'
982 'Status = stsDefault')
983 (
984 'Component = pnlLefTop'
985 'Status = stsDefault')
986 (
987 'Component = tvReports'
988 'Status = stsDefault')
989 (
990 'Component = pnlLeftBottom'
991 'Status = stsDefault')
992 (
993 'Component = lstQualifier'
994 'Status = stsDefault')
995 (
996 'Component = lstHeaders'
997 'Status = stsDefault')
998 (
999 'Component = lstDates'
1000 'Status = stsDefault')
1001 (
1002 'Component = pnlOtherTests'
1003 'Status = stsDefault')
1004 (
1005 'Component = cmdOtherTests'
1006 'Status = stsDefault')
1007 (
1008 'Component = chkMaxFreq'
1009 'Status = stsDefault'))
1010 end
[456]1011 object PopupMenu1: TPopupMenu
1012 OnPopup = PopupMenu1Popup
1013 Left = 5
[830]1014 Top = 280
[456]1015 object GotoTop1: TMenuItem
1016 Caption = 'Go to Top'
1017 Enabled = False
1018 OnClick = GotoTop1Click
1019 end
1020 object GotoBottom1: TMenuItem
1021 Caption = 'Go to Bottom'
1022 Enabled = False
1023 OnClick = GotoBottom1Click
1024 end
1025 object FreezeText1: TMenuItem
1026 Caption = 'Freeze Text'
1027 Enabled = False
1028 OnClick = FreezeText1Click
1029 end
1030 object UnfreezeText1: TMenuItem
1031 Caption = 'Un-freeze Text'
1032 Enabled = False
1033 OnClick = UnfreezeText1Click
1034 end
1035 end
1036 object popChart: TPopupMenu
1037 OnPopup = popChartPopup
1038 Left = 37
[830]1039 Top = 277
[456]1040 object popValues: TMenuItem
1041 Caption = 'Values'
1042 OnClick = popValuesClick
1043 end
1044 object pop3D: TMenuItem
1045 Caption = '3D'
1046 OnClick = pop3DClick
1047 end
1048 object popZoom: TMenuItem
1049 Caption = 'Zoom Enabled'
1050 OnClick = popZoomClick
1051 end
1052 object popZoomBack: TMenuItem
1053 Caption = 'Zoom Back'
1054 OnClick = popZoomBackClick
1055 end
1056 object N1: TMenuItem
1057 Caption = '-'
1058 end
1059 object popCopy: TMenuItem
1060 Caption = 'Copy'
1061 OnClick = popCopyClick
1062 end
1063 object N2: TMenuItem
1064 Caption = '-'
1065 end
1066 object popDetails: TMenuItem
1067 Caption = 'Details'
1068 OnClick = popDetailsClick
1069 end
1070 object N3: TMenuItem
1071 Caption = '-'
1072 end
1073 object popPrint: TMenuItem
1074 Caption = 'Print'
1075 OnClick = popPrintClick
1076 end
1077 end
1078 object calLabRange: TORDateRangeDlg
1079 DateOnly = True
1080 Instruction = 'Enter a date range -'
1081 LabelStart = 'Begin Date'
1082 LabelStop = 'End Date'
1083 RequireTime = False
1084 Format = 'mmm d,yy'
1085 Left = 66
[830]1086 Top = 280
[456]1087 end
1088 object dlgWinPrint: TPrintDialog
1089 Left = 610
1090 Top = 23
1091 end
1092 object Timer1: TTimer
1093 Interval = 100
1094 OnTimer = Timer1Timer
1095 Left = 253
1096 Top = 45
1097 end
[830]1098 object PopupMenu2: TPopupMenu
1099 Left = 603
1100 Top = 158
1101 object Print1: TMenuItem
1102 Caption = 'Print'
1103 ShortCut = 16464
1104 OnClick = Print1Click
1105 end
1106 object Copy1: TMenuItem
1107 Caption = 'Copy Data From Table'
1108 ShortCut = 16451
1109 OnClick = Copy1Click
1110 end
1111 object SelectAll1: TMenuItem
1112 Caption = 'Select All From Table'
1113 ShortCut = 16449
1114 OnClick = SelectAll1Click
1115 end
1116 end
1117 object PopupMenu3: TPopupMenu
1118 OnPopup = PopupMenu1Popup
1119 Left = 605
1120 Top = 200
1121 object Print2: TMenuItem
1122 Caption = 'Print'
1123 ShortCut = 16464
1124 OnClick = Print2Click
1125 end
1126 object Copy2: TMenuItem
1127 Caption = 'Copy'
1128 ShortCut = 16451
1129 OnClick = Copy2Click
1130 end
1131 object SelectAll2: TMenuItem
1132 Caption = 'Select All'
1133 ShortCut = 16449
1134 OnClick = SelectAll2Click
1135 end
1136 object MenuItem1: TMenuItem
1137 Caption = 'Go to Top'
1138 Enabled = False
1139 OnClick = GotoTop1Click
1140 end
1141 object MenuItem2: TMenuItem
1142 Caption = 'Go to Bottom'
1143 OnClick = GotoBottom1Click
1144 end
1145 object MenuItem3: TMenuItem
1146 Caption = 'Freeze Text'
1147 Enabled = False
1148 OnClick = FreezeText1Click
1149 end
1150 object MenuItem4: TMenuItem
1151 Caption = 'Un-Freeze Text'
1152 Enabled = False
1153 OnClick = UnfreezeText1Click
1154 end
1155 end
[456]1156end
Note: See TracBrowser for help on using the repository browser.