Context Navigation

fODLab.dfm@ 1694

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

Line
1	inherited frmODLab: TfrmODLab
2	Tag = 120
3	Left = 245
4	Top = 263
5	Width = 523
6	Height = 271
7	Caption = 'Order a Lab Test'
8	ExplicitWidth = 523
9	ExplicitHeight = 271
10	PixelsPerInch = 96
11	TextHeight = 13
12	object lblAvailTests: TLabel [0]
13	Left = 6
14	Top = 4
15	Width = 93
16	Height = 13
17	Caption = 'Available Lab Tests'
18	end
19	object lblCollTime: TLabel [1]
20	Left = 148
21	Top = 152
22	Width = 100
23	Height = 13
24	Caption = 'Collection Date/Time'
25	end
26	object lblTestName: TLabel [2]
27	Left = 180
28	Top = 4
29	Width = 3
30	Height = 13
31	ShowAccelChar = False
32	end
33	object lblCollSamp: TLabel [3]
34	Left = 187
35	Top = 31
36	Width = 70
37	Height = 13
38	Caption = 'Collect Sample'
39	end
40	object lblSpecimen: TLabel [4]
41	Left = 210
42	Top = 58
43	Width = 47
44	Height = 13
45	Caption = 'Specimen'
46	end
47	object lblUrgency: TLabel [5]
48	Left = 217
49	Top = 85
50	Width = 40
51	Height = 13
52	Caption = 'Urgency'
53	end
54	object lblAddlComment: TLabel [6]
55	Left = 187
56	Top = 107
57	Width = 93
58	Height = 13
59	Caption = 'Additional Comment'
60	Visible = False
61	end
62	object bvlTestName: TBevel [7]
63	Left = 180
64	Top = 18
65	Width = 338
66	Height = 130
67	Style = bsRaised
68	end
69	object lblFrequency: TLabel [8]
70	Left = 326
71	Top = 152
72	Width = 57
73	Height = 13
74	Caption = 'How Often?'
75	end
76	object lblReqComment: TOROffsetLabel [9]
77	Left = 386
78	Top = 0
79	Width = 96
80	Height = 19
81	HorzOffset = 2
82	Transparent = False
83	VertOffset = 2
84	WordWrap = False
85	end
86	object lblHowManyDays: TLabel [10]
87	Left = 431
88	Top = 152
89	Width = 55
90	Height = 13
91	Caption = 'How Long?'
92	end
93	object lblCollType: TLabel [11]
94	Left = 7
95	Top = 152
96	Width = 73
97	Height = 13
98	Caption = 'Collection Type'
99	end
100	inherited memOrder: TCaptionMemo
101	TabOrder = 22
102	end
103	object txtImmedColl: TCaptionEdit [13]
104	Left = 149
105	Top = 166
106	Width = 141
107	Height = 21
108	Color = clBtnFace
109	ReadOnly = True
110	TabOrder = 16
111	Text = 'txtImmedColl'
112	end
113	object calCollTime: TORDateBox [14]
114	Left = 149
115	Top = 166
116	Width = 165
117	Height = 21
118	TabOrder = 15
119	OnChange = ControlChange
120	DateOnly = False
121	RequireTime = False
122	end
123	object pnlUrineVolume: TORAutoPanel [15]
124	Left = 378
125	Top = 25
126	Width = 133
127	Height = 118
128	BevelInner = bvLowered
129	BevelOuter = bvNone
130	TabOrder = 10
131	object lblUrineVolume: TOROffsetLabel
132	Left = 6
133	Top = 29
134	Width = 111
135	Height = 15
136	Caption = 'Enter the urine volume:'
137	HorzOffset = 2
138	Transparent = False
139	VertOffset = 2
140	WordWrap = False
141	end
142	object txtUrineVolume: TCaptionEdit
143	Left = 5
144	Top = 56
145	Width = 121
146	Height = 21
147	TabOrder = 0
148	OnExit = txtUrineVolumeExit
149	end
150	end
151	object pnlAntiCoagulation: TORAutoPanel [16]
152	Left = 378
153	Top = 25
154	Width = 133
155	Height = 118
156	BevelInner = bvLowered
157	BevelOuter = bvNone
158	TabOrder = 9
159	object lblAntiCoagulant: TOROffsetLabel
160	Left = 6
161	Top = 8
162	Width = 97
163	Height = 41
164	Caption = 'What kind of anticoagulant is the patient on?'
165	HorzOffset = 2
166	Transparent = False
167	VertOffset = 2
168	WordWrap = True
169	end
170	object txtAntiCoagulant: TCaptionEdit
171	Left = 6
172	Top = 56
173	Width = 121
174	Height = 21
175	TabOrder = 0
176	OnExit = txtAntiCoagulantExit
177	end
178	end
179	object pnlOrderComment: TORAutoPanel [17]
180	Left = 378
181	Top = 25
182	Width = 133
183	Height = 118
184	BevelInner = bvLowered
185	BevelOuter = bvNone
186	TabOrder = 8
187	Visible = False
188	object lblOrderComment: TOROffsetLabel
189	Left = 6
190	Top = 37
191	Width = 103
192	Height = 15
193	Caption = 'Enter order comment:'
194	HorzOffset = 2
195	Transparent = False
196	VertOffset = 2
197	WordWrap = True
198	end
199	object txtOrderComment: TCaptionEdit
200	Left = 6
201	Top = 57
202	Width = 121
203	Height = 21
204	TabOrder = 0
205	OnExit = txtOrderCommentExit
206	end
207	end
208	object pnlHide: TORAutoPanel [18]
209	Left = 378
210	Top = 25
211	Width = 133
212	Height = 118
213	BevelOuter = bvNone
214	TabOrder = 7
215	end
216	object pnlDoseDraw: TORAutoPanel [19]
217	Left = 378
218	Top = 25
219	Width = 133
220	Height = 118
221	BevelInner = bvLowered
222	BevelOuter = bvNone
223	TabOrder = 12
224	object lblDose: TOROffsetLabel
225	Left = 10
226	Top = 15
227	Width = 115
228	Height = 15
229	Caption = 'Enter the last dose time:'
230	HorzOffset = 2
231	Transparent = False
232	VertOffset = 2
233	WordWrap = False
234	end
235	object lblDraw: TOROffsetLabel
236	Left = 10
237	Top = 68
238	Width = 78
239	Height = 15
240	Caption = 'Enter draw time:'
241	HorzOffset = 2
242	Transparent = False
243	VertOffset = 2
244	WordWrap = False
245	end
246	object txtDoseTime: TCaptionEdit
247	Left = 10
248	Top = 31
249	Width = 112
250	Height = 21
251	TabOrder = 0
252	OnExit = txtDoseTimeExit
253	end
254	object txtDrawTime: TCaptionEdit
255	Left = 10
256	Top = 85
257	Width = 112
258	Height = 21
259	TabOrder = 1
260	OnExit = txtDrawTimeExit
261	end
262	end
263	object pnlPeakTrough: TORAutoPanel [20]
264	Left = 378
265	Top = 25
266	Width = 133
267	Height = 118
268	BevelInner = bvLowered
269	BevelOuter = bvNone
270	TabOrder = 11
271	object lblPeakTrough: TOROffsetLabel
272	Left = 6
273	Top = 7
274	Width = 82
275	Height = 13
276	Caption = 'Sample drawn at:'
277	HorzOffset = 0
278	Transparent = False
279	VertOffset = 0
280	WordWrap = True
281	end
282	object grpPeakTrough: TRadioGroup
283	Left = 6
284	Top = 20
285	Width = 120
286	Height = 89
287	Items.Strings = (
288	'&Peak'
289	'&Trough'
290	'&Mid'
291	'&Unknown')
292	TabOrder = 0
293	OnClick = grpPeakTroughClick
294	end
295	end
296	object pnlCollTimeButton: TKeyClickPanel [21]
297	Left = 288
298	Top = 167
299	Width = 20
300	Height = 19
301	BevelOuter = bvNone
302	Caption = 'Select collection time'
303	TabOrder = 17
304	TabStop = True
305	OnClick = cmdImmedCollClick
306	OnEnter = pnlCollTimeButtonEnter
307	OnExit = pnlCollTimeButtonExit
308	object cmdImmedColl: TSpeedButton
309	Left = 1
310	Top = 1
311	Width = 18
312	Height = 17
313	Font.Charset = DEFAULT_CHARSET
314	Font.Color = clWindowText
315	Font.Height = -16
316	Font.Name = 'MS Sans Serif'
317	Font.Style = [fsBold]
318	Glyph.Data = {
319	D6000000424DD60000000000000076000000280000000C0000000C0000000100
320	0400000000006000000000000000000000001000000010000000000000000000
321	80000080000000808000800000008000800080800000C0C0C000808080000000
322	FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
323	0000333333333333000033333333333300003333333333330000300330033003
324	0000300330033003000033333333333300003333333333330000333333333333
325	0000333333333333000033333333333300003333333333330000}
326	ParentFont = False
327	ParentShowHint = False
328	ShowHint = False
329	OnClick = cmdImmedCollClick
330	end
331	end
332	object cboAvailTest: TORComboBox [22]
333	Left = 6
334	Top = 18
335	Width = 168
336	Height = 130
337	Style = orcsSimple
338	AutoSelect = True
339	Caption = 'Available Lab Tests'
340	Color = clWindow
341	DropDownCount = 8
342	ItemHeight = 13
343	ItemTipColor = clWindow
344	ItemTipEnable = True
345	ListItemsOnly = True
346	LongList = True
347	LookupPiece = 0
348	MaxLength = 0
349	Pieces = '2'
350	Sorted = False
351	SynonymChars = '<>'
352	TabOrder = 0
353	OnClick = cboAvailTestSelect
354	OnExit = cboAvailTestExit
355	OnNeedData = cboAvailTestNeedData
356	CharsNeedMatch = 1
357	end
358	object cboFrequency: TORComboBox [23]
359	Left = 326
360	Top = 166
361	Width = 97
362	Height = 21
363	Style = orcsDropDown
364	AutoSelect = True
365	Caption = 'How Often?'
366	Color = clWindow
367	DropDownCount = 8
368	ItemHeight = 13
369	ItemTipColor = clWindow
370	ItemTipEnable = True
371	ListItemsOnly = True
372	LongList = False
373	LookupPiece = 0
374	MaxLength = 0
375	Pieces = '2'
376	Sorted = False
377	SynonymChars = '<>'
378	TabOrder = 18
379	OnChange = cboFrequencyChange
380	CharsNeedMatch = 1
381	end
382	object cboCollSamp: TORComboBox [24]
383	Left = 269
384	Top = 28
385	Width = 100
386	Height = 21
387	Style = orcsDropDown
388	AutoSelect = True
389	Caption = 'Collect Sample'
390	Color = clWindow
391	DropDownCount = 8
392	ItemHeight = 13
393	ItemTipColor = clWindow
394	ItemTipEnable = True
395	ListItemsOnly = True
396	LongList = False
397	LookupPiece = 0
398	MaxLength = 0
399	Pieces = '2'
400	Sorted = False
401	SynonymChars = '<>'
402	TabOrder = 1
403	OnChange = cboCollSampChange
404	OnEnter = cboCollSampMouseClick
405	OnKeyPause = cboCollSampKeyPause
406	OnMouseClick = cboCollSampMouseClick
407	CharsNeedMatch = 1
408	end
409	object cboSpecimen: TORComboBox [25]
410	Left = 269
411	Top = 55
412	Width = 100
413	Height = 21
414	Style = orcsDropDown
415	AutoSelect = True
416	Caption = 'Specimen'
417	Color = clWindow
418	DropDownCount = 10
419	ItemHeight = 13
420	ItemTipColor = clWindow
421	ItemTipEnable = True
422	ListItemsOnly = True
423	LongList = False
424	LookupPiece = 0
425	MaxLength = 0
426	ParentShowHint = False
427	Pieces = '2'
428	ShowHint = True
429	Sorted = False
430	SynonymChars = '<>'
431	TabOrder = 3
432	OnChange = cboSpecimenChange
433	OnEnter = cboSpecimenMouseClick
434	OnKeyPause = cboSpecimenKeyPause
435	OnMouseClick = cboSpecimenMouseClick
436	CharsNeedMatch = 1
437	end
438	object cboUrgency: TORComboBox [26]
439	Left = 269
440	Top = 82
441	Width = 100
442	Height = 21
443	Style = orcsDropDown
444	AutoSelect = True
445	Caption = 'Urgency'
446	Color = clWindow
447	DropDownCount = 8
448	ItemHeight = 13
449	ItemTipColor = clWindow
450	ItemTipEnable = True
451	ListItemsOnly = True
452	LongList = False
453	LookupPiece = 0
454	MaxLength = 0
455	Pieces = '2'
456	Sorted = False
457	SynonymChars = '<>'
458	TabOrder = 5
459	OnChange = cboUrgencyChange
460	CharsNeedMatch = 1
461	end
462	object txtAddlComment: TCaptionEdit [27]
463	Left = 187
464	Top = 122
465	Width = 180
466	Height = 21
467	TabOrder = 6
468	Visible = False
469	OnExit = txtAddlCommentExit
470	Caption = 'Additional Comment'
471	end
472	object txtDays: TCaptionEdit [28]
473	Left = 430
474	Top = 166
475	Width = 84
476	Height = 21
477	Hint = 'Enter a number of days, or an "X" followed by a number of times.'
478	Enabled = False
479	TabOrder = 20
480	OnChange = ControlChange
481	Caption = 'How Long?'
482	end
483	object FLabCommonCombo: TORListBox [29]
484	Left = 440
485	Top = 247
486	Width = 121
487	Height = 97
488	TabStop = False
489	ItemHeight = 13
490	ParentShowHint = False
491	ShowHint = True
492	TabOrder = 26
493	Visible = False
494	ItemTipColor = clWindow
495	LongList = False
496	end
497	object cboCollTime: TORComboBox [30]
498	Left = 149
499	Top = 166
500	Width = 168
501	Height = 21
502	Style = orcsDropDown
503	AutoSelect = True
504	Caption = 'Collection Date/Time'
505	Color = clWindow
506	DropDownCount = 8
507	ItemHeight = 13
508	ItemTipColor = clWindow
509	ItemTipEnable = True
510	ListItemsOnly = False
511	LongList = False
512	LookupPiece = 0
513	MaxLength = 0
514	Pieces = '2'
515	Sorted = False
516	SynonymChars = '<>'
517	TabOrder = 14
518	OnChange = cboCollTimeChange
519	OnExit = cboCollTimeExit
520	CharsNeedMatch = 1
521	end
522	object cboCollType: TORComboBox [31]
523	Left = 6
524	Top = 166
525	Width = 136
526	Height = 21
527	Style = orcsDropDown
528	AutoSelect = True
529	Caption = 'Collection Type'
530	Color = clWindow
531	DropDownCount = 8
532	ItemHeight = 13
533	ItemTipColor = clWindow
534	ItemTipEnable = True
535	ListItemsOnly = True
536	LongList = False
537	LookupPiece = 0
538	MaxLength = 0
539	Pieces = '2'
540	Sorted = False
541	SynonymChars = '<>'
542	TabOrder = 13
543	OnChange = cboCollTypeChange
544	CharsNeedMatch = 1
545	end
546	object Frequencylbl508: TVA508StaticText [32]
547	Name = 'Frequencylbl508'
548	Left = 323
549	Top = 149
550	Width = 59
551	Height = 15
552	Alignment = taLeftJustify
553	Caption = 'How Often?'
554	Enabled = False
555	TabOrder = 19
556	Visible = False
557	ShowAccelChar = True
558	end
559	object HowManyDayslbl508: TVA508StaticText [33]
560	Name = 'HowManyDayslbl508'
561	Left = 431
562	Top = 152
563	Width = 57
564	Height = 15
565	Alignment = taLeftJustify
566	Caption = 'How Long?'
567	Enabled = False
568	TabOrder = 21
569	Visible = False
570	ShowAccelChar = True
571	end
572	inherited cmdAccept: TButton
573	Left = 443
574	TabOrder = 23
575	ExplicitLeft = 443
576	end
577	object specimenlbl508: TVA508StaticText [35]
578	Name = 'specimenlbl508'
579	Left = 210
580	Top = 56
581	Width = 49
582	Height = 15
583	Alignment = taLeftJustify
584	Caption = 'Specimen'
585	Enabled = False
586	TabOrder = 4
587	Visible = False
588	ShowAccelChar = True
589	end
590	inherited cmdQuit: TButton
591	TabOrder = 24
592	end
593	object CollSamplbl508: TVA508StaticText [37]
594	Name = 'CollSamplbl508'
595	Left = 187
596	Top = 31
597	Width = 72
598	Height = 15
599	Alignment = taLeftJustify
600	Caption = 'Collect Sample'
601	Enabled = False
602	TabOrder = 2
603	Visible = False
604	ShowAccelChar = True
605	end
606	inherited pnlMessage: TPanel
607	Left = 18
608	Top = 192
609	Height = 56
610	TabOrder = 25
611	ExplicitLeft = 18
612	ExplicitTop = 192
613	ExplicitHeight = 56
614	inherited imgMessage: TImage
615	Top = 11
616	ExplicitTop = 11
617	end
618	inherited memMessage: TRichEdit
619	Left = 41
620	Top = 5
621	Height = 43
622	PopupMenu = MessagePopup
623	ExplicitLeft = 41
624	ExplicitTop = 5
625	ExplicitHeight = 43
626	end
627	end
628	inherited amgrMain: TVA508AccessibilityManager
629	Data = (
630	(
631	'Component = txtImmedColl'
632	'Status = stsDefault')
633	(
634	'Component = calCollTime'
635	'Status = stsDefault')
636	(
637	'Component = pnlUrineVolume'
638	'Status = stsDefault')
639	(
640	'Component = txtUrineVolume'
641	'Status = stsDefault')
642	(
643	'Component = pnlAntiCoagulation'
644	'Status = stsDefault')
645	(
646	'Component = txtAntiCoagulant'
647	'Status = stsDefault')
648	(
649	'Component = pnlOrderComment'
650	'Status = stsDefault')
651	(
652	'Component = txtOrderComment'
653	'Status = stsDefault')
654	(
655	'Component = pnlHide'
656	'Status = stsDefault')
657	(
658	'Component = pnlDoseDraw'
659	'Status = stsDefault')
660	(
661	'Component = txtDoseTime'
662	'Status = stsDefault')
663	(
664	'Component = txtDrawTime'
665	'Status = stsDefault')
666	(
667	'Component = pnlPeakTrough'
668	'Status = stsDefault')
669	(
670	'Component = grpPeakTrough'
671	'Status = stsDefault')
672	(
673	'Component = pnlCollTimeButton'
674	'Status = stsDefault')
675	(
676	'Component = cboAvailTest'
677	'Status = stsDefault')
678	(
679	'Component = cboFrequency'
680	'Status = stsDefault')
681	(
682	'Component = cboCollSamp'
683	'Status = stsDefault')
684	(
685	'Component = cboSpecimen'
686	'Status = stsDefault')
687	(
688	'Component = cboUrgency'
689	'Status = stsDefault')
690	(
691	'Component = txtAddlComment'
692	'Status = stsDefault')
693	(
694	'Component = txtDays'
695	'Status = stsDefault')
696	(
697	'Component = FLabCommonCombo'
698	'Status = stsDefault')
699	(
700	'Component = cboCollTime'
701	'Status = stsDefault')
702	(
703	'Component = cboCollType'
704	'Status = stsDefault')
705	(
706	'Component = memOrder'
707	'Status = stsDefault')
708	(
709	'Component = cmdAccept'
710	'Status = stsDefault')
711	(
712	'Component = cmdQuit'
713	'Status = stsDefault')
714	(
715	'Component = pnlMessage'
716	'Status = stsDefault')
717	(
718	'Component = memMessage'
719	'Status = stsDefault')
720	(
721	'Component = frmODLab'
722	'Status = stsDefault')
723	(
724	'Component = Frequencylbl508'
725	'Status = stsDefault')
726	(
727	'Component = HowManyDayslbl508'
728	'Status = stsDefault')
729	(
730	'Component = specimenlbl508'
731	'Status = stsDefault')
732	(
733	'Component = CollSamplbl508'
734	'Status = stsDefault'))
735	end
736	object dlgLabCollTime: TORDateTimeDlg
737	FMDateTime = 2980923.000000000000000000
738	DateOnly = False
739	RequireTime = True
740	Left = 219
741	Top = 4
742	end
743	object MessagePopup: TPopupMenu
744	Left = 340
745	Top = 218
746	object ViewinReportWindow1: TMenuItem
747	Caption = '&View in Report Window'
748	OnClick = ViewinReportWindow1Click
749	end
750	end
751	end

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

Download in other formats:

Original Format