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

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

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