Context Navigation

fCover.dfm@ 1679

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

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

Download in other formats:

Original Format