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