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

Last change on this file since 1751 was 1679, checked in by healthsevak, 10 years ago

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