source: cprs/branches/tmg-cprs/CPRS-Chart/fProbEdt.dfm@ 768

Last change on this file since 768 was 453, checked in by Kevin Toppenberg, 17 years ago

Initial upload of TMG-CPRS 1.0.26.69
File size: 15.2 KB
Line 
1object frmdlgProb: TfrmdlgProb
2 Left = 293
3 Top = 264
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 = 124
50 Align = alClient
51 BevelOuter = bvNone
52 TabOrder = 5
53 DesignSize = (
54 496
55 124)
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 = 324
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 object DKLanguageController1: TDKLanguageController
557 Left = 464
558 Top = 32
559 LangData = {
560 0A0066726D646C6750726F62010100000001000000070043617074696F6E0127
561 00000006004C6162656C31010100000002000000070043617074696F6E000600
562 4C6162656C35010100000003000000070043617074696F6E0006004C6162656C
563 37010100000004000000070043617074696F6E000B00706E6C436F6D6D656E74
564 7300000600426576656C3100000A006C626C436D744461746501010000000500
565 0000070043617074696F6E000A006C626C436F6D6D656E740101000000060000
566 00070043617074696F6E0006006C626C436F6D01010000000700000007004361
567 7074696F6E0005006262416464010200000009000000070043617074696F6E08
568 000000040048696E74000800626252656D6F766501020000000B000000070043
569 617074696F6E0A000000040048696E74000B006C7374436F6D6D656E74730101
570 0000000C000000070043617074696F6E00060062624564697401020000000E00
571 0000070043617074696F6E0D000000040048696E74000900706E6C426F74746F
572 6D0000060062625175697401010000000F000000070043617074696F6E000600
573 626246696C65010100000010000000070043617074696F6E000800636B566572
574 696679010100000011000000070043617074696F6E0009006564526563446174
575 65010200000013000000070043617074696F6E12000000040054657874000900
576 656452657344617465010200000015000000070043617074696F6E1400000004
577 0054657874000800656455706461746501020000001700000007004361707469
578 6F6E16000000040054657874000600706E6C546F70000006006C626C41637401
579 0100000018000000070043617074696F6E0006006C626C4C6F63010100000019
580 000000070043617074696F6E0006004C6162656C3301010000001A0000000700
581 43617074696F6E0006004C6162656C3601010000001B00000007004361707469
582 6F6E000800726753746174757301020000001C000000070043617074696F6E1D
583 00000005004974656D730007007267537461676501020000001E000000070043
584 617074696F6E1F00000005004974656D73000C0062624368616E676550726F62
585 010100000020000000070043617074696F6E000600656450726F620102000000
586 22000000070043617074696F6E21000000040054657874000B00676254726561
587 746D656E74010100000023000000070043617074696F6E000400636B53430101
588 00000024000000070043617074696F6E000500636B5261640101000000250000
589 00070043617074696F6E000400636B414F010100000026000000070043617074
590 696F6E000500636B454E56010100000027000000070043617074696F6E000500
591 636B484E43010100000028000000070043617074696F6E000500636B4D535401
592 0100000029000000070043617074696F6E00060063625365727601010000002A
593 000000070043617074696F6E00050063624C6F6300000600636250726F760101
594 0000002B000000070043617074696F6E000B0065644F6E736574646174650102
595 0000002D000000070043617074696F6E2C00000004005465787400}
596 end
597end
Note: See TracBrowser for help on using the repository browser.