source: cprs/branches/foia-cprs/CPRS-Chart/fSurgery.dfm@ 755

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

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