Context Navigation

fLabs.dfm@ 1706

Last change on this file since 1706 was 1693, checked in by healthsevak, 10 years ago
Committing the files for first time to this new branch
File size: 28.3 KB

Line
1	inherited frmLabs: TfrmLabs
2	Left = 628
3	Top = 237
4	HelpContext = 8000
5	Caption = 'Laboratory Results Page'
6	ClientHeight = 701
7	HelpFile = 'qnoback'
8	OnDestroy = FormDestroy
9	ExplicitWidth = 648
10	ExplicitHeight = 735
11	PixelsPerInch = 96
12	TextHeight = 13
13	inherited shpPageBottom: TShape
14	Top = 696
15	ExplicitTop = 355
16	end
17	inherited sptHorz: TSplitter
18	Height = 696
19	ExplicitHeight = 355
20	end
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
35	inherited pnlLeft: TPanel
36	Height = 696
37	ExplicitHeight = 696
38	object Splitter1: TSplitter
39	Left = 0
40	Top = 436
41	Width = 97
42	Height = 10
43	Cursor = crVSplit
44	Align = alBottom
45	Color = clBtnFace
46	ParentColor = False
47	OnCanResize = Splitter1CanResize
48	ExplicitLeft = -1
49	ExplicitTop = 263
50	end
51	object pnlLefTop: TPanel
52	Left = 0
53	Top = 0
54	Width = 97
55	Height = 436
56	Align = alClient
57	BevelOuter = bvNone
58	Constraints.MinWidth = 30
59	TabOrder = 0
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
91	end
92	object pnlLeftBottom: TPanel
93	Left = 0
94	Top = 446
95	Width = 97
96	Height = 250
97	Align = alBottom
98	TabOrder = 1
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
111	end
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
148	TabOrder = 0
149	Visible = False
150	OnClick = lstQualifierClick
151	ItemTipColor = clWindow
152	LongList = False
153	Pieces = '2,3'
154	TabPositions = '10'
155	end
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'
187	'732^Two Year'
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
223	end
224	end
225	inherited pnlRight: TPanel
226	Height = 696
227	OnResize = pnlRightResize
228	ExplicitHeight = 696
229	object sptHorzRight: TSplitter
230	Left = 0
231	Top = 296
232	Width = 539
233	Height = 4
234	Cursor = crVSplit
235	Align = alTop
236	Visible = False
237	OnCanResize = sptHorzRightCanResize
238	ExplicitTop = 288
239	end
240	object pnlRightBottom: TPanel
241	Left = 0
242	Top = 300
243	Width = 539
244	Height = 376
245	Align = alClient
246	TabOrder = 0
247	object Memo1: TMemo
248	Left = 1
249	Top = 1
250	Width = 537
251	Height = 19
252	Align = alTop
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
267	end
268	object memLab: TRichEdit
269	Left = 1
270	Top = 20
271	Width = 537
272	Height = 355
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
285	Visible = False
286	WantReturns = False
287	WordWrap = False
288	end
289	end
290	object pnlRightTop: TPanel
291	Left = 0
292	Top = 45
293	Width = 539
294	Height = 251
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
313	BevelOuter = bvNone
314	TabOrder = 0
315	object lblDateFloat: TLabel
316	Left = 396
317	Top = 4
318	Width = 56
319	Height = 13
320	Caption = 'lblDateFloat'
321	Visible = False
322	end
323	object pnlWorksheet: TORAutoPanel
324	Left = 0
325	Top = 0
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
398	end
399	object pnlGraph: TORAutoPanel
400	Left = 0
401	Top = 0
402	Width = 537
403	Height = 60
404	Align = alClient
405	BevelOuter = bvNone
406	TabOrder = 2
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
445	end
446	object pnlButtons: TORAutoPanel
447	Left = 0
448	Top = 0
449	Width = 537
450	Height = 60
451	Align = alClient
452	BevelOuter = bvNone
453	TabOrder = 0
454	object lblMostRecent: TLabel
455	Left = 361
456	Top = 16
457	Width = 129
458	Height = 13
459	Caption = 'Most Recent Lab Data'
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
467	object lblSample: TLabel
468	Left = 1
469	Top = 42
470	Width = 64
471	Height = 13
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
481	end
482	object lblDate: TVA508StaticText
483	Name = 'lblDate'
484	Left = 150
485	Top = 2
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
497	Visible = False
498	OnEnter = lblDateEnter
499	ShowAccelChar = True
500	end
501	object cmdNext: TButton
502	Left = 191
503	Top = 10
504	Width = 82
505	Height = 25
506	Caption = 'Next >'
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
517	Left = 87
518	Top = 10
519	Width = 82
520	Height = 25
521	Caption = '< Previous'
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
532	Left = 279
533	Top = 10
534	Width = 76
535	Height = 25
536	Caption = 'Newest >>'
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
547	Left = 5
548	Top = 10
549	Width = 76
550	Height = 25
551	Caption = '<< Oldest'
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
561	end
562	end
563	object grdLab: TCaptionStringGrid
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
579	TabOrder = 1
580	Visible = False
581	OnTopLeftChanged = grdLabTopLeftChanged
582	Caption = 'Laboratory Results'
583	RowHeights = (
584	15
585	15)
586	end
587	object pnlChart: TPanel
588	Left = 1
589	Top = 95
590	Width = 537
591	Height = 85
592	Align = alTop
593	BevelOuter = bvNone
594	Caption = 'no results to graph'
595	TabOrder = 2
596	Visible = False
597	object lblGraph: TLabel
598	Left = 0
599	Top = 72
600	Width = 370
601	Height = 13
602	Alignment = taCenter
603	Caption =
604	'Results may be available, but cannot be graphed. Please try an a' +
605	'lternate view.'
606	end
607	object lstTestGraph: TORListBox
608	Left = 0
609	Top = 0
610	Width = 97
611	Height = 85
612	Align = alLeft
613	ItemHeight = 13
614	ParentShowHint = False
615	ShowHint = True
616	TabOrder = 0
617	OnClick = lstTestGraphClick
618	Caption = 'Tests Graphed'
619	ItemTipColor = clWindow
620	LongList = False
621	Pieces = '2'
622	end
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
703	end
704	object lvReports: TCaptionListView
705	Left = 1
706	Top = 180
707	Width = 537
708	Height = 70
709	Hint = 'To sort, click on column headers\|'
710	Align = alClient
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
720	TabOrder = 3
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
732	Height = 45
733	Align = alTop
734	TabOrder = 2
735	object pnlRightTopHeaderTop: TPanel
736	Left = 1
737	Top = 1
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
779	end
780	object TabControl1: TTabControl
781	Left = 1
782	Top = 22
783	Width = 537
784	Height = 22
785	Align = alClient
786	HotTrack = True
787	Style = tsButtons
788	TabHeight = 16
789	TabOrder = 1
790	Visible = False
791	OnChange = TabControl1Change
792	end
793	end
794	object pnlFooter: TORAutoPanel
795	Left = 0
796	Top = 676
797	Width = 539
798	Height = 20
799	Align = alBottom
800	TabOrder = 3
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	ExplicitTop = 6
831	ExplicitWidth = 535
832	end
833	object lstTests: TORListBox
834	Left = 1
835	Top = 26
836	Width = 537
837	Height = 17
838	Align = alTop
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
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	(
980	'Component = pnlRightTopHeaderTop'
981	'Status = stsDefault')
982	(
983	'Component = chkMaxFreq'
984	'Status = stsDefault')
985	(
986	'Component = TabControl1'
987	'Status = stsDefault'))
988	end
989	object popChart: TPopupMenu
990	OnPopup = popChartPopup
991	Left = 37
992	Top = 277
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
1039	Top = 280
1040	end
1041	object dlgWinPrint: TPrintDialog
1042	Left = 610
1043	Top = 23
1044	end
1045	object Timer1: TTimer
1046	Interval = 100
1047	OnTimer = Timer1Timer
1048	Left = 605
1049	Top = 69
1050	end
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
1071	OnPopup = PopupMenu3Popup
1072	Left = 597
1073	Top = 344
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
1089	object GoToTop1: TMenuItem
1090	Caption = 'Go to Top'
1091	OnClick = GotoTop1Click
1092	end
1093	object GoToBottom1: TMenuItem
1094	Caption = 'Go to Bottom'
1095	OnClick = GotoBottom1Click
1096	end
1097	object FreezeText1: TMenuItem
1098	Caption = 'Freeze Text'
1099	Enabled = False
1100	OnClick = FreezeText1Click
1101	end
1102	object UnFreezeText1: TMenuItem
1103	Caption = 'Un-Freeze Text'
1104	Enabled = False
1105	OnClick = UnfreezeText1Click
1106	end
1107	end
1108	end

Note: See TracBrowser for help on using the repository browser.

Download in other formats:

Original Format