source: cprs/branches/foia-cprs/CPRS-Chart/fDCSumm.dfm@ 459

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

Adding foia-cprs branch
File size: 23.0 KB
Line 
1inherited frmDCSumm: TfrmDCSumm
2 Left = 180
3 Top = 193
4 Width = 687
5 Height = 409
6 HelpContext = 7000
7 Caption = 'Discharge Summary Page'
8 HelpFile = 'overvw'
9 Menu = mnuSumms
10 OnDestroy = FormDestroy
11 PixelsPerInch = 96
12 TextHeight = 13
13 inherited shpPageBottom: TShape
14 Top = 358
15 Width = 679
16 end
17 inherited sptHorz: TSplitter
18 Left = 64
19 Width = 3
20 Height = 358
21 OnCanResize = sptHorzCanResize
22 end
23 inherited pnlLeft: TPanel
24 Width = 64
25 Height = 358
26 object lblSumms: TOROffsetLabel
27 Left = 0
28 Top = 0
29 Width = 64
30 Height = 19
31 Align = alTop
32 Caption = 'Last 100 Summaries'
33 HorzOffset = 2
34 ParentShowHint = False
35 ShowHint = True
36 Transparent = True
37 VertOffset = 6
38 WordWrap = False
39 end
40 object lblSpace1: TLabel
41 Left = 0
42 Top = 334
43 Width = 64
44 Height = 3
45 Align = alBottom
46 AutoSize = False
47 Caption = ' '
48 end
49 object cmdNewSumm: TORAlignButton
50 Left = 0
51 Top = 313
52 Width = 64
53 Height = 21
54 Caption = 'New Summary'
55 TabOrder = 1
56 OnClick = cmdNewSummClick
57 Align = alBottom
58 end
59 object cmdPCE: TORAlignButton
60 Left = 0
61 Top = 337
62 Width = 64
63 Height = 21
64 Caption = 'Encounter'
65 TabOrder = 2
66 Visible = False
67 OnClick = cmdPCEClick
68 Align = alBottom
69 end
70 object pnlDrawers: TPanel
71 Left = 0
72 Top = 19
73 Width = 64
74 Height = 294
75 Align = alClient
76 BevelOuter = bvNone
77 TabOrder = 0
78 object splDrawers: TSplitter
79 Left = 0
80 Top = 291
81 Width = 64
82 Height = 3
83 Cursor = crVSplit
84 Align = alBottom
85 end
86 object lstSumms: TORListBox
87 Left = 0
88 Top = 0
89 Width = 64
90 Height = 33
91 TabStop = False
92 Ctl3D = True
93 ItemHeight = 13
94 ParentCtl3D = False
95 ParentShowHint = False
96 PopupMenu = popSummList
97 ShowHint = True
98 TabOrder = 0
99 Visible = False
100 OnClick = lstSummsClick
101 ItemTipColor = clWindow
102 LongList = False
103 Pieces = '2,3'
104 TabPositions = '10,20'
105 end
106 object tvSumms: TORTreeView
107 Left = 0
108 Top = 0
109 Width = 64
110 Height = 291
111 Align = alClient
112 Constraints.MinWidth = 30
113 HideSelection = False
114 Indent = 19
115 PopupMenu = popSummList
116 ReadOnly = True
117 TabOrder = 1
118 OnAddition = tvSummsAddition
119 OnChange = tvSummsChange
120 OnClick = tvSummsClick
121 OnCollapsed = tvSummsCollapsed
122 OnDeletion = tvSummsDeletion
123 OnDragDrop = tvSummsDragDrop
124 OnDragOver = tvSummsDragOver
125 OnExpanded = tvSummsExpanded
126 OnStartDrag = tvSummsStartDrag
127 Caption = 'Last 100 Summaries'
128 NodePiece = 0
129 ShortNodeCaptions = True
130 end
131 end
132 end
133 inherited pnlRight: TPanel
134 Left = 67
135 Width = 612
136 Height = 358
137 object sptVert: TSplitter
138 Left = 0
139 Top = 309
140 Width = 612
141 Height = 4
142 Cursor = crVSplit
143 Align = alBottom
144 end
145 object memPCEShow: TRichEdit
146 Left = 0
147 Top = 313
148 Width = 612
149 Height = 45
150 Align = alBottom
151 Color = clCream
152 Lines.Strings = (
153 '<No encounter information entered>')
154 PlainText = True
155 ReadOnly = True
156 ScrollBars = ssVertical
157 TabOrder = 2
158 WantReturns = False
159 WordWrap = False
160 end
161 object pnlWrite: TPanel
162 Left = 0
163 Top = 0
164 Width = 612
165 Height = 309
166 Align = alClient
167 BevelOuter = bvNone
168 TabOrder = 1
169 Visible = False
170 OnResize = pnlWriteResize
171 object memNewSumm: TRichEdit
172 Left = 0
173 Top = 52
174 Width = 612
175 Height = 257
176 Align = alClient
177 Font.Charset = DEFAULT_CHARSET
178 Font.Color = clWindowText
179 Font.Height = -11
180 Font.Name = 'Courier New'
181 Font.Style = []
182 ParentFont = False
183 PlainText = True
184 PopupMenu = popSummMemo
185 ScrollBars = ssVertical
186 TabOrder = 1
187 WantTabs = True
188 OnChange = memNewSummChange
189 OnKeyUp = memNewSummKeyUp
190 end
191 object pnlFields: TORAutoPanel
192 Left = 0
193 Top = 0
194 Width = 612
195 Height = 52
196 Align = alTop
197 BevelOuter = bvNone
198 TabOrder = 0
199 DesignSize = (
200 612
201 52)
202 object bvlNewTitle: TBevel
203 Left = 5
204 Top = 5
205 Width = 102
206 Height = 15
207 end
208 object lblNewTitle: TStaticText
209 Left = 6
210 Top = 6
211 Width = 104
212 Height = 17
213 Hint = 'Press "Change..." to select a different title.'
214 Caption = ' Discharge Summary '
215 Color = clCream
216 Font.Charset = DEFAULT_CHARSET
217 Font.Color = clWindowText
218 Font.Height = -11
219 Font.Name = 'MS Sans Serif'
220 Font.Style = []
221 ParentColor = False
222 ParentFont = False
223 ParentShowHint = False
224 ShowAccelChar = False
225 ShowHint = True
226 TabOrder = 1
227 end
228 object lblVisit: TStaticText
229 Left = 6
230 Top = 21
231 Width = 123
232 Height = 17
233 Caption = 'Adm: 10/20/99 2BMED'
234 ShowAccelChar = False
235 TabOrder = 2
236 end
237 object lblRefDate: TStaticText
238 Left = 237
239 Top = 6
240 Width = 101
241 Height = 17
242 Hint = 'Press "Change..." to change date/time of summary.'
243 Alignment = taCenter
244 Caption = 'Oct 20,1999@15:30'
245 ParentShowHint = False
246 ShowAccelChar = False
247 ShowHint = True
248 TabOrder = 3
249 end
250 object lblCosigner: TStaticText
251 Left = 307
252 Top = 21
253 Width = 199
254 Height = 13
255 Hint = 'Press "Change..." to select a different attending.'
256 Alignment = taRightJustify
257 Anchors = [akTop, akRight]
258 AutoSize = False
259 Caption = 'Attending: Winchester,Charles Emerson III'
260 ParentShowHint = False
261 ShowAccelChar = False
262 ShowHint = True
263 TabOrder = 4
264 end
265 object lblDictator: TStaticText
266 Left = 402
267 Top = 6
268 Width = 152
269 Height = 17
270 Hint = 'Press "Change..." to select a different author.'
271 Alignment = taRightJustify
272 Anchors = [akTop, akRight]
273 Caption = 'Winchester,Charles Emerson III'
274 ParentShowHint = False
275 ShowAccelChar = False
276 ShowHint = True
277 TabOrder = 5
278 end
279 object lblDischarge: TStaticText
280 Left = 6
281 Top = 34
282 Width = 71
283 Height = 17
284 Caption = 'Dis: 03/20/00'
285 ShowAccelChar = False
286 TabOrder = 6
287 end
288 object cmdChange: TButton
289 Left = 554
290 Top = 10
291 Width = 58
292 Height = 21
293 Anchors = [akTop, akRight]
294 Caption = 'Change...'
295 TabOrder = 0
296 OnClick = cmdChangeClick
297 end
298 end
299 end
300 object pnlRead: TPanel
301 Left = 0
302 Top = 0
303 Width = 612
304 Height = 309
305 Align = alClient
306 BevelOuter = bvNone
307 TabOrder = 0
308 object lblTitle: TOROffsetLabel
309 Left = 0
310 Top = 0
311 Width = 612
312 Height = 19
313 Hint = 'No Discharge Summaries Found'
314 Align = alTop
315 Caption = 'No Discharge Summaries Found'
316 Font.Charset = DEFAULT_CHARSET
317 Font.Color = clWindowText
318 Font.Height = -11
319 Font.Name = 'MS Sans Serif'
320 Font.Style = []
321 HorzOffset = 2
322 ParentFont = False
323 ParentShowHint = False
324 ShowHint = True
325 Transparent = False
326 VertOffset = 6
327 WordWrap = False
328 end
329 object sptList: TSplitter
330 Left = 0
331 Top = 113
332 Width = 612
333 Height = 3
334 Cursor = crVSplit
335 Align = alTop
336 end
337 object memSumm: TRichEdit
338 Left = 0
339 Top = 116
340 Width = 612
341 Height = 193
342 Align = alClient
343 Color = clCream
344 Ctl3D = True
345 Font.Charset = DEFAULT_CHARSET
346 Font.Color = clWindowText
347 Font.Height = -11
348 Font.Name = 'Courier New'
349 Font.Style = []
350 Lines.Strings = (
351
352 'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRUSTVWXYZabcdefghijkl' +
353 'mnopqrstuvwxyz12')
354 ParentCtl3D = False
355 ParentFont = False
356 PlainText = True
357 PopupMenu = popSummMemo
358 ReadOnly = True
359 ScrollBars = ssBoth
360 TabOrder = 0
361 WantReturns = False
362 WordWrap = False
363 end
364 object lvSumms: TCaptionListView
365 Left = 0
366 Top = 19
367 Width = 612
368 Height = 94
369 Align = alTop
370 Columns = <
371 item
372 Caption = 'Date'
373 Width = 100
374 end
375 item
376 AutoSize = True
377 Caption = 'Title'
378 end
379 item
380 AutoSize = True
381 Caption = 'Subject'
382 end
383 item
384 AutoSize = True
385 Caption = 'Author'
386 end
387 item
388 AutoSize = True
389 Caption = 'Location'
390 end
391 item
392 Caption = 'fmdate'
393 Width = 0
394 end
395 item
396 Caption = 'TIUDA'
397 Width = 0
398 end>
399 Constraints.MinHeight = 50
400 HideSelection = False
401 ReadOnly = True
402 RowSelect = True
403 TabOrder = 1
404 ViewStyle = vsReport
405 Visible = False
406 OnColumnClick = lvSummsColumnClick
407 OnCompare = lvSummsCompare
408 OnResize = lvSummsResize
409 OnSelectItem = lvSummsSelectItem
410 Caption = 'No Discharge Summaries Found'
411 end
412 end
413 end
414 object mnuSumms: TMainMenu
415 Left = 596
416 Top = 305
417 object mnuView: TMenuItem
418 Caption = '&View'
419 GroupIndex = 3
420 object mnuViewChart: TMenuItem
421 Caption = 'Chart &Tab'
422 object mnuChartCover: TMenuItem
423 Tag = 1
424 Caption = 'Cover &Sheet'
425 ShortCut = 16467
426 OnClick = mnuChartTabClick
427 end
428 object mnuChartProbs: TMenuItem
429 Tag = 2
430 Caption = '&Problem List'
431 ShortCut = 16464
432 OnClick = mnuChartTabClick
433 end
434 object mnuChartMeds: TMenuItem
435 Tag = 3
436 Caption = '&Medications'
437 ShortCut = 16461
438 OnClick = mnuChartTabClick
439 end
440 object mnuChartOrders: TMenuItem
441 Tag = 4
442 Caption = '&Orders'
443 ShortCut = 16463
444 OnClick = mnuChartTabClick
445 end
446 object mnuChartSumms: TMenuItem
447 Tag = 6
448 Caption = 'Progress &Notes'
449 ShortCut = 16462
450 OnClick = mnuChartTabClick
451 end
452 object mnuChartCslts: TMenuItem
453 Tag = 7
454 Caption = 'Consul&ts'
455 ShortCut = 16468
456 OnClick = mnuChartTabClick
457 end
458 object mnuChartSurgery: TMenuItem
459 Tag = 11
460 Caption = 'S&urgery'
461 ShortCut = 16469
462 OnClick = mnuChartTabClick
463 end
464 object mnuChartDCSumm: TMenuItem
465 Tag = 8
466 Caption = '&Discharge Summaries'
467 ShortCut = 16452
468 OnClick = mnuChartTabClick
469 end
470 object mnuChartLabs: TMenuItem
471 Tag = 9
472 Caption = '&Laboratory'
473 ShortCut = 16460
474 OnClick = mnuChartTabClick
475 end
476 object mnuChartReports: TMenuItem
477 Tag = 10
478 Caption = '&Reports'
479 ShortCut = 16466
480 OnClick = mnuChartTabClick
481 end
482 end
483 object Z3: TMenuItem
484 Caption = '-'
485 end
486 object mnuViewAll: TMenuItem
487 Tag = 1
488 Caption = '&Signed Summaries (All)'
489 OnClick = mnuViewClick
490 end
491 object mnuViewByAuthor: TMenuItem
492 Tag = 4
493 Caption = 'Signed Summaries by &Author'
494 OnClick = mnuViewClick
495 end
496 object mnuViewByDate: TMenuItem
497 Tag = 5
498 Caption = 'Signed Summaries by Date &Range'
499 OnClick = mnuViewClick
500 end
501 object mnuViewUncosigned: TMenuItem
502 Tag = 3
503 Caption = 'Un&cosigned Summaries'
504 OnClick = mnuViewClick
505 end
506 object mnuViewUnsigned: TMenuItem
507 Tag = 2
508 Caption = '&Unsigned Summaries'
509 OnClick = mnuViewClick
510 end
511 object mnuViewCustom: TMenuItem
512 Tag = 6
513 Caption = 'Custo&m View'
514 OnClick = mnuViewClick
515 end
516 object N1: TMenuItem
517 Caption = '-'
518 end
519 object mnuViewSaveAsDefault: TMenuItem
520 Caption = 'Sa&ve as Default View'
521 OnClick = mnuViewSaveAsDefaultClick
522 end
523 object mnuViewReturnToDefault: TMenuItem
524 Caption = 'Return to De&fault View'
525 OnClick = mnuViewReturntoDefaultClick
526 end
527 object Z1: TMenuItem
528 Caption = '-'
529 end
530 object mnuViewDetail: TMenuItem
531 Caption = '&Details'
532 OnClick = mnuViewDetailClick
533 end
534 object N7: TMenuItem
535 Caption = '-'
536 end
537 object mnuIconLegend: TMenuItem
538 Caption = 'Icon Legend'
539 OnClick = mnuIconLegendClick
540 end
541 end
542 object mnuAct: TMenuItem
543 Caption = '&Action'
544 GroupIndex = 4
545 object mnuActNew: TMenuItem
546 Caption = '&New Discharge Summary...'
547 Hint = 'Creates a new Discharge Summary'
548 ShortCut = 24654
549 OnClick = mnuActNewClick
550 end
551 object mnuActAddend: TMenuItem
552 Caption = '&Make Addendum...'
553 Hint = 'Makes an addendum for the currently selected Discharge Summary'
554 ShortCut = 24653
555 OnClick = mnuActAddendClick
556 end
557 object mnuActAddIDEntry: TMenuItem
558 Caption = 'Add Ne&w Entry to Interdisciplinary Note'
559 OnClick = mnuActAddIDEntryClick
560 end
561 object mnuActAttachtoIDParent: TMenuItem
562 Caption = 'A&ttach to Interdisciplinary Note'
563 OnClick = mnuActAttachtoIDParentClick
564 end
565 object mnuActDetachFromIDParent: TMenuItem
566 Caption = 'Detac&h from Interdisciplinary Note'
567 OnClick = mnuActDetachFromIDParentClick
568 end
569 object Z2: TMenuItem
570 Caption = '-'
571 end
572 object mnuActChange: TMenuItem
573 Caption = '&Change Title...'
574 ShortCut = 24643
575 OnClick = mnuActChangeClick
576 end
577 object mnuActLoadBoiler: TMenuItem
578 Caption = 'Reload &Boilerplate Text'
579 OnClick = mnuActLoadBoilerClick
580 end
581 object Z4: TMenuItem
582 Caption = '-'
583 end
584 object mnuActSignList: TMenuItem
585 Caption = 'Add to Signature &List'
586 Hint =
587 'Adds the currently displayed Discharge Summary to list of things' +
588 ' to be signed'
589 OnClick = mnuActSignListClick
590 end
591 object mnuActDelete: TMenuItem
592 Caption = '&Delete Discharge Summary...'
593 ShortCut = 24644
594 OnClick = mnuActDeleteClick
595 end
596 object mnuActEdit: TMenuItem
597 Caption = '&Edit Discharge Summary...'
598 ShortCut = 24645
599 OnClick = mnuActEditClick
600 end
601 object mnuActSave: TMenuItem
602 Caption = 'S&ave without Signature'
603 Hint = 'Saves the Discharge Summary that is being edited'
604 ShortCut = 24641
605 OnClick = mnuActSaveClick
606 end
607 object mnuActSign: TMenuItem
608 Caption = 'Si&gn Discharge Summary Now...'
609 ShortCut = 24647
610 OnClick = mnuActSignClick
611 end
612 object mnuActIdentifyAddlSigners: TMenuItem
613 Caption = '&Identify Additional Signers'
614 OnClick = mnuActIdentifyAddlSignersClick
615 end
616 end
617 object mnuOptions: TMenuItem
618 Caption = '&Options'
619 GroupIndex = 4
620 OnClick = mnuOptionsClick
621 object mnuEditTemplates: TMenuItem
622 Caption = 'Edit &Templates...'
623 OnClick = mnuEditTemplatesClick
624 end
625 object mnuNewTemplate: TMenuItem
626 Caption = 'Create &New Template...'
627 OnClick = mnuNewTemplateClick
628 end
629 object N3: TMenuItem
630 Caption = '-'
631 end
632 object mnuEditSharedTemplates: TMenuItem
633 Caption = 'Edit &Shared Templates...'
634 OnClick = mnuEditSharedTemplatesClick
635 end
636 object mnuNewSharedTemplate: TMenuItem
637 Caption = '&Create New Shared Template...'
638 OnClick = mnuNewSharedTemplateClick
639 end
640 object N4: TMenuItem
641 Caption = '-'
642 end
643 object mnuEditDialgFields: TMenuItem
644 Caption = 'Edit Template &Fields'
645 OnClick = mnuEditDialgFieldsClick
646 end
647 end
648 end
649 object popSummMemo: TPopupMenu
650 OnPopup = popSummMemoPopup
651 Left = 539
652 Top = 304
653 object popSummMemoCut: TMenuItem
654 Caption = 'Cu&t'
655 ShortCut = 16472
656 OnClick = popSummMemoCutClick
657 end
658 object popSummMemoCopy: TMenuItem
659 Caption = '&Copy'
660 ShortCut = 16451
661 OnClick = popSummMemoCopyClick
662 end
663 object popSummMemoPaste: TMenuItem
664 Caption = '&Paste'
665 ShortCut = 16470
666 OnClick = popSummMemoPasteClick
667 end
668 object popSummMemoPaste2: TMenuItem
669 Caption = 'Paste2'
670 ShortCut = 8237
671 Visible = False
672 OnClick = popSummMemoPasteClick
673 end
674 object popSummMemoReformat: TMenuItem
675 Caption = 'Re&format Paragraph'
676 ShortCut = 24658
677 OnClick = popSummMemoReformatClick
678 end
679 object popSummMemoSaveContinue: TMenuItem
680 Caption = 'Save && Continue Editing'
681 ShortCut = 24659
682 Visible = False
683 OnClick = popSummMemoSaveContinueClick
684 end
685 object Z11: TMenuItem
686 Caption = '-'
687 end
688 object popSummMemoFind: TMenuItem
689 Caption = '&Find in Selected Summary'
690 OnClick = popSummMemoFindClick
691 end
692 object popSummMemoReplace: TMenuItem
693 Caption = '&Replace Text'
694 OnClick = popSummMemoReplaceClick
695 end
696 object N8: TMenuItem
697 Caption = '-'
698 end
699 object popSummMemoGrammar: TMenuItem
700 Caption = 'Check &Grammar'
701 OnClick = popSummMemoGrammarClick
702 end
703 object popSummMemoSpell: TMenuItem
704 Caption = 'C&heck Spelling'
705 OnClick = popSummMemoSpellClick
706 end
707 object N2: TMenuItem
708 Caption = '-'
709 end
710 object popSummMemoTemplate: TMenuItem
711 Caption = 'Copy Into New &Template'
712 OnClick = popSummMemoTemplateClick
713 end
714 object Z10: TMenuItem
715 Caption = '-'
716 end
717 object popSummMemoSignList: TMenuItem
718 Caption = 'Add to Signature &List'
719 OnClick = mnuActSignListClick
720 end
721 object popSummMemoDelete: TMenuItem
722 Caption = '&Delete Discharge Summary...'
723 OnClick = mnuActDeleteClick
724 end
725 object popSummMemoEdit: TMenuItem
726 Caption = '&Edit Discharge Summary...'
727 OnClick = mnuActEditClick
728 end
729 object popSummMemoAddend: TMenuItem
730 Caption = '&Make Addendum...'
731 OnClick = mnuActAddendClick
732 end
733 object popSummMemoSave: TMenuItem
734 Caption = 'S&ave without Signature'
735 OnClick = mnuActSaveClick
736 end
737 object popSummMemoSign: TMenuItem
738 Caption = '&Sign Discharge Summary Now...'
739 OnClick = mnuActSignClick
740 end
741 object popSummMemoAddlSign: TMenuItem
742 Caption = '&Identify Additional Signers'
743 OnClick = popSummMemoAddlSignClick
744 end
745 object N9: TMenuItem
746 Caption = '-'
747 end
748 object popSummMemoPreview: TMenuItem
749 Caption = 'Previe&w/Print Current Template'
750 ShortCut = 16471
751 OnClick = popSummMemoPreviewClick
752 end
753 object popSummMemoInsTemplate: TMenuItem
754 Caption = 'Insert Current Template'
755 ShortCut = 16429
756 OnClick = popSummMemoInsTemplateClick
757 end
758 object popSummMemoEncounter: TMenuItem
759 Caption = 'Edit Encounter Information'
760 ShortCut = 16453
761 OnClick = cmdPCEClick
762 end
763 end
764 object popSummList: TPopupMenu
765 OnPopup = popSummListPopup
766 Left = 500
767 Top = 304
768 object popSummListAll: TMenuItem
769 Tag = 1
770 Caption = '&Signed Discharge Summaries (All)'
771 OnClick = mnuViewClick
772 end
773 object popSummListByAuthor: TMenuItem
774 Tag = 4
775 Caption = 'Signed Discharge Summaries by &Author'
776 OnClick = mnuViewClick
777 end
778 object popSummListByDate: TMenuItem
779 Tag = 5
780 Caption = 'Signed Discharge Summaries by Date &Range'
781 OnClick = mnuViewClick
782 end
783 object popSummListUncosigned: TMenuItem
784 Tag = 3
785 Caption = 'Un&cosigned Discharge Summaries'
786 OnClick = mnuViewClick
787 end
788 object popSummListUnsigned: TMenuItem
789 Tag = 2
790 Caption = '&Unsigned Discharge Summaries'
791 OnClick = mnuViewClick
792 end
793 object popSummListCustom: TMenuItem
794 Tag = 6
795 Caption = 'Cus&tom View'
796 OnClick = mnuViewClick
797 end
798 object N5: TMenuItem
799 Caption = '-'
800 end
801 object popSummListExpandSelected: TMenuItem
802 Caption = '&Expand Selected'
803 OnClick = popSummListExpandSelectedClick
804 end
805 object popSummListExpandAll: TMenuItem
806 Caption = 'E&xpand All'
807 OnClick = popSummListExpandAllClick
808 end
809 object popSummListCollapseSelected: TMenuItem
810 Caption = 'C&ollapse Selected'
811 OnClick = popSummListCollapseSelectedClick
812 end
813 object popSummListCollapseAll: TMenuItem
814 Caption = 'Co&llapse All'
815 OnClick = popSummListCollapseAllClick
816 end
817 object N6: TMenuItem
818 Caption = '-'
819 end
820 object popSummListAddIDEntry: TMenuItem
821 Caption = 'Add Ne&w Entry to Interdisciplinary Note'
822 OnClick = mnuActAddIDEntryClick
823 end
824 object popSummListAttachtoIDParent: TMenuItem
825 Caption = 'A&ttach to Interdisciplinary Note'
826 OnClick = mnuActAttachtoIDParentClick
827 end
828 object popSummListDetachFromIDParent: TMenuItem
829 Caption = 'Detac&h from Interdisciplinary Note'
830 OnClick = mnuActDetachFromIDParentClick
831 end
832 end
833 object timAutoSave: TTimer
834 Enabled = False
835 Interval = 300000
836 OnTimer = timAutoSaveTimer
837 Left = 560
838 Top = 61
839 end
840 object dlgFindText: TFindDialog
841 Options = [frDown, frHideUpDown]
842 OnFind = dlgFindTextFind
843 Left = 452
844 Top = 312
845 end
846 object dlgReplaceText: TReplaceDialog
847 OnFind = dlgReplaceTextFind
848 OnReplace = dlgReplaceTextReplace
849 Left = 409
850 Top = 313
851 end
852end
Note: See TracBrowser for help on using the repository browser.