source: cprs/branches/tmg-cprs/CPRS-Chart/fProbs.dfm@ 1594

Last change on this file since 1594 was 793, checked in by Kevin Toppenberg, 15 years ago

update
File size: 22.9 KB
Line 
1inherited frmProblems: TfrmProblems
2 Left = 269
3 Top = 172
4 Width = 639
5 Height = 409
6 HelpContext = 2000
7 Caption = 'Problems List Page'
8 HelpFile = 'overvw'
9 Menu = mnuProbs
10 OnDestroy = FormDestroy
11 OnHide = FormHide
12 OnMouseMove = FormMouseMove
13 OnShow = FormShow
14 PixelsPerInch = 96
15 TextHeight = 13
16 inherited shpPageBottom: TShape
17 Top = 350
18 Width = 631
19 Constraints.MinHeight = 5
20 end
21 inherited sptHorz: TSplitter
22 Left = 159
23 Width = 2
24 Height = 350
25 OnMoved = sptHorzMoved
26 end
27 inherited pnlLeft: TPanel
28 Width = 159
29 Height = 350
30 TabStop = True
31 object pnlButtons: TPanel
32 Left = 0
33 Top = 304
34 Width = 159
35 Height = 46
36 Align = alBottom
37 BevelOuter = bvNone
38 Constraints.MinHeight = 46
39 TabOrder = 3
40 object bbOtherProb: TORAlignButton
41 Left = 0
42 Top = 2
43 Width = 159
44 Height = 22
45 Caption = 'Other Problem'
46 TabOrder = 0
47 OnClick = bbOtherProbClick
48 OnExit = bbNewProbExit
49 OnMouseMove = FormMouseMove
50 Align = alBottom
51 end
52 object bbCancel: TORAlignButton
53 Left = 0
54 Top = 24
55 Width = 159
56 Height = 22
57 Caption = 'Cancel'
58 TabOrder = 1
59 OnClick = bbCancelClick
60 OnExit = bbNewProbExit
61 OnMouseMove = FormMouseMove
62 Align = alBottom
63 end
64 end
65 object pnlView: TPanel
66 Left = 0
67 Top = 0
68 Width = 159
69 Height = 304
70 Align = alClient
71 BevelOuter = bvNone
72 TabOrder = 1
73 object lblView: TOROffsetLabel
74 Left = 0
75 Top = 0
76 Width = 159
77 Height = 19
78 Align = alTop
79 Caption = 'View options'
80 HorzOffset = 2
81 Transparent = False
82 VertOffset = 6
83 WordWrap = False
84 end
85 object lstView: TORListBox
86 Left = 0
87 Top = 19
88 Width = 159
89 Height = 97
90 Align = alTop
91 ExtendedSelect = False
92 ItemHeight = 13
93 Items.Strings = (
94 'A^Active'
95 'I^Inactive'
96 'B^Both active and inactive'
97 'R^Removed')
98 ParentShowHint = False
99 ShowHint = True
100 TabOrder = 0
101 OnClick = lstViewClick
102 OnExit = lstViewExit
103 OnMouseMove = FormMouseMove
104 Caption = 'View options'
105 ItemTipColor = clWindow
106 LongList = False
107 Pieces = '2'
108 end
109 object bbNewProb: TORAlignButton
110 Tag = 100
111 Left = 0
112 Top = 116
113 Width = 159
114 Height = 24
115 Caption = 'New problem'
116 TabOrder = 1
117 OnClick = lstProbActsClick
118 OnExit = bbNewProbExit
119 OnMouseMove = FormMouseMove
120 Align = alTop
121 end
122 end
123 object pnlProbEnt: TPanel
124 Left = 0
125 Top = 0
126 Width = 159
127 Height = 304
128 Align = alClient
129 BevelOuter = bvNone
130 TabOrder = 2
131 Visible = False
132 OnResize = pnlProbEntResize
133 object lblProbEnt: TLabel
134 Left = 0
135 Top = 270
136 Width = 159
137 Height = 13
138 Align = alBottom
139 AutoSize = False
140 Caption = 'Enter new problem:'
141 end
142 object edProbEnt: TCaptionEdit
143 Left = 0
144 Top = 283
145 Width = 159
146 Height = 21
147 TabOrder = 0
148 OnExit = lstViewExit
149 OnKeyPress = edProbEntKeyPress
150 Align = alBottom
151 Caption = 'Enter new problem'
152 end
153 end
154 object pnlProbList: TORAutoPanel
155 Left = 0
156 Top = 0
157 Width = 159
158 Height = 304
159 Align = alClient
160 BevelOuter = bvNone
161 Constraints.MinHeight = 90
162 TabOrder = 0
163 object sptProbPanel: TSplitter
164 Left = 0
165 Top = 157
166 Width = 159
167 Height = 3
168 Cursor = crVSplit
169 Align = alTop
170 end
171 object pnlProbCats: TPanel
172 Left = 0
173 Top = 0
174 Width = 159
175 Height = 157
176 Align = alTop
177 BevelOuter = bvNone
178 TabOrder = 0
179 object lblProbCats: TLabel
180 Left = 0
181 Top = 0
182 Width = 159
183 Height = 13
184 Align = alTop
185 AutoSize = False
186 Caption = 'Problem categories'
187 end
188 object lstCatPick: TORListBox
189 Left = 0
190 Top = 13
191 Width = 159
192 Height = 144
193 Hint = 'Select problem category'
194 Align = alClient
195 ExtendedSelect = False
196 ItemHeight = 13
197 ParentShowHint = False
198 ShowHint = True
199 TabOrder = 0
200 OnClick = lstCatPickClick
201 OnExit = lstViewExit
202 OnMouseMove = FormMouseMove
203 Caption = 'Problem categories'
204 ItemTipColor = clWindow
205 LongList = False
206 Pieces = '2'
207 end
208 end
209 object pnlProbs: TPanel
210 Left = 0
211 Top = 160
212 Width = 159
213 Height = 144
214 Align = alClient
215 BevelOuter = bvNone
216 TabOrder = 1
217 object lblProblems: TLabel
218 Left = 0
219 Top = 0
220 Width = 159
221 Height = 13
222 Align = alTop
223 AutoSize = False
224 Caption = 'Problems'
225 Constraints.MaxHeight = 13
226 Constraints.MinHeight = 13
227 end
228 object lstProbPick: TORListBox
229 Left = 0
230 Top = 13
231 Width = 159
232 Height = 131
233 Hint = 'Select problem to add'
234 Align = alClient
235 Ctl3D = False
236 ExtendedSelect = False
237 ItemHeight = 13
238 ParentCtl3D = False
239 ParentShowHint = False
240 ShowHint = True
241 TabOrder = 0
242 OnClick = lstProbPickClick
243 OnDblClick = lstProbPickDblClick
244 Caption = 'Problems'
245 ItemTipColor = clWindow
246 LongList = False
247 Pieces = '2,3'
248 end
249 end
250 end
251 end
252 inherited pnlRight: TPanel
253 Left = 161
254 Width = 470
255 Height = 350
256 OnExit = pnlRightExit
257 OnResize = pnlRightResize
258 object lblProbList: TOROffsetLabel
259 Left = 0
260 Top = 0
261 Width = 470
262 Height = 19
263 Align = alTop
264 Caption = 'Active Problems List'
265 HorzOffset = 2
266 Transparent = False
267 VertOffset = 6
268 WordWrap = False
269 end
270 object pnlProbDlg: TPanel
271 Left = 0
272 Top = 36
273 Width = 470
274 Height = 314
275 Align = alClient
276 TabOrder = 0
277 Visible = False
278 OnMouseMove = FormMouseMove
279 end
280 object wgProbData: TCaptionListBox
281 Left = 0
282 Top = 36
283 Width = 470
284 Height = 314
285 Style = lbOwnerDrawVariable
286 Align = alClient
287 Color = clCream
288 ItemHeight = 13
289 MultiSelect = True
290 ParentShowHint = False
291 PopupMenu = popProb
292 ShowHint = True
293 TabOrder = 1
294 OnClick = wgProbDataClick
295 OnDblClick = wgProbDataDblClick
296 OnDrawItem = wgProbDataDrawItem
297 OnMeasureItem = wgProbDataMeasureItem
298 OnMouseMove = FormMouseMove
299 Caption = 'Active Problems List'
300 end
301 object HeaderControl: THeaderControl
302 Left = 0
303 Top = 19
304 Width = 470
305 Height = 17
306 Sections = <
307 item
308 ImageIndex = -1
309 Text = 'Column 0'
310 Width = 0
311 end
312 item
313 ImageIndex = -1
314 Text = 'Stat/Ver'
315 Width = 65
316 end
317 item
318 ImageIndex = -1
319 MinWidth = 20
320 Text = 'Description'
321 Width = 65
322 end
323 item
324 ImageIndex = -1
325 MinWidth = 16
326 Text = 'Onset Date'
327 Width = 65
328 end
329 item
330 ImageIndex = -1
331 MinWidth = 16
332 Text = 'Last Updated'
333 Width = 80
334 end
335 item
336 ImageIndex = -1
337 Text = 'Column 5'
338 Width = 0
339 end
340 item
341 ImageIndex = -1
342 Text = 'Location'
343 Width = 65
344 end
345 item
346 ImageIndex = -1
347 Text = 'Provider'
348 Width = 65
349 end
350 item
351 ImageIndex = -1
352 Text = 'Service'
353 Width = 65
354 end
355 item
356 ImageIndex = -1
357 Text = 'Column 9'
358 Width = 0
359 end
360 item
361 ImageIndex = -1
362 Text = 'Column 10'
363 Width = 0
364 end
365 item
366 ImageIndex = -1
367 Text = 'Column 11'
368 Width = 0
369 end
370 item
371 ImageIndex = -1
372 Text = 'Column12'
373 Width = 0
374 end
375 item
376 ImageIndex = -1
377 Text = 'Column 13'
378 Width = 0
379 end
380 item
381 ImageIndex = -1
382 Text = 'Column 14'
383 Width = 0
384 end
385 item
386 ImageIndex = -1
387 Text = 'Inactive Flag'
388 Width = 0
389 end>
390 OnSectionClick = HeaderControlSectionClick
391 OnSectionResize = HeaderControlSectionResize
392 OnMouseDown = HeaderControlMouseDown
393 OnMouseUp = HeaderControlMouseUp
394 end
395 end
396 inherited DKLanguageController1: TDKLanguageController
397 LangData = {
398 0B0066726D50726F626C656D73010200000001000000070043617074696F6E02
399 000000080048656C7046696C6501540000000D0073687050616765426F74746F
400 6D00000700737074486F727A00000700706E6C4C65667400000800706E6C5269
401 67687400000A00706E6C427574746F6E7300000B0062624F7468657250726F62
402 010100000003000000070043617074696F6E000800626243616E63656C010100
403 000004000000070043617074696F6E000700706E6C56696577000007006C626C
404 56696577010100000005000000070043617074696F6E0007006C737456696577
405 010200000007000000070043617074696F6E0600000005004974656D73000900
406 62624E657750726F62010100000008000000070043617074696F6E000A00706E
407 6C50726F62456E7400000A006C626C50726F62456E7401010000000900000007
408 0043617074696F6E000900656450726F62456E7401010000000A000000070043
409 617074696F6E000B00706E6C50726F624C69737400000C0073707450726F6250
410 616E656C00000B00706E6C50726F624361747300000B006C626C50726F624361
411 747301010000000B000000070043617074696F6E000A006C7374436174506963
412 6B01020000000D000000070043617074696F6E0C000000040048696E74000800
413 706E6C50726F627300000B006C626C50726F626C656D7301010000000E000000
414 070043617074696F6E000B006C737450726F625069636B010200000010000000
415 070043617074696F6E0F000000040048696E74000B006C626C50726F624C6973
416 74010100000011000000070043617074696F6E000A00706E6C50726F62446C67
417 00000A00776750726F6244617461010100000012000000070043617074696F6E
418 000D00486561646572436F6E74726F6C01100000001300000010005365637469
419 6F6E735B305D2E546578741D000000110053656374696F6E735B31305D2E5465
420 78741E000000110053656374696F6E735B31315D2E546578741F000000110053
421 656374696F6E735B31325D2E5465787420000000110053656374696F6E735B31
422 335D2E5465787421000000110053656374696F6E735B31345D2E546578742200
423 0000110053656374696F6E735B31355D2E546578741400000010005365637469
424 6F6E735B315D2E5465787415000000100053656374696F6E735B325D2E546578
425 7416000000100053656374696F6E735B335D2E54657874170000001000536563
426 74696F6E735B345D2E5465787418000000100053656374696F6E735B355D2E54
427 65787419000000100053656374696F6E735B365D2E546578741A000000100053
428 656374696F6E735B375D2E546578741B000000100053656374696F6E735B385D
429 2E546578741C000000100053656374696F6E735B395D2E54657874000700706F
430 7050726F6200000900706F704368616E67650101000000230000000700436170
431 74696F6E000D00706F70496E6163746976617465010100000024000000070043
432 617074696F6E000900706F705665726966790101000000250000000700436170
433 74696F6E0003004E333600000B00706F70416E6E6F7461746501010000002600
434 0000070043617074696F6E0003004E333700000900706F7052656D6F76650101
435 00000027000000070043617074696F6E000A00706F70526573746F7265010100
436 000028000000070043617074696F6E0002004E3300000E00706F705669657744
437 657461696C73010100000029000000070043617074696F6E0011006D6E754F70
438 74696D697A654669656C647301010000002A000000070043617074696F6E0008
439 006D6E7550726F6273000007006D6E755669657701010000002B000000070043
440 617074696F6E000C006D6E7556696577436861727401010000002C0000000700
441 43617074696F6E000D006D6E754368617274436F76657201010000002D000000
442 070043617074696F6E000D006D6E75436861727450726F627301010000002E00
443 0000070043617074696F6E000C006D6E7543686172744D65647301010000002F
444 000000070043617074696F6E000E006D6E7543686172744F7264657273010100
445 000030000000070043617074696F6E000D006D6E7543686172744E6F74657301
446 0100000031000000070043617074696F6E000D006D6E75436861727443736C74
447 73010100000032000000070043617074696F6E000F006D6E7543686172745375
448 7267657279010100000033000000070043617074696F6E000E006D6E75436861
449 7274444353756D6D010100000034000000070043617074696F6E000C006D6E75
450 43686172744C616273010100000035000000070043617074696F6E000F006D6E
451 7543686172745265706F727473010100000036000000070043617074696F6E00
452 12006D6E7556696577496E666F726D6174696F6E010100000037000000070043
453 617074696F6E000B006D6E755669657744656D6F010100000038000000070043
454 617074696F6E000D006D6E755669657756697369747301010000003900000007
455 0043617074696F6E0012006D6E75566965775072696D61727943617265010100
456 00003A000000070043617074696F6E0013006D6E75566965774D794865616C74
457 686556657401010000003B000000070043617074696F6E000C006D6E75496E73
458 7572616E636501010000003C000000070043617074696F6E000C006D6E755669
459 6577466C61677301010000003D000000070043617074696F6E0011006D6E7556
460 69657752656D6F74654461746101010000003E000000070043617074696F6E00
461 10006D6E755669657752656D696E6465727301010000003F0000000700436170
462 74696F6E000F006D6E7556696577506F7374696E677301010000004000000007
463 0043617074696F6E0002005A3100000D006D6E75566965774163746976650101
464 00000041000000070043617074696F6E000F006D6E7556696577496E61637469
465 7665010100000042000000070043617074696F6E000B006D6E7556696577426F
466 7468010100000043000000070043617074696F6E000E006D6E75566965775265
467 6D6F766564010100000044000000070043617074696F6E000E006D6E75566965
468 7746696C74657273010100000045000000070043617074696F6E000F006D6E75
469 56696577436F6D6D656E7473010100000046000000070043617074696F6E0002
470 004E3200000B006D6E7556696577536176650101000000470000000700436170
471 74696F6E0015006D6E7556696577526573746F726544656661756C7401010000
472 0048000000070043617074696F6E0006006D6E75416374010100000049000000
473 070043617074696F6E0009006D6E754163744E657701010000004A0000000700
474 43617074696F6E0002005A3300000C006D6E754163744368616E676501010000
475 004B000000070043617074696F6E0010006D6E75416374496E61637469766174
476 6501010000004C000000070043617074696F6E000C006D6E7541637456657269
477 667901010000004D000000070043617074696F6E0002004E3100000E006D6E75
478 416374416E6E6F7461746501010000004E000000070043617074696F6E000200
479 5A3400000C006D6E7541637452656D6F766501010000004F0000000700436170
480 74696F6E000D006D6E75416374526573746F7265010100000050000000070043
481 617074696F6E0002004E3400000D006D6E7541637444657461696C7301010000
482 0051000000070043617074696F6E00}
483 end
484 object popProb: TPopupMenu
485 Left = 282
486 Top = 313
487 object popChange: TMenuItem
488 Tag = 400
489 Caption = '&Change...'
490 Enabled = False
491 OnClick = lstProbActsClick
492 end
493 object popInactivate: TMenuItem
494 Tag = 200
495 Caption = '&Inactivate'
496 Enabled = False
497 OnClick = lstProbActsClick
498 end
499 object popVerify: TMenuItem
500 Tag = 250
501 Caption = '&Verify...'
502 Enabled = False
503 OnClick = lstProbActsClick
504 end
505 object N36: TMenuItem
506 Caption = '-'
507 Enabled = False
508 end
509 object popAnnotate: TMenuItem
510 Tag = 600
511 Caption = '&Annotate...'
512 Enabled = False
513 OnClick = lstProbActsClick
514 end
515 object N37: TMenuItem
516 Caption = '-'
517 Enabled = False
518 Visible = False
519 end
520 object popRemove: TMenuItem
521 Tag = 500
522 Caption = '&Remove...'
523 Enabled = False
524 OnClick = lstProbActsClick
525 end
526 object popRestore: TMenuItem
527 Tag = 550
528 Caption = 'Re&store'
529 Enabled = False
530 OnClick = lstProbActsClick
531 end
532 object N3: TMenuItem
533 Caption = '-'
534 end
535 object popViewDetails: TMenuItem
536 Tag = 300
537 Caption = 'View Details'
538 OnClick = lstProbActsClick
539 end
540 object mnuOptimizeFields: TMenuItem
541 Caption = 'Adjust Column Size'
542 Visible = False
543 OnClick = mnuOptimizeFieldsClick
544 end
545 end
546 object mnuProbs: TMainMenu
547 Left = 243
548 Top = 313
549 object mnuView: TMenuItem
550 Caption = '&View'
551 GroupIndex = 3
552 object mnuViewChart: TMenuItem
553 Caption = 'Chart &Tab'
554 object mnuChartCover: TMenuItem
555 Tag = 1
556 Caption = 'Cover &Sheet'
557 ShortCut = 16467
558 OnClick = mnuChartTabClick
559 end
560 object mnuChartProbs: TMenuItem
561 Tag = 2
562 Caption = '&Problem List'
563 ShortCut = 16464
564 OnClick = mnuChartTabClick
565 end
566 object mnuChartMeds: TMenuItem
567 Tag = 3
568 Caption = '&Medications'
569 ShortCut = 16461
570 OnClick = mnuChartTabClick
571 end
572 object mnuChartOrders: TMenuItem
573 Tag = 4
574 Caption = '&Orders'
575 ShortCut = 16463
576 OnClick = mnuChartTabClick
577 end
578 object mnuChartNotes: TMenuItem
579 Tag = 6
580 Caption = 'Progress &Notes'
581 ShortCut = 16462
582 OnClick = mnuChartTabClick
583 end
584 object mnuChartCslts: TMenuItem
585 Tag = 7
586 Caption = 'Consul&ts'
587 ShortCut = 16468
588 OnClick = mnuChartTabClick
589 end
590 object mnuChartSurgery: TMenuItem
591 Tag = 11
592 Caption = 'S&urgery'
593 ShortCut = 16469
594 OnClick = mnuChartTabClick
595 end
596 object mnuChartDCSumm: TMenuItem
597 Tag = 8
598 Caption = '&Discharge Summaries'
599 ShortCut = 16452
600 OnClick = mnuChartTabClick
601 end
602 object mnuChartLabs: TMenuItem
603 Tag = 9
604 Caption = '&Laboratory'
605 ShortCut = 16460
606 OnClick = mnuChartTabClick
607 end
608 object mnuChartReports: TMenuItem
609 Tag = 10
610 Caption = '&Reports'
611 ShortCut = 16466
612 OnClick = mnuChartTabClick
613 end
614 end
615 object mnuViewInformation: TMenuItem
616 Caption = 'Information'
617 OnClick = mnuViewInformationClick
618 object mnuViewDemo: TMenuItem
619 Tag = 1
620 Caption = 'De&mographics...'
621 OnClick = ViewInfo
622 end
623 object mnuViewVisits: TMenuItem
624 Tag = 2
625 Caption = 'Visits/Pr&ovider...'
626 OnClick = ViewInfo
627 end
628 object mnuViewPrimaryCare: TMenuItem
629 Tag = 3
630 Caption = 'Primary &Care...'
631 OnClick = ViewInfo
632 end
633 object mnuViewMyHealtheVet: TMenuItem
634 Tag = 4
635 Caption = 'MyHealthe&Vet...'
636 OnClick = ViewInfo
637 end
638 object mnuInsurance: TMenuItem
639 Tag = 5
640 Caption = '&Insurance...'
641 OnClick = ViewInfo
642 end
643 object mnuViewFlags: TMenuItem
644 Tag = 6
645 Caption = '&Flags...'
646 OnClick = ViewInfo
647 end
648 object mnuViewRemoteData: TMenuItem
649 Tag = 7
650 Caption = 'Remote &Data...'
651 OnClick = ViewInfo
652 end
653 object mnuViewReminders: TMenuItem
654 Tag = 8
655 Caption = '&Reminders...'
656 Enabled = False
657 OnClick = ViewInfo
658 end
659 object mnuViewPostings: TMenuItem
660 Tag = 9
661 Caption = '&Postings...'
662 OnClick = ViewInfo
663 end
664 end
665 object Z1: TMenuItem
666 Caption = '-'
667 end
668 object mnuViewActive: TMenuItem
669 Tag = 700
670 Caption = '&Active Problems'
671 OnClick = lstProbActsClick
672 end
673 object mnuViewInactive: TMenuItem
674 Tag = 800
675 Caption = '&Inactive Problems'
676 OnClick = lstProbActsClick
677 end
678 object mnuViewBoth: TMenuItem
679 Tag = 900
680 Caption = '&Both Active/Inactive Problems'
681 OnClick = lstProbActsClick
682 end
683 object mnuViewRemoved: TMenuItem
684 Tag = 950
685 Caption = '&Removed Problems'
686 OnClick = lstProbActsClick
687 end
688 object mnuViewFilters: TMenuItem
689 Tag = 975
690 Caption = 'Fi&lters...'
691 OnClick = lstProbActsClick
692 end
693 object mnuViewComments: TMenuItem
694 Caption = 'Show &Comments'
695 OnClick = mnuViewCommentsClick
696 end
697 object N2: TMenuItem
698 Caption = '-'
699 end
700 object mnuViewSave: TMenuItem
701 Caption = 'Sa&ve as Default View'
702 OnClick = mnuViewSaveClick
703 end
704 object mnuViewRestoreDefault: TMenuItem
705 Caption = 'Return to De&fault View'
706 OnClick = mnuViewRestoreDefaultClick
707 end
708 end
709 object mnuAct: TMenuItem
710 Caption = '&Action'
711 GroupIndex = 4
712 object mnuActNew: TMenuItem
713 Tag = 100
714 Caption = '&New Problem...'
715 OnClick = lstProbActsClick
716 end
717 object Z3: TMenuItem
718 Caption = '-'
719 end
720 object mnuActChange: TMenuItem
721 Tag = 400
722 Caption = '&Change...'
723 Enabled = False
724 OnClick = lstProbActsClick
725 end
726 object mnuActInactivate: TMenuItem
727 Tag = 200
728 Caption = '&Inactivate'
729 Enabled = False
730 OnClick = lstProbActsClick
731 end
732 object mnuActVerify: TMenuItem
733 Tag = 250
734 Caption = '&Verify...'
735 Enabled = False
736 OnClick = lstProbActsClick
737 end
738 object N1: TMenuItem
739 Caption = '-'
740 end
741 object mnuActAnnotate: TMenuItem
742 Tag = 600
743 Caption = '&Annotate...'
744 Enabled = False
745 OnClick = lstProbActsClick
746 end
747 object Z4: TMenuItem
748 Caption = '-'
749 Visible = False
750 end
751 object mnuActRemove: TMenuItem
752 Tag = 500
753 Caption = '&Remove'
754 Enabled = False
755 OnClick = lstProbActsClick
756 end
757 object mnuActRestore: TMenuItem
758 Tag = 550
759 Caption = 'Re&store'
760 Enabled = False
761 OnClick = lstProbActsClick
762 end
763 object N4: TMenuItem
764 Caption = '-'
765 end
766 object mnuActDetails: TMenuItem
767 Tag = 300
768 Caption = 'View &Details'
769 Enabled = False
770 OnClick = lstProbActsClick
771 end
772 end
773 end
774end
Note: See TracBrowser for help on using the repository browser.