Context Navigation

fLabs.dfm@ 1204

Last change on this file since 1204 was 460, checked in by Kevin Toppenberg, 17 years ago
Uploading from OR_30_258
File size: 19.9 KB

Line
1	inherited frmLabs: TfrmLabs
2	Left = 628
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 = 355
13	end
14	inherited sptHorz: TSplitter
15	Height = 355
16	end
17	inherited pnlLeft: TPanel
18	Height = 355
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 = 232
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 = 132
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 = 113
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 = 147
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 = 247
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 = 199
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 = 355
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 = 335
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
602	XValues.Order = loAscending
603	YValues.DateTime = False
604	YValues.Name = 'Y'
605	YValues.Multiplier = 1
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
620	XValues.Order = loAscending
621	YValues.DateTime = False
622	YValues.Name = 'Y'
623	YValues.Multiplier = 1
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
637	XValues.Order = loAscending
638	YValues.DateTime = False
639	YValues.Name = 'Y'
640	YValues.Multiplier = 1
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 = 14
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 = 14
705	TabStop = False
706	Align = alClient
707	TabOrder = 6
708	OnDocumentComplete = WebBrowser1DocumentComplete
709	ControlData = {
710	4C000000B5370000720100000000000000000000000000000000000000000000
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
804	end

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

Download in other formats:

Original Format