Context Navigation

← Previous Revision
Latest Revision
Next Revision →
Blame
Revision Log

fProbEdt.dfm@ 1099

Last change on this file since 1099 was 459, checked in by Kevin Toppenberg, 16 years ago
Adding foia-cprs branch
File size: 12.6 KB

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

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

Download in other formats:

Original Format