Context Navigation

fODMedNVA.dfm@ 1424

Last change on this file since 1424 was 829, checked in by Kevin Toppenberg, 14 years ago
Upgrade to version 27
File size: 12.3 KB

Line
1	inherited frmODMedNVA: TfrmODMedNVA
2	Left = 203
3	Top = 183
4	Width = 632
5	Height = 536
6	Caption = 'Document Herbal/OTC/Non-VA Medications'
7	Constraints.MinHeight = 365
8	ExplicitWidth = 632
9	ExplicitHeight = 536
10	PixelsPerInch = 96
11	TextHeight = 13
12	inherited memOrder: TCaptionMemo
13	Left = 0
14	Top = 461
15	Width = 525
16	Anchors = [akLeft, akRight, akBottom]
17	Constraints.MinWidth = 25
18	TabOrder = 4
19	ExplicitLeft = 0
20	ExplicitTop = 461
21	ExplicitWidth = 525
22	end
23	object pnlMeds: TPanel [1]
24	Left = 6
25	Top = 34
26	Width = 593
27	Height = 415
28	Anchors = [akLeft, akTop, akRight, akBottom]
29	BevelOuter = bvNone
30	Caption = 'pnlMeds'
31	TabOrder = 1
32	object sptSelect: TSplitter
33	Left = 0
34	Top = 133
35	Width = 593
36	Height = 4
37	Cursor = crVSplit
38	Align = alTop
39	end
40	object lstQuick: TCaptionListView
41	Left = 0
42	Top = 0
43	Width = 593
44	Height = 133
45	Align = alTop
46	BevelInner = bvLowered
47	BevelOuter = bvSpace
48	Columns = <
49	item
50	Width = 420
51	end>
52	ColumnClick = False
53	Constraints.MaxHeight = 165
54	HideSelection = False
55	HotTrack = True
56	OwnerData = True
57	ParentShowHint = False
58	ShowColumnHeaders = False
59	ShowHint = True
60	TabOrder = 0
61	TabStop = False
62	ViewStyle = vsReport
63	OnChange = lstChange
64	OnClick = ListViewClick
65	OnData = lstQuickData
66	OnEditing = ListViewEditing
67	OnEnter = ListViewEnter
68	OnResize = ListViewResize
69	Caption = 'Quick Orders'
70	end
71	object lstAll: TCaptionListView
72	Left = 0
73	Top = 137
74	Width = 593
75	Height = 278
76	Align = alClient
77	Columns = <
78	item
79	Width = 420
80	end>
81	ColumnClick = False
82	HideSelection = False
83	OwnerData = True
84	ParentShowHint = False
85	ShowColumnHeaders = False
86	ShowHint = True
87	TabOrder = 1
88	ViewStyle = vsReport
89	OnChange = lstChange
90	OnClick = ListViewClick
91	OnData = lstAllData
92	OnDataHint = lstAllDataHint
93	OnEditing = ListViewEditing
94	OnEnter = ListViewEnter
95	OnResize = ListViewResize
96	Caption = 'All Medication orders'
97	end
98	end
99	object txtMed: TEdit [2]
100	Left = 5
101	Top = 6
102	Width = 596
103	Height = 21
104	Anchors = [akLeft, akTop, akRight]
105	AutoSelect = False
106	TabOrder = 0
107	Text = '(Type a medication name or select from the orders below)'
108	OnChange = txtMedChange
109	OnExit = txtMedExit
110	OnKeyDown = txtMedKeyDown
111	OnKeyUp = txtMedKeyUp
112	end
113	object pnlFields: TPanel [3]
114	Left = 3
115	Top = 30
116	Width = 624
117	Height = 428
118	Anchors = [akLeft, akTop, akRight, akBottom]
119	BevelOuter = bvNone
120	Enabled = False
121	TabOrder = 2
122	Visible = False
123	object pnlTop: TPanel
124	Left = 0
125	Top = 0
126	Width = 624
127	Height = 264
128	Align = alClient
129	Constraints.MinHeight = 80
130	Constraints.MinWidth = 30
131	TabOrder = 0
132	DesignSize = (
133	624
134	264)
135	object lblRoute: TLabel
136	Left = 349
137	Top = 23
138	Width = 29
139	Height = 13
140	Anchors = [akTop, akRight]
141	Caption = 'Route'
142	Visible = False
143	end
144	object lblSchedule: TLabel
145	Left = 467
146	Top = 23
147	Width = 45
148	Height = 13
149	Anchors = [akTop, akRight]
150	Caption = 'Schedule'
151	Visible = False
152	end
153	object lblGuideline: TStaticText
154	Left = 0
155	Top = 1
156	Width = 181
157	Height = 17
158	Caption = 'Display Restrictions/Guidelines'
159	Color = clBtnFace
160	Font.Charset = DEFAULT_CHARSET
161	Font.Color = clBlue
162	Font.Height = -11
163	Font.Name = 'MS Sans Serif'
164	Font.Style = [fsBold, fsUnderline]
165	ParentColor = False
166	ParentFont = False
167	ShowAccelChar = False
168	TabOrder = 0
169	TabStop = True
170	Visible = False
171	OnClick = lblGuidelineClick
172	end
173	object tabDose: TTabControl
174	Left = -7
175	Top = 19
176	Width = 175
177	Height = 17
178	TabOrder = 4
179	Tabs.Strings = (
180	'Dosage')
181	TabIndex = 0
182	TabStop = False
183	TabWidth = 86
184	OnChange = tabDoseChange
185	end
186	object cboDosage: TORComboBox
187	Left = 8
188	Top = 36
189	Width = 383
190	Height = 222
191	Anchors = [akLeft, akTop, akRight, akBottom]
192	Style = orcsSimple
193	AutoSelect = True
194	Caption = 'Dosage'
195	Color = clWindow
196	DropDownCount = 8
197	ItemHeight = 13
198	ItemTipColor = clWindow
199	ItemTipEnable = True
200	ListItemsOnly = False
201	LongList = False
202	LookupPiece = 0
203	MaxLength = 0
204	Pieces = '5,3,6'
205	Sorted = False
206	SynonymChars = '<>'
207	TabPositions = '27,32'
208	TabOrder = 1
209	OnChange = cboDosageChange
210	OnClick = cboDosageClick
211	OnExit = cboDosageExit
212	CharsNeedMatch = 1
213	end
214	object cboRoute: TORComboBox
215	Left = 355
216	Top = 36
217	Width = 114
218	Height = 223
219	Anchors = [akTop, akRight, akBottom]
220	Style = orcsSimple
221	AutoSelect = True
222	Caption = 'Route'
223	Color = clWindow
224	DropDownCount = 8
225	ItemHeight = 13
226	ItemTipColor = clWindow
227	ItemTipEnable = True
228	ListItemsOnly = False
229	LongList = False
230	LookupPiece = 0
231	MaxLength = 0
232	ParentShowHint = False
233	Pieces = '2'
234	ShowHint = True
235	Sorted = False
236	SynonymChars = '<>'
237	TabOrder = 2
238	OnChange = cboRouteChange
239	OnClick = ControlChange
240	OnExit = cboRouteExit
241	CharsNeedMatch = 1
242	end
243	object cboSchedule: TORComboBox
244	Left = 467
245	Top = 36
246	Width = 157
247	Height = 223
248	Anchors = [akTop, akRight, akBottom]
249	Style = orcsSimple
250	AutoSelect = True
251	Caption = 'Schedule'
252	Color = clWindow
253	DropDownCount = 8
254	ItemHeight = 13
255	ItemTipColor = clWindow
256	ItemTipEnable = True
257	ListItemsOnly = False
258	LongList = False
259	LookupPiece = 0
260	MaxLength = 0
261	Pieces = '1'
262	Sorted = False
263	SynonymChars = '<>'
264	TabOrder = 3
265	OnChange = cboScheduleChange
266	OnClick = cboScheduleClick
267	OnExit = cboScheduleExit
268	CharsNeedMatch = 1
269	end
270	object chkPRN: TCheckBox
271	Left = 582
272	Top = 39
273	Width = 42
274	Height = 17
275	Anchors = [akTop, akRight]
276	Caption = 'PRN'
277	Color = clBtnFace
278	ParentColor = False
279	TabOrder = 5
280	OnClick = chkPRNClick
281	end
282	end
283	object pnlBottom: TPanel
284	Left = 0
285	Top = 264
286	Width = 624
287	Height = 164
288	Align = alBottom
289	TabOrder = 1
290	DesignSize = (
291	624
292	164)
293	object lblComment: TLabel
294	Left = 4
295	Top = 5
296	Width = 52
297	Height = 16
298	Alignment = taRightJustify
299	AutoSize = False
300	Caption = 'Comments:'
301	end
302	object Label1: TLabel
303	Left = 5
304	Top = 47
305	Width = 108
306	Height = 13
307	Caption = 'Statement/Explanation'
308	end
309	object Label2: TLabel
310	Left = 10
311	Top = 145
312	Width = 51
313	Height = 13
314	Caption = 'Start Date:'
315	end
316	object Image1: TImage
317	Left = 25
318	Top = 17
319	Width = 31
320	Height = 31
321	end
322	object memComment: TCaptionMemo
323	Left = 64
324	Top = 2
325	Width = 559
326	Height = 44
327	Align = alCustom
328	Anchors = [akLeft, akTop, akRight]
329	ScrollBars = ssVertical
330	TabOrder = 2
331	OnChange = ControlChange
332	Caption = 'Comments'
333	end
334	object lblAdminTime: TStaticText
335	Left = 267
336	Top = 105
337	Width = 4
338	Height = 4
339	TabOrder = 0
340	Visible = False
341	end
342	object calStart: TORDateBox
343	Left = 64
344	Top = 141
345	Width = 145
346	Height = 21
347	Anchors = [akLeft, akTop, akBottom]
348	TabOrder = 5
349	Text = 'Today'
350	OnChange = ControlChange
351	DateOnly = True
352	RequireTime = False
353	Caption = 'Effective Date'
354	end
355	object lbStatements: TORListBox
356	Left = 7
357	Top = 59
358	Width = 603
359	Height = 81
360	Style = lbOwnerDrawFixed
361	Anchors = [akLeft, akTop, akRight]
362	ExtendedSelect = False
363	ItemHeight = 16
364	ParentShowHint = False
365	ShowHint = True
366	TabOrder = 3
367	ItemTipColor = clWindow
368	LongList = False
369	CheckBoxes = True
370	OnClickCheck = lbStatementsClickCheck
371	end
372	object memDrugMsg: TMemo
373	Left = 63
374	Top = 15
375	Width = 533
376	Height = 31
377	Anchors = [akLeft, akRight, akBottom]
378	Color = clCream
379	Lines.Strings = (
380	'')
381	ReadOnly = True
382	ScrollBars = ssVertical
383	TabOrder = 6
384	Visible = False
385	end
386	end
387	end
388	object btnSelect: TButton [4]
389	Left = 539
390	Top = 463
391	Width = 72
392	Height = 21
393	Anchors = [akRight, akBottom]
394	Caption = 'OK'
395	Default = True
396	Enabled = False
397	TabOrder = 5
398	OnClick = btnSelectClick
399	end
400	inherited cmdAccept: TButton
401	Left = 540
402	Top = 463
403	Width = 69
404	Anchors = [akRight, akBottom]
405	TabOrder = 6
406	Visible = False
407	ExplicitLeft = 540
408	ExplicitTop = 463
409	ExplicitWidth = 69
410	end
411	inherited cmdQuit: TButton
412	Left = 546
413	Top = 489
414	Width = 49
415	Anchors = [akRight, akBottom]
416	TabOrder = 7
417	ExplicitLeft = 546
418	ExplicitTop = 489
419	ExplicitWidth = 49
420	end
421	inherited pnlMessage: TPanel
422	Top = 240
423	ExplicitTop = 240
424	end
425	inherited amgrMain: TVA508AccessibilityManager
426	Data = (
427	(
428	'Component = pnlMeds'
429	'Status = stsDefault')
430	(
431	'Component = lstQuick'
432	'Status = stsDefault')
433	(
434	'Component = lstAll'
435	'Status = stsDefault')
436	(
437	'Component = txtMed'
438	'Status = stsDefault')
439	(
440	'Component = pnlFields'
441	'Status = stsDefault')
442	(
443	'Component = pnlTop'
444	'Status = stsDefault')
445	(
446	'Component = lblGuideline'
447	'Status = stsDefault')
448	(
449	'Component = tabDose'
450	'Status = stsDefault')
451	(
452	'Component = cboDosage'
453	'Status = stsDefault')
454	(
455	'Component = cboRoute'
456	'Status = stsDefault')
457	(
458	'Component = cboSchedule'
459	'Status = stsDefault')
460	(
461	'Component = chkPRN'
462	'Status = stsDefault')
463	(
464	'Component = pnlBottom'
465	'Status = stsDefault')
466	(
467	'Component = memComment'
468	'Status = stsDefault')
469	(
470	'Component = lblAdminTime'
471	'Status = stsDefault')
472	(
473	'Component = calStart'
474	'Status = stsDefault')
475	(
476	'Component = lbStatements'
477	'Status = stsDefault')
478	(
479	'Component = memDrugMsg'
480	'Status = stsDefault')
481	(
482	'Component = btnSelect'
483	'Status = stsDefault')
484	(
485	'Component = memOrder'
486	'Status = stsDefault')
487	(
488	'Component = cmdAccept'
489	'Status = stsDefault')
490	(
491	'Component = cmdQuit'
492	'Status = stsDefault')
493	(
494	'Component = pnlMessage'
495	'Status = stsDefault')
496	(
497	'Component = memMessage'
498	'Status = stsDefault')
499	(
500	'Component = frmODMedNVA'
501	'Status = stsDefault'))
502	end
503	object dlgStart: TORDateTimeDlg
504	FMDateTime = 3001101.000000000000000000
505	DateOnly = False
506	RequireTime = True
507	Left = 500
508	Top = 201
509	end
510	object timCheckChanges: TTimer
511	Enabled = False
512	Interval = 500
513	Left = 501
514	Top = 233
515	end
516	end

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

Download in other formats:

Original Format