Context Navigation

fCover.dfm@ 836

Last change on this file since 836 was 830, checked in by Kevin Toppenberg, 14 years ago
Upgrading to version 27
File size: 16.3 KB

Line
1	inherited frmCover: TfrmCover
2	Left = 256
3	Top = 280
4	HelpContext = 1000
5	BorderIcons = []
6	Caption = 'Cover Sheet'
7	HelpFile = 'overvw'
8	OnDestroy = FormDestroy
9	PixelsPerInch = 96
10	TextHeight = 13
11	object pnlBase: TPanel [1]
12	Left = 0
13	Top = 0
14	Width = 640
15	Height = 356
16	Align = alClient
17	BevelOuter = bvNone
18	Constraints.MinHeight = 10
19	TabOrder = 0
20	object sptBottom: TSplitter
21	Left = 0
22	Top = 237
23	Width = 640
24	Height = 5
25	Cursor = crVSplit
26	Align = alBottom
27	Constraints.MinHeight = 5
28	OnCanResize = sptBottomCanResize
29	end
30	object pnlNotTheBottom: TPanel
31	Left = 0
32	Top = 0
33	Width = 640
34	Height = 237
35	Align = alClient
36	BevelOuter = bvNone
37	TabOrder = 0
38	object sptTop: TSplitter
39	Left = 0
40	Top = 120
41	Width = 640
42	Height = 5
43	Cursor = crVSplit
44	Align = alTop
45	Constraints.MinHeight = 5
46	OnCanResize = sptTopCanResize
47	end
48	object pnlTop: TPanel
49	Left = 0
50	Top = 0
51	Width = 640
52	Height = 120
53	Align = alTop
54	BevelOuter = bvNone
55	TabOrder = 0
56	object spt_2: TSplitter
57	Left = 424
58	Top = 0
59	Width = 5
60	Height = 120
61	Align = alRight
62	Constraints.MinWidth = 5
63	OnCanResize = spt_2CanResize
64	end
65	object pnl_not3: TPanel
66	Left = 0
67	Top = 0
68	Width = 424
69	Height = 120
70	Align = alClient
71	BevelOuter = bvNone
72	TabOrder = 0
73	object spt_1: TSplitter
74	Left = 211
75	Top = 0
76	Width = 5
77	Height = 120
78	Color = clBtnFace
79	Constraints.MinWidth = 5
80	ParentColor = False
81	OnCanResize = spt_1CanResize
82	end
83	object pnl_1: TPanel
84	Left = 0
85	Top = 0
86	Width = 211
87	Height = 120
88	Align = alLeft
89	BevelOuter = bvNone
90	TabOrder = 0
91	Visible = False
92	object lbl_1: TOROffsetLabel
93	Left = 0
94	Top = 0
95	Width = 211
96	Height = 19
97	Align = alTop
98	Caption = ' '
99	HorzOffset = 2
100	Transparent = False
101	VertOffset = 6
102	WordWrap = False
103	end
104	object lst_1: TORListBox
105	Tag = 10
106	Left = 0
107	Top = 19
108	Width = 211
109	Height = 101
110	Align = alClient
111	Ctl3D = True
112	ItemHeight = 13
113	ParentCtl3D = False
114	ParentShowHint = False
115	ShowHint = True
116	TabOrder = 0
117	OnClick = CoverItemClick
118	OnExit = CoverItemExit
119	ItemTipColor = clWindow
120	LongList = False
121	TabPositions = '2,3'
122	end
123	end
124	object pnl_2: TPanel
125	Left = 216
126	Top = 0
127	Width = 208
128	Height = 120
129	Align = alClient
130	BevelOuter = bvNone
131	TabOrder = 1
132	Visible = False
133	object lbl_2: TOROffsetLabel
134	Left = 0
135	Top = 0
136	Width = 208
137	Height = 19
138	Align = alTop
139	Caption = ' '
140	HorzOffset = 2
141	Transparent = False
142	VertOffset = 6
143	WordWrap = False
144	end
145	object lst_2: TORListBox
146	Tag = 20
147	Left = 0
148	Top = 19
149	Width = 208
150	Height = 101
151	Align = alClient
152	Ctl3D = True
153	ItemHeight = 13
154	ParentCtl3D = False
155	ParentShowHint = False
156	ShowHint = True
157	TabOrder = 0
158	OnClick = CoverItemClick
159	OnExit = CoverItemExit
160	ItemTipColor = clWindow
161	LongList = False
162	end
163	end
164	end
165	object pnl_3: TPanel
166	Left = 429
167	Top = 0
168	Width = 211
169	Height = 120
170	Align = alRight
171	BevelOuter = bvNone
172	TabOrder = 1
173	Visible = False
174	object lbl_3: TOROffsetLabel
175	Left = 0
176	Top = 57
177	Width = 211
178	Height = 19
179	Align = alTop
180	Caption = ' '
181	HorzOffset = 2
182	Transparent = False
183	VertOffset = 6
184	WordWrap = False
185	end
186	object sptFlag: TSplitter
187	Left = 0
188	Top = 52
189	Width = 211
190	Height = 5
191	Cursor = crVSplit
192	Align = alTop
193	Beveled = True
194	Constraints.MinHeight = 5
195	end
196	object pnlFlag: TPanel
197	Left = 0
198	Top = 0
199	Width = 211
200	Height = 52
201	Align = alTop
202	Constraints.MinHeight = 40
203	TabOrder = 0
204	object lblFlag: TOROffsetLabel
205	Left = 1
206	Top = 1
207	Width = 209
208	Height = 15
209	Align = alTop
210	Caption = 'Patient Record Flags'
211	HorzOffset = 2
212	Transparent = False
213	VertOffset = 2
214	WordWrap = False
215	end
216	object lstFlag: TORListBox
217	Left = 1
218	Top = 16
219	Width = 209
220	Height = 35
221	Align = alClient
222	Font.Charset = DEFAULT_CHARSET
223	Font.Color = clMaroon
224	Font.Height = -11
225	Font.Name = 'MS Sans Serif'
226	Font.Style = []
227	ItemHeight = 13
228	ParentFont = False
229	ParentShowHint = False
230	ShowHint = True
231	TabOrder = 0
232	OnClick = lstFlagClick
233	OnKeyDown = lstFlagKeyDown
234	ItemTipColor = clWindow
235	LongList = False
236	Pieces = '2'
237	end
238	end
239	object lst_3: TORListBox
240	Tag = 30
241	Left = 0
242	Top = 76
243	Width = 211
244	Height = 44
245	Align = alClient
246	Ctl3D = True
247	Font.Charset = DEFAULT_CHARSET
248	Font.Color = clMaroon
249	Font.Height = -11
250	Font.Name = 'MS Sans Serif'
251	Font.Style = []
252	ItemHeight = 13
253	ParentCtl3D = False
254	ParentFont = False
255	ParentShowHint = False
256	ShowHint = True
257	TabOrder = 1
258	OnClick = CoverItemClick
259	OnExit = CoverItemExit
260	ItemTipColor = clWindow
261	LongList = False
262	TabPositions = '20'
263	end
264	end
265	end
266	object pnlMiddle: TPanel
267	Left = 0
268	Top = 125
269	Width = 640
270	Height = 112
271	Align = alClient
272	BevelOuter = bvNone
273	TabOrder = 1
274	object spt_3: TSplitter
275	Left = 318
276	Top = 0
277	Width = 5
278	Height = 112
279	Constraints.MinWidth = 5
280	OnCanResize = spt_3CanResize
281	end
282	object pnl_4: TPanel
283	Left = 0
284	Top = 0
285	Width = 318
286	Height = 112
287	Align = alLeft
288	BevelOuter = bvNone
289	TabOrder = 0
290	Visible = False
291	object lbl_4: TOROffsetLabel
292	Left = 0
293	Top = 0
294	Width = 318
295	Height = 13
296	Align = alTop
297	Caption = ' '
298	HorzOffset = 2
299	Transparent = False
300	VertOffset = 0
301	WordWrap = False
302	end
303	object lst_4: TORListBox
304	Tag = 40
305	Left = 0
306	Top = 13
307	Width = 318
308	Height = 99
309	Align = alClient
310	Ctl3D = True
311	ItemHeight = 13
312	ParentCtl3D = False
313	ParentShowHint = False
314	ShowHint = True
315	TabOrder = 0
316	OnClick = CoverItemClick
317	OnExit = CoverItemExit
318	ItemTipColor = clWindow
319	LongList = False
320	TabPositions = '35'
321	end
322	end
323	object pnl_5: TPanel
324	Left = 323
325	Top = 0
326	Width = 317
327	Height = 112
328	Align = alClient
329	BevelOuter = bvNone
330	TabOrder = 1
331	Visible = False
332	object lbl_5: TOROffsetLabel
333	Left = 0
334	Top = 0
335	Width = 317
336	Height = 13
337	Align = alTop
338	Caption = ' '
339	HorzOffset = 2
340	Transparent = False
341	VertOffset = 0
342	WordWrap = False
343	end
344	object lst_5: TORListBox
345	Tag = 50
346	Left = 0
347	Top = 13
348	Width = 317
349	Height = 99
350	Align = alClient
351	Ctl3D = True
352	ItemHeight = 13
353	ParentCtl3D = False
354	ParentShowHint = False
355	ShowHint = True
356	TabOrder = 0
357	OnClick = CoverItemClick
358	OnExit = CoverItemExit
359	ItemTipColor = clWindow
360	LongList = False
361	TabPositions = '34,44'
362	end
363	end
364	end
365	end
366	object pnlBottom: TPanel
367	Left = 0
368	Top = 242
369	Width = 640
370	Height = 114
371	Align = alBottom
372	BevelOuter = bvNone
373	TabOrder = 1
374	object spt_5: TSplitter
375	Left = 380
376	Top = 0
377	Width = 5
378	Height = 114
379	Align = alRight
380	Constraints.MinWidth = 5
381	OnCanResize = spt_5CanResize
382	end
383	object pnl_not8: TPanel
384	Left = 0
385	Top = 0
386	Width = 380
387	Height = 114
388	Align = alClient
389	BevelOuter = bvNone
390	TabOrder = 0
391	object spt_4: TSplitter
392	Left = 255
393	Top = 0
394	Width = 5
395	Height = 114
396	Constraints.MinWidth = 5
397	OnCanResize = spt_4CanResize
398	end
399	object pnl_6: TPanel
400	Left = 0
401	Top = 0
402	Width = 255
403	Height = 114
404	Align = alLeft
405	BevelOuter = bvNone
406	TabOrder = 0
407	Visible = False
408	object lbl_6: TOROffsetLabel
409	Left = 0
410	Top = 0
411	Width = 255
412	Height = 13
413	Align = alTop
414	Caption = ' '
415	HorzOffset = 2
416	Transparent = False
417	VertOffset = 0
418	WordWrap = False
419	end
420	object lst_6: TORListBox
421	Tag = 60
422	Left = 0
423	Top = 13
424	Width = 255
425	Height = 101
426	Align = alClient
427	Ctl3D = True
428	ItemHeight = 13
429	ParentCtl3D = False
430	ParentShowHint = False
431	ShowHint = True
432	TabOrder = 0
433	OnClick = CoverItemClick
434	OnExit = CoverItemExit
435	ItemTipColor = clWindow
436	LongList = False
437	TabPositions = '34'
438	end
439	end
440	object pnl_7: TPanel
441	Left = 260
442	Top = 0
443	Width = 120
444	Height = 114
445	Align = alClient
446	BevelOuter = bvNone
447	TabOrder = 1
448	Visible = False
449	object lbl_7: TOROffsetLabel
450	Left = 0
451	Top = 0
452	Width = 120
453	Height = 13
454	Align = alTop
455	HorzOffset = 2
456	Transparent = False
457	VertOffset = 0
458	WordWrap = False
459	end
460	object lst_7: TORListBox
461	Tag = 70
462	Left = 0
463	Top = 13
464	Width = 120
465	Height = 101
466	Align = alClient
467	Ctl3D = True
468	ItemHeight = 13
469	ParentCtl3D = False
470	ParentShowHint = False
471	ShowHint = True
472	TabOrder = 0
473	OnClick = CoverItemClick
474	OnExit = CoverItemExit
475	ItemTipColor = clWindow
476	LongList = False
477	TabPositions = '4,13,15,24'
478	end
479	end
480	end
481	object pnl_8: TPanel
482	Left = 385
483	Top = 0
484	Width = 255
485	Height = 114
486	Align = alRight
487	BevelOuter = bvNone
488	TabOrder = 1
489	Visible = False
490	object lbl_8: TOROffsetLabel
491	Left = 0
492	Top = 0
493	Width = 255
494	Height = 13
495	Align = alTop
496	HorzOffset = 2
497	Transparent = False
498	VertOffset = 0
499	WordWrap = False
500	end
501	object lst_8: TORListBox
502	Tag = 80
503	Left = 0
504	Top = 13
505	Width = 255
506	Height = 101
507	Align = alClient
508	Ctl3D = True
509	ItemHeight = 13
510	ParentCtl3D = False
511	ParentShowHint = False
512	ShowHint = True
513	TabOrder = 0
514	OnClick = CoverItemClick
515	OnExit = CoverItemExit
516	ItemTipColor = clWindow
517	LongList = False
518	TabPositions = '15,35'
519	end
520	end
521	end
522	end
523	inherited amgrMain: TVA508AccessibilityManager
524	Data = (
525	(
526	'Component = pnlBase'
527	'Status = stsDefault')
528	(
529	'Component = pnlNotTheBottom'
530	'Status = stsDefault')
531	(
532	'Component = pnlTop'
533	'Status = stsDefault')
534	(
535	'Component = pnl_not3'
536	'Status = stsDefault')
537	(
538	'Component = pnl_1'
539	'Status = stsDefault')
540	(
541	'Component = lst_1'
542	'Status = stsDefault')
543	(
544	'Component = pnl_2'
545	'Status = stsDefault')
546	(
547	'Component = lst_2'
548	'Status = stsDefault')
549	(
550	'Component = pnl_3'
551	'Status = stsDefault')
552	(
553	'Component = pnlFlag'
554	'Status = stsDefault')
555	(
556	'Component = lstFlag'
557	'Status = stsDefault')
558	(
559	'Component = lst_3'
560	'Status = stsDefault')
561	(
562	'Component = pnlMiddle'
563	'Status = stsDefault')
564	(
565	'Component = pnl_4'
566	'Status = stsDefault')
567	(
568	'Component = lst_4'
569	'Status = stsDefault')
570	(
571	'Component = pnl_5'
572	'Status = stsDefault')
573	(
574	'Component = lst_5'
575	'Status = stsDefault')
576	(
577	'Component = pnlBottom'
578	'Status = stsDefault')
579	(
580	'Component = pnl_not8'
581	'Status = stsDefault')
582	(
583	'Component = pnl_6'
584	'Status = stsDefault')
585	(
586	'Component = lst_6'
587	'Status = stsDefault')
588	(
589	'Component = pnl_7'
590	'Status = stsDefault')
591	(
592	'Component = lst_7'
593	'Status = stsDefault')
594	(
595	'Component = pnl_8'
596	'Status = stsDefault')
597	(
598	'Component = lst_8'
599	'Status = stsDefault')
600	(
601	'Component = frmCover'
602	'Status = stsDefault'))
603	end
604	object timPoll: TTimer
605	Enabled = False
606	Interval = 2600
607	OnTimer = timPollTimer
608	Left = 20
609	Top = 32
610	end
611	object popMenuAllergies: TPopupMenu
612	OnPopup = popMenuAllergiesPopup
613	Left = 283
614	Top = 46
615	object popNewAllergy: TMenuItem
616	Caption = 'Enter new allergy'
617	OnClick = popNewAllergyClick
618	end
619	object popEditAllergy: TMenuItem
620	Caption = 'Edit selected allergy'
621	Visible = False
622	OnClick = popEditAllergyClick
623	end
624	object popEnteredInError: TMenuItem
625	Caption = 'Mark selected allergy as entered in error'
626	OnClick = popEnteredInErrorClick
627	end
628	object popNKA: TMenuItem
629	Caption = 'Mark patient as having "No Known Allergies" (NKA)'
630	OnClick = popNKAClick
631	end
632	end
633	end

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

Download in other formats:

Original Format