Context Navigation

fODLab.dfm@ 1677

Last change on this file since 1677 was 829, checked in by Kevin Toppenberg, 14 years ago
Upgrade to version 27
File size: 15.5 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 = 20
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 = 14
111	Text = 'txtImmedColl'
112	end
113	object calCollTime: TORDateBox [14]
114	Left = 149
115	Top = 166
116	Width = 165
117	Height = 21
118	TabOrder = 13
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 = 8
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 = 7
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 = 6
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 = 5
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 = 10
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 = 9
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	inherited cmdAccept: TButton
297	Left = 443
298	TabOrder = 18
299	ExplicitLeft = 443
300	end
301	inherited cmdQuit: TButton
302	TabOrder = 19
303	end
304	inherited pnlMessage: TPanel
305	Left = 18
306	Top = 192
307	Height = 56
308	TabOrder = 21
309	ExplicitLeft = 18
310	ExplicitTop = 192
311	ExplicitHeight = 56
312	inherited imgMessage: TImage
313	Top = 11
314	ExplicitTop = 11
315	end
316	inherited memMessage: TRichEdit
317	Left = 41
318	Top = 5
319	Height = 43
320	PopupMenu = MessagePopup
321	ExplicitLeft = 41
322	ExplicitTop = 5
323	ExplicitHeight = 43
324	end
325	end
326	object pnlCollTimeButton: TKeyClickPanel [24]
327	Left = 288
328	Top = 167
329	Width = 20
330	Height = 19
331	BevelOuter = bvNone
332	Caption = 'Select collection time'
333	TabOrder = 15
334	TabStop = True
335	OnClick = cmdImmedCollClick
336	OnEnter = pnlCollTimeButtonEnter
337	OnExit = pnlCollTimeButtonExit
338	object cmdImmedColl: TSpeedButton
339	Left = 1
340	Top = 1
341	Width = 18
342	Height = 17
343	Font.Charset = DEFAULT_CHARSET
344	Font.Color = clWindowText
345	Font.Height = -16
346	Font.Name = 'MS Sans Serif'
347	Font.Style = [fsBold]
348	Glyph.Data = {
349	D6000000424DD60000000000000076000000280000000C0000000C0000000100
350	0400000000006000000000000000000000001000000010000000000000000000
351	80000080000000808000800000008000800080800000C0C0C000808080000000
352	FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
353	0000333333333333000033333333333300003333333333330000300330033003
354	0000300330033003000033333333333300003333333333330000333333333333
355	0000333333333333000033333333333300003333333333330000}
356	ParentFont = False
357	ParentShowHint = False
358	ShowHint = False
359	OnClick = cmdImmedCollClick
360	end
361	end
362	object cboAvailTest: TORComboBox [25]
363	Left = 6
364	Top = 18
365	Width = 168
366	Height = 130
367	Style = orcsSimple
368	AutoSelect = True
369	Caption = 'Available Lab Tests'
370	Color = clWindow
371	DropDownCount = 8
372	ItemHeight = 13
373	ItemTipColor = clWindow
374	ItemTipEnable = True
375	ListItemsOnly = True
376	LongList = True
377	LookupPiece = 0
378	MaxLength = 0
379	Pieces = '2'
380	Sorted = False
381	SynonymChars = '<>'
382	TabOrder = 0
383	OnClick = cboAvailTestSelect
384	OnExit = cboAvailTestExit
385	OnNeedData = cboAvailTestNeedData
386	CharsNeedMatch = 1
387	end
388	object cboFrequency: TORComboBox [26]
389	Left = 326
390	Top = 166
391	Width = 97
392	Height = 21
393	Style = orcsDropDown
394	AutoSelect = True
395	Caption = 'How Often?'
396	Color = clWindow
397	DropDownCount = 8
398	ItemHeight = 13
399	ItemTipColor = clWindow
400	ItemTipEnable = True
401	ListItemsOnly = True
402	LongList = False
403	LookupPiece = 0
404	MaxLength = 0
405	Pieces = '2'
406	Sorted = False
407	SynonymChars = '<>'
408	TabOrder = 16
409	OnChange = cboFrequencyChange
410	CharsNeedMatch = 1
411	end
412	object cboCollSamp: TORComboBox [27]
413	Left = 269
414	Top = 28
415	Width = 100
416	Height = 21
417	Style = orcsDropDown
418	AutoSelect = True
419	Caption = 'Collect Sample'
420	Color = clWindow
421	DropDownCount = 8
422	ItemHeight = 13
423	ItemTipColor = clWindow
424	ItemTipEnable = True
425	ListItemsOnly = True
426	LongList = False
427	LookupPiece = 0
428	MaxLength = 0
429	Pieces = '2'
430	Sorted = False
431	SynonymChars = '<>'
432	TabOrder = 1
433	OnChange = cboCollSampChange
434	OnEnter = cboCollSampMouseClick
435	OnKeyPause = cboCollSampKeyPause
436	OnMouseClick = cboCollSampMouseClick
437	CharsNeedMatch = 1
438	end
439	object cboSpecimen: TORComboBox [28]
440	Left = 269
441	Top = 55
442	Width = 100
443	Height = 21
444	Style = orcsDropDown
445	AutoSelect = True
446	Caption = 'Specimen'
447	Color = clWindow
448	DropDownCount = 10
449	ItemHeight = 13
450	ItemTipColor = clWindow
451	ItemTipEnable = True
452	ListItemsOnly = True
453	LongList = False
454	LookupPiece = 0
455	MaxLength = 0
456	ParentShowHint = False
457	Pieces = '2'
458	ShowHint = True
459	Sorted = False
460	SynonymChars = '<>'
461	TabOrder = 2
462	OnChange = cboSpecimenChange
463	OnEnter = cboSpecimenMouseClick
464	OnKeyPause = cboSpecimenKeyPause
465	OnMouseClick = cboSpecimenMouseClick
466	CharsNeedMatch = 1
467	end
468	object cboUrgency: TORComboBox [29]
469	Left = 269
470	Top = 82
471	Width = 100
472	Height = 21
473	Style = orcsDropDown
474	AutoSelect = True
475	Caption = 'Urgency'
476	Color = clWindow
477	DropDownCount = 8
478	ItemHeight = 13
479	ItemTipColor = clWindow
480	ItemTipEnable = True
481	ListItemsOnly = True
482	LongList = False
483	LookupPiece = 0
484	MaxLength = 0
485	Pieces = '2'
486	Sorted = False
487	SynonymChars = '<>'
488	TabOrder = 3
489	OnChange = cboUrgencyChange
490	CharsNeedMatch = 1
491	end
492	object txtAddlComment: TCaptionEdit [30]
493	Left = 187
494	Top = 122
495	Width = 180
496	Height = 21
497	TabOrder = 4
498	Visible = False
499	OnExit = txtAddlCommentExit
500	Caption = 'Additional Comment'
501	end
502	object txtDays: TCaptionEdit [31]
503	Left = 430
504	Top = 166
505	Width = 84
506	Height = 21
507	Hint = 'Enter a number of days, or an "X" followed by a number of times.'
508	Enabled = False
509	TabOrder = 17
510	OnChange = ControlChange
511	Caption = 'How Long?'
512	end
513	object FLabCommonCombo: TORListBox [32]
514	Left = 440
515	Top = 247
516	Width = 121
517	Height = 97
518	TabStop = False
519	ItemHeight = 13
520	ParentShowHint = False
521	ShowHint = True
522	TabOrder = 22
523	Visible = False
524	ItemTipColor = clWindow
525	LongList = False
526	end
527	object cboCollTime: TORComboBox [33]
528	Left = 149
529	Top = 166
530	Width = 168
531	Height = 21
532	Style = orcsDropDown
533	AutoSelect = True
534	Caption = 'Collection Date/Time'
535	Color = clWindow
536	DropDownCount = 8
537	ItemHeight = 13
538	ItemTipColor = clWindow
539	ItemTipEnable = True
540	ListItemsOnly = False
541	LongList = False
542	LookupPiece = 0
543	MaxLength = 0
544	Pieces = '2'
545	Sorted = False
546	SynonymChars = '<>'
547	TabOrder = 12
548	OnChange = cboCollTimeChange
549	OnExit = cboCollTimeExit
550	CharsNeedMatch = 1
551	end
552	object cboCollType: TORComboBox [34]
553	Left = 6
554	Top = 166
555	Width = 136
556	Height = 21
557	Style = orcsDropDown
558	AutoSelect = True
559	Caption = 'Collection Type'
560	Color = clWindow
561	DropDownCount = 8
562	ItemHeight = 13
563	ItemTipColor = clWindow
564	ItemTipEnable = True
565	ListItemsOnly = True
566	LongList = False
567	LookupPiece = 0
568	MaxLength = 0
569	Pieces = '2'
570	Sorted = False
571	SynonymChars = '<>'
572	TabOrder = 11
573	OnChange = cboCollTypeChange
574	CharsNeedMatch = 1
575	end
576	inherited amgrMain: TVA508AccessibilityManager
577	Data = (
578	(
579	'Component = txtImmedColl'
580	'Status = stsDefault')
581	(
582	'Component = calCollTime'
583	'Status = stsDefault')
584	(
585	'Component = pnlUrineVolume'
586	'Status = stsDefault')
587	(
588	'Component = txtUrineVolume'
589	'Status = stsDefault')
590	(
591	'Component = pnlAntiCoagulation'
592	'Status = stsDefault')
593	(
594	'Component = txtAntiCoagulant'
595	'Status = stsDefault')
596	(
597	'Component = pnlOrderComment'
598	'Status = stsDefault')
599	(
600	'Component = txtOrderComment'
601	'Status = stsDefault')
602	(
603	'Component = pnlHide'
604	'Status = stsDefault')
605	(
606	'Component = pnlDoseDraw'
607	'Status = stsDefault')
608	(
609	'Component = txtDoseTime'
610	'Status = stsDefault')
611	(
612	'Component = txtDrawTime'
613	'Status = stsDefault')
614	(
615	'Component = pnlPeakTrough'
616	'Status = stsDefault')
617	(
618	'Component = grpPeakTrough'
619	'Status = stsDefault')
620	(
621	'Component = pnlCollTimeButton'
622	'Status = stsDefault')
623	(
624	'Component = cboAvailTest'
625	'Status = stsDefault')
626	(
627	'Component = cboFrequency'
628	'Status = stsDefault')
629	(
630	'Component = cboCollSamp'
631	'Status = stsDefault')
632	(
633	'Component = cboSpecimen'
634	'Status = stsDefault')
635	(
636	'Component = cboUrgency'
637	'Status = stsDefault')
638	(
639	'Component = txtAddlComment'
640	'Status = stsDefault')
641	(
642	'Component = txtDays'
643	'Status = stsDefault')
644	(
645	'Component = FLabCommonCombo'
646	'Status = stsDefault')
647	(
648	'Component = cboCollTime'
649	'Status = stsDefault')
650	(
651	'Component = cboCollType'
652	'Status = stsDefault')
653	(
654	'Component = memOrder'
655	'Status = stsDefault')
656	(
657	'Component = cmdAccept'
658	'Status = stsDefault')
659	(
660	'Component = cmdQuit'
661	'Status = stsDefault')
662	(
663	'Component = pnlMessage'
664	'Status = stsDefault')
665	(
666	'Component = memMessage'
667	'Status = stsDefault')
668	(
669	'Component = frmODLab'
670	'Status = stsDefault'))
671	end
672	object dlgLabCollTime: TORDateTimeDlg
673	FMDateTime = 2980923.000000000000000000
674	DateOnly = False
675	RequireTime = True
676	Left = 219
677	Top = 4
678	end
679	object MessagePopup: TPopupMenu
680	Left = 340
681	Top = 218
682	object ViewinReportWindow1: TMenuItem
683	Caption = '&View in Report Window'
684	OnClick = ViewinReportWindow1Click
685	end
686	end
687	end

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

Download in other formats:

Original Format