Context Navigation

fProbEdt.dfm@ 873

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

Line
1	inherited frmdlgProb: TfrmdlgProb
2	Left = 148
3	Top = 108
4	HelpContext = 2000
5	BorderIcons = []
6	Caption = 'frmdlgProb'
7	ClientHeight = 358
8	ClientWidth = 496
9	OldCreateOrder = True
10	OnClose = FormClose
11	OnCreate = FormCreate
12	OnShow = FormShow
13	PixelsPerInch = 96
14	TextHeight = 13
15	object Label1: TLabel [0]
16	Left = 6
17	Top = 357
18	Width = 47
19	Height = 13
20	Caption = 'Recorded'
21	Visible = False
22	end
23	object Label5: TLabel [1]
24	Left = 4
25	Top = 368
26	Width = 45
27	Height = 13
28	Caption = 'Resolved'
29	Visible = False
30	end
31	object Label7: TLabel [2]
32	Left = 8
33	Top = 382
34	Width = 41
35	Height = 13
36	Caption = 'Updated'
37	Visible = False
38	end
39	object pnlComments: TPanel [3]
40	Left = 0
41	Top = 200
42	Width = 496
43	Height = 131
44	Align = alClient
45	BevelOuter = bvNone
46	TabOrder = 5
47	DesignSize = (
48	496
49	131)
50	object Bevel1: TBevel
51	Left = 7
52	Top = 3
53	Width = 484
54	Height = 128
55	Anchors = [akLeft, akTop, akRight, akBottom]
56	end
57	object lblCmtDate: TOROffsetLabel
58	Left = 10
59	Top = 20
60	Width = 29
61	Height = 15
62	Caption = 'Date'
63	HorzOffset = 6
64	Transparent = False
65	VertOffset = 2
66	WordWrap = False
67	end
68	object lblComment: TOROffsetLabel
69	Left = 75
70	Top = 20
71	Width = 50
72	Height = 15
73	Caption = 'Comment'
74	HorzOffset = 6
75	Transparent = False
76	VertOffset = 2
77	WordWrap = False
78	end
79	object lblCom: TStaticText
80	Left = 10
81	Top = 6
82	Width = 53
83	Height = 17
84	Caption = 'Comments'
85	Font.Charset = DEFAULT_CHARSET
86	Font.Color = clWindowText
87	Font.Height = -11
88	Font.Name = 'MS Sans Serif'
89	Font.Style = []
90	ParentFont = False
91	TabOrder = 0
92	end
93	object bbAdd: TBitBtn
94	Left = 178
95	Top = 10
96	Width = 100
97	Height = 22
98	Hint = 'Add a new comment'
99	Anchors = [akTop, akRight]
100	Caption = 'Add comment'
101	ParentShowHint = False
102	ShowHint = True
103	TabOrder = 1
104	OnClick = bbAddComClick
105	Layout = blGlyphBottom
106	NumGlyphs = 2
107	end
108	object bbRemove: TBitBtn
109	Left = 385
110	Top = 10
111	Width = 100
112	Height = 22
113	Hint = 'Remove selected comment'
114	Anchors = [akTop, akRight]
115	Caption = 'Remove comment'
116	ParentShowHint = False
117	ShowHint = True
118	TabOrder = 2
119	OnClick = bbRemoveClick
120	Layout = blGlyphBottom
121	NumGlyphs = 2
122	end
123	object lstComments: TORListBox
124	Left = 10
125	Top = 38
126	Width = 477
127	Height = 85
128	Anchors = [akLeft, akTop, akRight, akBottom]
129	ExtendedSelect = False
130	ItemHeight = 13
131	ParentShowHint = False
132	ShowHint = True
133	TabOrder = 3
134	Caption = 'Comments'
135	ItemTipColor = clWindow
136	LongList = True
137	Pieces = '1,2'
138	TabPositions = '1,12'
139	OnChange = ControlChange
140	end
141	object bbEdit: TBitBtn
142	Left = 281
143	Top = 10
144	Width = 100
145	Height = 22
146	Hint = 'Edit selected comment'
147	Anchors = [akTop, akRight]
148	Caption = 'Edit comment'
149	ParentShowHint = False
150	ShowHint = True
151	TabOrder = 6
152	OnClick = bbEditClick
153	Layout = blGlyphBottom
154	NumGlyphs = 2
155	end
156	end
157	object pnlBottom: TPanel [4]
158	Left = 0
159	Top = 331
160	Width = 496
161	Height = 27
162	Align = alBottom
163	BevelOuter = bvNone
164	TabOrder = 2
165	DesignSize = (
166	496
167	27)
168	object bbQuit: TBitBtn
169	Left = 299
170	Top = 4
171	Width = 78
172	Height = 21
173	Anchors = [akTop, akRight]
174	Cancel = True
175	Caption = 'Cancel'
176	ModalResult = 2
177	TabOrder = 0
178	OnClick = bbQuitClick
179	Layout = blGlyphBottom
180	NumGlyphs = 2
181	end
182	object bbFile: TBitBtn
183	Left = 381
184	Top = 4
185	Width = 78
186	Height = 21
187	Anchors = [akTop, akRight]
188	Caption = 'OK'
189	Default = True
190	ModalResult = 1
191	TabOrder = 1
192	OnClick = bbFileClick
193	Layout = blGlyphBottom
194	NumGlyphs = 2
195	end
196	object ckVerify: TCheckBox
197	Left = 15
198	Top = 7
199	Width = 130
200	Height = 15
201	TabStop = False
202	Caption = 'Problem Verified'
203	TabOrder = 2
204	Visible = False
205	end
206	object edRecDate: TCaptionEdit
207	Left = 145
208	Top = 7
209	Width = 94
210	Height = 21
211	TabStop = False
212	Color = clInactiveCaptionText
213	Enabled = False
214	TabOrder = 3
215	Text = 'Today'
216	Visible = False
217	OnChange = ControlChange
218	Caption = 'Rec Date'
219	end
220	end
221	object edResDate: TCaptionEdit [5]
222	Left = 66
223	Top = 365
224	Width = 94
225	Height = 21
226	TabStop = False
227	Color = clInactiveCaptionText
228	Enabled = False
229	TabOrder = 0
230	Text = 'Today'
231	Visible = False
232	OnChange = ControlChange
233	Caption = 'Res Date'
234	end
235	object edUpdate: TCaptionEdit [6]
236	Left = 67
237	Top = 376
238	Width = 94
239	Height = 21
240	TabStop = False
241	Color = clInactiveCaptionText
242	Enabled = False
243	TabOrder = 1
244	Text = 'Today'
245	Visible = False
246	OnChange = ControlChange
247	Caption = 'Update'
248	end
249	object pnlTop: TPanel [7]
250	Left = 0
251	Top = 0
252	Width = 496
253	Height = 200
254	Align = alTop
255	BevelOuter = bvNone
256	TabOrder = 6
257	DesignSize = (
258	496
259	200)
260	object lblAct: TLabel
261	Left = 12
262	Top = 4
263	Width = 34
264	Height = 13
265	Caption = 'Activity'
266	Font.Charset = DEFAULT_CHARSET
267	Font.Color = clWindowText
268	Font.Height = -11
269	Font.Name = 'MS Sans Serif'
270	Font.Style = []
271	ParentFont = False
272	Visible = False
273	end
274	object lblLoc: TLabel
275	Left = 187
276	Top = 149
277	Width = 28
278	Height = 13
279	Caption = 'Clinic:'
280	Font.Charset = DEFAULT_CHARSET
281	Font.Color = clWindowText
282	Font.Height = -11
283	Font.Name = 'MS Sans Serif'
284	Font.Style = []
285	ParentFont = False
286	end
287	object Label3: TLabel
288	Left = 187
289	Top = 105
290	Width = 70
291	Height = 13
292	Caption = 'Resp Provider:'
293	Font.Charset = DEFAULT_CHARSET
294	Font.Color = clWindowText
295	Font.Height = -11
296	Font.Name = 'MS Sans Serif'
297	Font.Style = []
298	ParentFont = False
299	end
300	object Label6: TLabel
301	Left = 187
302	Top = 63
303	Width = 69
304	Height = 13
305	Caption = 'Date of Onset:'
306	end
307	object rgStatus: TKeyClickRadioGroup
308	Left = 9
309	Top = 64
310	Width = 81
311	Height = 124
312	Caption = 'Status'
313	ItemIndex = 0
314	Items.Strings = (
315	'Active'
316	'Inactive')
317	TabOrder = 0
318	TabStop = True
319	OnClick = rgStatusClick
320	end
321	object rgStage: TKeyClickRadioGroup
322	Left = 92
323	Top = 64
324	Width = 87
325	Height = 124
326	Caption = 'Immediacy'
327	Ctl3D = True
328	ItemIndex = 2
329	Items.Strings = (
330	'Acute'
331	'Chronic'
332	'<unknown>')
333	ParentCtl3D = False
334	TabOrder = 1
335	TabStop = True
336	OnClick = ControlChange
337	end
338	object bbChangeProb: TBitBtn
339	Left = 318
340	Top = 18
341	Width = 124
342	Height = 21
343	Anchors = [akTop, akRight]
344	Caption = 'Change problem...'
345	TabOrder = 2
346	OnClick = bbChangeProbClick
347	Layout = blGlyphBottom
348	end
349	object edProb: TCaptionEdit
350	Left = 9
351	Top = 19
352	Width = 296
353	Height = 21
354	Anchors = [akLeft, akTop, akRight]
355	ReadOnly = True
356	TabOrder = 3
357	Text = 'Problem Title'
358	OnChange = ControlChange
359	Caption = 'Activity'
360	end
361	object gbTreatment: TGroupBox
362	Left = 310
363	Top = 58
364	Width = 181
365	Height = 142
366	Anchors = [akTop, akRight]
367	Caption = 'Treatment Factors'
368	TabOrder = 5
369	DesignSize = (
370	181
371	142)
372	object ckSC: TCheckBox
373	Left = 7
374	Top = 15
375	Width = 160
376	Height = 17
377	Anchors = [akTop, akRight]
378	Caption = 'Service Connected '
379	Enabled = False
380	TabOrder = 0
381	OnClick = ControlChange
382	end
383	object ckRad: TCheckBox
384	Left = 7
385	Top = 50
386	Width = 154
387	Height = 17
388	Anchors = [akTop, akRight]
389	Caption = 'Radiation '
390	Enabled = False
391	TabOrder = 1
392	OnClick = ControlChange
393	end
394	object ckAO: TCheckBox
395	Left = 7
396	Top = 32
397	Width = 154
398	Height = 17
399	Anchors = [akTop, akRight]
400	Caption = 'Agent Orange '
401	Enabled = False
402	TabOrder = 2
403	OnClick = ControlChange
404	end
405	object ckENV: TCheckBox
406	Left = 7
407	Top = 68
408	Width = 149
409	Height = 17
410	Anchors = [akTop, akRight]
411	Caption = 'Southwest &Asia Conditions'
412	Enabled = False
413	TabOrder = 3
414	OnClick = ControlChange
415	end
416	object ckHNC: TCheckBox
417	Left = 7
418	Top = 119
419	Width = 149
420	Height = 17
421	Anchors = [akTop, akRight]
422	Caption = 'Head and/or Neck Cancer'
423	Enabled = False
424	TabOrder = 4
425	OnClick = ControlChange
426	end
427	object ckMST: TCheckBox
428	Left = 7
429	Top = 102
430	Width = 149
431	Height = 17
432	Anchors = [akTop, akRight]
433	Caption = 'MST'
434	Enabled = False
435	TabOrder = 5
436	OnClick = ControlChange
437	end
438	object ckSHAD: TCheckBox
439	Left = 7
440	Top = 85
441	Width = 170
442	Height = 17
443	Caption = 'Shipboard Hazard and Defense'
444	TabOrder = 6
445	end
446	end
447	object cbServ: TORComboBox
448	Left = 186
449	Top = 166
450	Width = 113
451	Height = 21
452	Anchors = [akLeft, akTop, akRight]
453	Style = orcsDropDown
454	AutoSelect = True
455	Caption = 'Service:'
456	Color = clWindow
457	DropDownCount = 8
458	Font.Charset = DEFAULT_CHARSET
459	Font.Color = clWindowText
460	Font.Height = -11
461	Font.Name = 'MS Sans Serif'
462	Font.Style = []
463	ItemHeight = 13
464	ItemTipColor = clWindow
465	ItemTipEnable = True
466	ListItemsOnly = True
467	LongList = True
468	LookupPiece = 0
469	MaxLength = 0
470	ParentFont = False
471	Pieces = '2'
472	Sorted = False
473	SynonymChars = '<>'
474	TabOrder = 6
475	Visible = False
476	OnChange = ControlChange
477	OnNeedData = cbServNeedData
478	CharsNeedMatch = 1
479	end
480	object cbLoc: TORComboBox
481	Left = 186
482	Top = 166
483	Width = 113
484	Height = 21
485	Anchors = [akLeft, akTop, akRight]
486	Style = orcsDropDown
487	AutoSelect = True
488	Color = clWindow
489	DropDownCount = 8
490	Font.Charset = DEFAULT_CHARSET
491	Font.Color = clWindowText
492	Font.Height = -11
493	Font.Name = 'MS Sans Serif'
494	Font.Style = []
495	ItemHeight = 13
496	ItemTipColor = clWindow
497	ItemTipEnable = True
498	ListItemsOnly = True
499	LongList = True
500	LookupPiece = 0
501	MaxLength = 0
502	ParentFont = False
503	Pieces = '2'
504	Sorted = False
505	SynonymChars = '<>'
506	TabOrder = 7
507	OnChange = ControlChange
508	OnClick = cbLocClick
509	OnKeyPress = cbLocKeyPress
510	OnNeedData = cbLocNeedData
511	CharsNeedMatch = 1
512	end
513	object cbProv: TORComboBox
514	Left = 186
515	Top = 122
516	Width = 113
517	Height = 21
518	Anchors = [akLeft, akTop, akRight]
519	Style = orcsDropDown
520	AutoSelect = True
521	Caption = 'Resp Provider'
522	Color = clWindow
523	DropDownCount = 8
524	Font.Charset = DEFAULT_CHARSET
525	Font.Color = clWindowText
526	Font.Height = -11
527	Font.Name = 'MS Sans Serif'
528	Font.Style = []
529	ItemHeight = 13
530	ItemTipColor = clWindow
531	ItemTipEnable = True
532	ListItemsOnly = True
533	LongList = True
534	LookupPiece = 2
535	MaxLength = 0
536	ParentFont = False
537	Pieces = '2,3'
538	Sorted = False
539	SynonymChars = '<>'
540	TabOrder = 8
541	OnChange = ControlChange
542	OnClick = cbProvClick
543	OnKeyPress = cbProvKeyPress
544	OnNeedData = cbProvNeedData
545	CharsNeedMatch = 1
546	end
547	object edOnsetdate: TCaptionEdit
548	Left = 187
549	Top = 79
550	Width = 113
551	Height = 21
552	Anchors = [akLeft, akTop, akRight]
553	TabOrder = 9
554	Text = 'Today'
555	OnChange = ControlChange
556	Caption = 'Date of Onset'
557	end
558	end
559	inherited amgrMain: TVA508AccessibilityManager
560	Data = (
561	(
562	'Component = pnlComments'
563	'Status = stsDefault')
564	(
565	'Component = lblCom'
566	'Status = stsDefault')
567	(
568	'Component = bbAdd'
569	'Status = stsDefault')
570	(
571	'Component = bbRemove'
572	'Status = stsDefault')
573	(
574	'Component = lstComments'
575	'Status = stsDefault')
576	(
577	'Component = bbEdit'
578	'Status = stsDefault')
579	(
580	'Component = pnlBottom'
581	'Status = stsDefault')
582	(
583	'Component = bbQuit'
584	'Status = stsDefault')
585	(
586	'Component = bbFile'
587	'Status = stsDefault')
588	(
589	'Component = ckVerify'
590	'Status = stsDefault')
591	(
592	'Component = edRecDate'
593	'Status = stsDefault')
594	(
595	'Component = edResDate'
596	'Status = stsDefault')
597	(
598	'Component = edUpdate'
599	'Status = stsDefault')
600	(
601	'Component = pnlTop'
602	'Status = stsDefault')
603	(
604	'Component = rgStatus'
605	'Status = stsDefault')
606	(
607	'Component = rgStage'
608	'Status = stsDefault')
609	(
610	'Component = bbChangeProb'
611	'Status = stsDefault')
612	(
613	'Component = edProb'
614	'Status = stsDefault')
615	(
616	'Component = gbTreatment'
617	'Status = stsDefault')
618	(
619	'Component = ckSC'
620	'Status = stsDefault')
621	(
622	'Component = ckRad'
623	'Status = stsDefault')
624	(
625	'Component = ckAO'
626	'Status = stsDefault')
627	(
628	'Component = ckENV'
629	'Status = stsDefault')
630	(
631	'Component = ckHNC'
632	'Status = stsDefault')
633	(
634	'Component = ckMST'
635	'Status = stsDefault')
636	(
637	'Component = ckSHAD'
638	'Status = stsDefault')
639	(
640	'Component = cbServ'
641	'Status = stsDefault')
642	(
643	'Component = cbLoc'
644	'Status = stsDefault')
645	(
646	'Component = cbProv'
647	'Status = stsDefault')
648	(
649	'Component = edOnsetdate'
650	'Status = stsDefault')
651	(
652	'Component = frmdlgProb'
653	'Status = stsDefault'))
654	end
655	end

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

Download in other formats:

Original Format