source: cprs/trunk/CPRS-Chart/fProbEdt.dfm@ 485

Last change on this file since 485 was 456, checked in by Kevin Toppenberg, 16 years ago

Initial Upload of Official WV CPRS 1.0.26.76
File size: 12.6 KB
RevLine 
[456]1object 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
556end
Note: See TracBrowser for help on using the repository browser.