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

Last change on this file since 1068 was 830, checked in by Kevin Toppenberg, 14 years ago

Upgrading to version 27
File size: 14.9 KB
RevLine 
[830]1inherited frmdlgProb: TfrmdlgProb
2 Left = 148
3 Top = 108
[456]4 HelpContext = 2000
5 BorderIcons = []
6 Caption = 'frmdlgProb'
[830]7 ClientHeight = 358
8 ClientWidth = 496
[456]9 OldCreateOrder = True
10 OnClose = FormClose
11 OnCreate = FormCreate
12 OnShow = FormShow
13 PixelsPerInch = 96
14 TextHeight = 13
[830]15 object Label1: TLabel [0]
[456]16 Left = 6
17 Top = 357
18 Width = 47
19 Height = 13
20 Caption = 'Recorded'
21 Visible = False
22 end
[830]23 object Label5: TLabel [1]
[456]24 Left = 4
25 Top = 368
26 Width = 45
27 Height = 13
28 Caption = 'Resolved'
29 Visible = False
30 end
[830]31 object Label7: TLabel [2]
[456]32 Left = 8
33 Top = 382
34 Width = 41
35 Height = 13
36 Caption = 'Updated'
37 Visible = False
38 end
[830]39 object pnlComments: TPanel [3]
[456]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
[830]157 object pnlBottom: TPanel [4]
[456]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'
[830]189 Default = True
[456]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
[830]221 object edResDate: TCaptionEdit [5]
[456]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
[830]235 object edUpdate: TCaptionEdit [6]
[456]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
[830]249 object pnlTop: TPanel [7]
[456]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
[830]363 Top = 58
[456]364 Width = 181
[830]365 Height = 142
[456]366 Anchors = [akTop, akRight]
367 Caption = 'Treatment Factors'
368 TabOrder = 5
369 DesignSize = (
370 181
[830]371 142)
[456]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
[830]385 Top = 50
[456]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
[830]396 Top = 32
[456]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
[830]407 Top = 68
[456]408 Width = 149
409 Height = 17
410 Anchors = [akTop, akRight]
[830]411 Caption = 'Southwest &Asia Conditions'
[456]412 Enabled = False
413 TabOrder = 3
414 OnClick = ControlChange
415 end
416 object ckHNC: TCheckBox
417 Left = 7
[830]418 Top = 119
[456]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
[830]429 Top = 102
[456]430 Width = 149
431 Height = 17
432 Anchors = [akTop, akRight]
433 Caption = 'MST'
434 Enabled = False
435 TabOrder = 5
436 OnClick = ControlChange
437 end
[830]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
[456]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
[830]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
[456]655end
Note: See TracBrowser for help on using the repository browser.