source: cprs/branches/foia-cprs/CPRS-Chart/Templates/fTemplateEditor.dfm@ 1154

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

Adding foia-cprs branch
File size: 50.6 KB
Line 
1object frmTemplateEditor: TfrmTemplateEditor
2 Left = 135
3 Top = 239
4 Width = 748
5 Height = 470
6 HelpContext = 10000
7 ActiveControl = tvPersonal
8 BorderIcons = [biSystemMenu, biMaximize]
9 Caption = 'Template Editor'
10 Color = clBtnFace
11 Font.Charset = DEFAULT_CHARSET
12 Font.Color = clWindowText
13 Font.Height = -11
14 Font.Name = 'MS Sans Serif'
15 Font.Style = []
16 OldCreateOrder = False
17 Position = poScreenCenter
18 Scaled = False
19 OnCloseQuery = FormCloseQuery
20 OnCreate = FormCreate
21 OnDestroy = FormDestroy
22 OnShow = FormShow
23 PixelsPerInch = 96
24 TextHeight = 13
25 object splMain: TSplitter
26 Left = 0
27 Top = 239
28 Width = 740
29 Height = 3
30 Cursor = crVSplit
31 Align = alTop
32 AutoSnap = False
33 Beveled = True
34 MinSize = 40
35 OnMoved = splMainMoved
36 end
37 object splNotes: TSplitter
38 Left = 0
39 Top = 371
40 Width = 740
41 Height = 3
42 Cursor = crVSplit
43 Align = alBottom
44 AutoSnap = False
45 Beveled = True
46 Visible = False
47 OnMoved = splBoilMoved
48 end
49 object pnlBottom: TORAutoPanel
50 Left = 0
51 Top = 416
52 Width = 740
53 Height = 27
54 Align = alBottom
55 BevelOuter = bvNone
56 TabOrder = 4
57 DesignSize = (
58 740
59 27)
60 object btnApply: TButton
61 Left = 664
62 Top = 4
63 Width = 75
64 Height = 22
65 Anchors = [akTop, akRight]
66 Caption = 'Apply'
67 ParentShowHint = False
68 ShowHint = False
69 TabOrder = 5
70 OnClick = btnApplyClick
71 end
72 object btnCancel: TButton
73 Left = 584
74 Top = 4
75 Width = 75
76 Height = 22
77 Anchors = [akTop, akRight]
78 Cancel = True
79 Caption = 'Cancel'
80 ModalResult = 2
81 ParentShowHint = False
82 ShowHint = False
83 TabOrder = 4
84 OnClick = btnCancelClick
85 end
86 object btnOK: TButton
87 Left = 504
88 Top = 4
89 Width = 75
90 Height = 22
91 Anchors = [akTop, akRight]
92 Caption = 'OK'
93 ParentShowHint = False
94 ShowHint = False
95 TabOrder = 3
96 OnClick = btnOKClick
97 end
98 object cbEditShared: TCheckBox
99 Left = 0
100 Top = 6
101 Width = 129
102 Height = 17
103 Caption = 'E&dit Shared Templates'
104 TabOrder = 0
105 OnClick = cbEditSharedClick
106 end
107 object cbNotes: TCheckBox
108 Left = 259
109 Top = 6
110 Width = 128
111 Height = 17
112 Hint =
113 'Keep notes about a template that can be seen from the templates ' +
114 'drawer'
115 Caption = 'Sh&ow Template Notes'
116 ParentShowHint = False
117 ShowHint = True
118 TabOrder = 2
119 OnClick = cbNotesClick
120 end
121 object cbEditUser: TCheckBox
122 Left = 132
123 Top = 6
124 Width = 123
125 Height = 17
126 Caption = 'E&dit User'#39's Templates'
127 TabOrder = 1
128 Visible = False
129 OnClick = cbEditSharedClick
130 end
131 end
132 object pnlBoilerplate: TPanel
133 Left = 0
134 Top = 284
135 Width = 740
136 Height = 87
137 Align = alClient
138 BevelOuter = bvNone
139 TabOrder = 2
140 OnCanResize = pnlBoilerplateCanResize
141 OnResize = pnlBoilerplateResize
142 object splBoil: TSplitter
143 Left = 0
144 Top = 43
145 Width = 740
146 Height = 3
147 Cursor = crVSplit
148 Align = alBottom
149 AutoSnap = False
150 Beveled = True
151 Visible = False
152 OnMoved = splBoilMoved
153 end
154 object reBoil: TRichEdit
155 Left = 0
156 Top = 14
157 Width = 740
158 Height = 29
159 Align = alClient
160 Font.Charset = ANSI_CHARSET
161 Font.Color = clWindowText
162 Font.Height = -11
163 Font.Name = 'Courier New'
164 Font.Style = []
165 ParentFont = False
166 PlainText = True
167 PopupMenu = popBoilerplate
168 ScrollBars = ssBoth
169 TabOrder = 1
170 WantTabs = True
171 OnChange = reBoilChange
172 OnKeyDown = reBoilKeyDown
173 OnKeyPress = reBoilKeyPress
174 OnKeyUp = reBoilKeyUp
175 OnResizeRequest = reResizeRequest
176 OnSelectionChange = reBoilSelectionChange
177 end
178 object pnlGroupBP: TPanel
179 Left = 0
180 Top = 46
181 Width = 740
182 Height = 41
183 Align = alBottom
184 BevelOuter = bvNone
185 TabOrder = 2
186 Visible = False
187 object lblGroupBP: TLabel
188 Left = 0
189 Top = 0
190 Width = 740
191 Height = 13
192 Align = alTop
193 Caption = 'Group Boilerplate'
194 end
195 object lblGroupRow: TLabel
196 Left = 264
197 Top = 0
198 Width = 23
199 Height = 13
200 Caption = 'Line:'
201 end
202 object lblGroupCol: TLabel
203 Left = 336
204 Top = 0
205 Width = 38
206 Height = 13
207 Caption = 'Column:'
208 end
209 object reGroupBP: TRichEdit
210 Left = 0
211 Top = 16
212 Width = 740
213 Height = 25
214 Align = alClient
215 Color = clCream
216 Font.Charset = ANSI_CHARSET
217 Font.Color = clWindowText
218 Font.Height = -11
219 Font.Name = 'Courier New'
220 Font.Style = []
221 ParentFont = False
222 PlainText = True
223 PopupMenu = popGroup
224 ReadOnly = True
225 ScrollBars = ssBoth
226 TabOrder = 0
227 WantReturns = False
228 OnSelectionChange = reGroupBPSelectionChange
229 end
230 object pnlGroupBPGap: TPanel
231 Left = 0
232 Top = 13
233 Width = 740
234 Height = 3
235 Align = alTop
236 BevelOuter = bvNone
237 TabOrder = 1
238 end
239 end
240 object pnlBP: TPanel
241 Left = 0
242 Top = 0
243 Width = 740
244 Height = 14
245 Align = alTop
246 BevelOuter = bvNone
247 TabOrder = 0
248 object lblBoilerplate: TLabel
249 Left = 0
250 Top = 0
251 Width = 96
252 Height = 13
253 Caption = 'Template &Boilerplate'
254 FocusControl = reBoil
255 end
256 object lblBoilRow: TLabel
257 Left = 264
258 Top = 0
259 Width = 23
260 Height = 13
261 Caption = 'Line:'
262 end
263 object lblBoilCol: TLabel
264 Left = 336
265 Top = 0
266 Width = 38
267 Height = 13
268 Caption = 'Column:'
269 Color = clBtnFace
270 ParentColor = False
271 end
272 object cbLongLines: TCheckBox
273 Left = 120
274 Top = -2
275 Width = 105
276 Height = 17
277 Caption = 'Allow Lon&g Lines'
278 TabOrder = 0
279 OnClick = cbLongLinesClick
280 end
281 end
282 end
283 object pnlTop: TPanel
284 Left = 0
285 Top = 0
286 Width = 740
287 Height = 239
288 Align = alTop
289 BevelOuter = bvNone
290 Constraints.MinHeight = 223
291 TabOrder = 0
292 object splMiddle: TSplitter
293 Left = 297
294 Top = 24
295 Width = 3
296 Height = 215
297 Cursor = crHSplit
298 Align = alRight
299 AutoSnap = False
300 Beveled = True
301 end
302 object Bevel1: TBevel
303 Left = 0
304 Top = 22
305 Width = 740
306 Height = 2
307 Align = alTop
308 Shape = bsSpacer
309 end
310 object pnlRightTop: TPanel
311 Left = 300
312 Top = 24
313 Width = 440
314 Height = 215
315 Align = alRight
316 BevelOuter = bvNone
317 TabOrder = 2
318 object splProperties: TSplitter
319 Left = 216
320 Top = 0
321 Width = 3
322 Height = 215
323 Cursor = crHSplit
324 Align = alRight
325 AutoSnap = False
326 Beveled = True
327 end
328 object pnlCopyBtns: TPanel
329 Left = 0
330 Top = 0
331 Width = 27
332 Height = 215
333 Align = alLeft
334 BevelOuter = bvNone
335 TabOrder = 0
336 DesignSize = (
337 27
338 215)
339 object lblCopy: TLabel
340 Left = -3
341 Top = 82
342 Width = 30
343 Height = 13
344 Alignment = taCenter
345 Anchors = [akLeft, akTop, akRight]
346 AutoSize = False
347 Caption = 'Copy'
348 Enabled = False
349 Font.Charset = DEFAULT_CHARSET
350 Font.Color = clWindowText
351 Font.Height = -11
352 Font.Name = 'MS Sans Serif'
353 Font.Style = []
354 ParentFont = False
355 Layout = tlCenter
356 end
357 object sbCopyRight: TBitBtn
358 Left = 1
359 Top = 125
360 Width = 23
361 Height = 23
362 Hint = 'Copy Shared Template into Personal Template List'
363 Enabled = False
364 ParentShowHint = False
365 ShowHint = True
366 TabOrder = 1
367 OnClick = sbCopyRightClick
368 Glyph.Data = {
369 76010000424D7601000000000000760000002800000020000000100000000100
370 0400000000000001000000000000000000001000000010000000000000000000
371 8000008000000080800080000000800080008080000080808000C0C0C0000000
372 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00111111111111
373 1111111111111111111111111111111111111111111F11111111111111011111
374 11111111117FF1111111111111001111111111111177FF111111111111000111
375 1111111111777FF11111111111000011111111FFFF7777FF1111100000000001
376 111117777777777FF1111000000000001111177777777777FF11100000000000
377 01111777777777777F1110000000000001111777777777777111100000000000
378 1111177777777777111110000000000111111777777777711111111111000011
379 1111111111777711111111111100011111111111117771111111111111001111
380 1111111111771111111111111101111111111111117111111111}
381 NumGlyphs = 2
382 end
383 object sbCopyLeft: TBitBtn
384 Tag = 1
385 Left = 1
386 Top = 100
387 Width = 23
388 Height = 23
389 Hint = 'Copy Personal Template into Shared Template List'
390 Enabled = False
391 ParentShowHint = False
392 ShowHint = True
393 TabOrder = 0
394 OnClick = sbCopyLeftClick
395 Glyph.Data = {
396 76010000424D7601000000000000760000002800000020000000100000000100
397 0400000000000001000000000000000000001000000010000000000000000000
398 8000008000000080800080000000800080008080000080808000C0C0C0000000
399 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00111111111111
400 11111111111111111111111111111111111111111111F1111111111111101111
401 111111111117F1111111111111001111111111111177F1111111111110001111
402 111111111777F1111111111100001111111111117777FFFFFF11111000000000
403 01111117777777777F1111000000000001111177777777777F11100000000000
404 01111777777777777F1110000000000001111777777777777F11110000000000
405 01111177777777777F1111100000000001111117777777777111111100001111
406 111111117777F1111111111110001111111111111777F1111111111111001111
407 111111111177F111111111111110111111111111111711111111}
408 NumGlyphs = 2
409 end
410 end
411 object pnlPersonal: TPanel
412 Left = 27
413 Top = 0
414 Width = 189
415 Height = 215
416 Align = alClient
417 BevelOuter = bvNone
418 Constraints.MinWidth = 100
419 TabOrder = 1
420 object lblPersonal: TLabel
421 Tag = 1
422 Left = 0
423 Top = 0
424 Width = 189
425 Height = 13
426 Align = alTop
427 Caption = '&Personal Templates'
428 FocusControl = tvPersonal
429 PopupMenu = popTemplates
430 end
431 object tvPersonal: TORTreeView
432 Tag = 1
433 Left = 0
434 Top = 53
435 Width = 189
436 Height = 138
437 Align = alClient
438 DragMode = dmAutomatic
439 Images = dmodShared.imgTemplates
440 Indent = 19
441 PopupMenu = popTemplates
442 RightClickSelect = True
443 TabOrder = 1
444 OnChange = tvTreeChange
445 OnDragDrop = tvTreeDragDrop
446 OnDragOver = tvTreeDragOver
447 OnEdited = tvTreeNodeEdited
448 OnEndDrag = tvTreeEndDrag
449 OnEnter = tvTreeEnter
450 OnExpanding = tvPersonalExpanding
451 OnGetImageIndex = tvTreeGetImageIndex
452 OnGetSelectedIndex = tvTreeGetSelectedIndex
453 OnKeyDown = tvTreeKeyDown
454 OnStartDrag = tvTreeStartDrag
455 Caption = 'Personal Templates'
456 NodePiece = 0
457 OnDragging = tvTreeDragging
458 end
459 object pnlPersonalBottom: TPanel
460 Left = 0
461 Top = 191
462 Width = 189
463 Height = 24
464 Align = alBottom
465 BevelOuter = bvNone
466 TabOrder = 2
467 DesignSize = (
468 189
469 24)
470 object sbPerUp: TBitBtn
471 Tag = 1
472 Left = 86
473 Top = 2
474 Width = 21
475 Height = 21
476 Hint = 'Move Personal Template Up'
477 Anchors = [akTop, akRight]
478 Enabled = False
479 ParentShowHint = False
480 ShowHint = True
481 TabOrder = 1
482 OnClick = sbMoveUpClick
483 Glyph.Data = {
484 76010000424D7601000000000000760000002800000020000000100000000100
485 0400000000000001000000000000000000001000000010000000000000000000
486 8000008000000080800080000000800080008080000080808000C0C0C0000000
487 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00111111111111
488 1111111111111111111111111111111111111111111111111111111111111111
489 111111111FFFFFF1111111110000001111111111777777F11111111100000011
490 11111111777777F1111111110000001111111111777777F11111111100000011
491 11111111777777F1111111110000001111111FFF777777FFFFF1000000000000
492 0011777777777777771110000000000001111777777777777111110000000000
493 1111117777777777111111100000000111111117777777711111111100000011
494 1111111177777711111111111000011111111111177771111111111111001111
495 1111111111771111111111111111111111111111111111111111}
496 NumGlyphs = 2
497 end
498 object sbPerDown: TBitBtn
499 Tag = 1
500 Left = 109
501 Top = 2
502 Width = 21
503 Height = 21
504 Hint = 'Move Personal Template Down'
505 Anchors = [akTop, akRight]
506 Enabled = False
507 ParentShowHint = False
508 ShowHint = True
509 TabOrder = 2
510 OnClick = sbMoveDownClick
511 Glyph.Data = {
512 76010000424D7601000000000000760000002800000020000000100000000100
513 0400000000000001000000000000000000001000000010000000000000000000
514 8000008000000080800080000000800080008080000080808000C0C0C0000000
515 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00111111111111
516 1111111111111111111111111111111111111111111111111111111111111111
517 11111111111FF1111111111111001111111111111177FF111111111110000111
518 1111111117777FF1111111110000001111111111777777FF1111111000000001
519 111111177777777FF1111100000000001111117777777777FF11100000000000
520 01111777777777777FF100000000000000117777777777777711111100000011
521 11111111777777F1111111110000001111111111777777F11111111100000011
522 11111111777777F1111111110000001111111111777777F11111111100000011
523 1111111177777711111111111111111111111111111111111111}
524 NumGlyphs = 2
525 end
526 object sbPerDelete: TBitBtn
527 Tag = 1
528 Left = 132
529 Top = 2
530 Width = 56
531 Height = 21
532 Hint = 'Delete Personal Template'
533 Anchors = [akTop, akRight]
534 Caption = 'Delete'
535 Enabled = False
536 ParentShowHint = False
537 ShowHint = True
538 TabOrder = 3
539 OnClick = sbDeleteClick
540 Glyph.Data = {
541 76010000424D7601000000000000760000002800000020000000100000000100
542 0400000000000001000000000000000000001000000010000000000000000000
543 8000008000000080800080000000800080008080000080808000C0C0C0000000
544 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00111111111111
545 1111111111111111111111111111111111111111111111111111111111111111
546 111111FF11111111FF111001111111100111177FF11111177F11100011111100
547 01111777FF1111777111110001111000111111777FF117771111111000110001
548 1111111777FF7771111111110000001111111111777777111111111110000111
549 1111111117777F1111111111100001111111111117777FF11111111100000011
550 11111111777777FF1111111000110001111111177711777FF111110001111000
551 1111117771111777FF1110001111110001111777111111777111100111111110
552 0111177111111117711111111111111111111111111111111111}
553 Layout = blGlyphRight
554 NumGlyphs = 2
555 end
556 object cbPerHide: TCheckBox
557 Left = 0
558 Top = 4
559 Width = 83
560 Height = 17
561 Hint = 'Hide Inactive Personal Templates'
562 Anchors = [akLeft, akTop, akRight]
563 Caption = 'Hide &Inactive'
564 ParentShowHint = False
565 ShowHint = True
566 TabOrder = 0
567 OnClick = cbPerHideClick
568 end
569 end
570 object pnlPersonalGap: TPanel
571 Tag = 1
572 Left = 0
573 Top = 13
574 Width = 189
575 Height = 2
576 Align = alTop
577 BevelOuter = bvNone
578 PopupMenu = popTemplates
579 TabOrder = 3
580 end
581 object pnlPerSearch: TPanel
582 Left = 0
583 Top = 15
584 Width = 189
585 Height = 38
586 Align = alTop
587 BevelOuter = bvNone
588 TabOrder = 0
589 OnResize = pnlPerSearchResize
590 DesignSize = (
591 189
592 38)
593 object btnPerFind: TORAlignButton
594 Tag = 1
595 Left = 134
596 Top = 0
597 Width = 55
598 Height = 21
599 Hint = 'Find Template'
600 Anchors = [akTop, akRight]
601 Caption = 'Find'
602 ParentShowHint = False
603 PopupMenu = popTemplates
604 ShowHint = True
605 TabOrder = 1
606 OnClick = btnFindClick
607 end
608 object edtPerSearch: TCaptionEdit
609 Tag = 1
610 Left = 0
611 Top = 0
612 Width = 134
613 Height = 21
614 Anchors = [akLeft, akTop, akRight]
615 TabOrder = 0
616 OnChange = edtSearchChange
617 OnEnter = edtPerSearchEnter
618 OnExit = edtPerSearchExit
619 Caption = 'Personal Templates'
620 end
621 object cbPerMatchCase: TCheckBox
622 Tag = 1
623 Left = 0
624 Top = 21
625 Width = 80
626 Height = 17
627 Caption = 'Match Case'
628 TabOrder = 2
629 OnClick = cbPerFindOptionClick
630 end
631 object cbPerWholeWords: TCheckBox
632 Tag = 1
633 Left = 80
634 Top = 21
635 Width = 109
636 Height = 17
637 Caption = 'Whole Words Only'
638 TabOrder = 3
639 OnClick = cbPerFindOptionClick
640 end
641 end
642 end
643 object pnlProperties: TPanel
644 Left = 219
645 Top = 0
646 Width = 221
647 Height = 215
648 Align = alRight
649 BevelOuter = bvNone
650 TabOrder = 2
651 OnResize = pnlPropertiesResize
652 object gbProperties: TGroupBox
653 Left = 0
654 Top = 0
655 Width = 221
656 Height = 215
657 Align = alClient
658 Caption = ' Template Properties '
659 Constraints.MinWidth = 100
660 TabOrder = 0
661 DesignSize = (
662 221
663 215)
664 object lblName: TLabel
665 Left = 5
666 Top = 18
667 Width = 31
668 Height = 13
669 Caption = 'Na&me:'
670 FocusControl = edtName
671 end
672 object lblLines: TLabel
673 Left = 43
674 Top = 186
675 Width = 110
676 Height = 27
677 Hint =
678 'Indicates the number of blank lines to insert, in the group boil' +
679 'erplate, between each item'#39's boilerplate.'
680 Anchors = [akLeft, akTop, akRight, akBottom]
681 AutoSize = False
682 Caption = 'Number of Blank &Lines to insert between items'
683 FocusControl = edtGap
684 ParentShowHint = False
685 ShowHint = True
686 WordWrap = True
687 end
688 object lblType: TLabel
689 Left = 5
690 Top = 44
691 Width = 74
692 Height = 13
693 Caption = 'Template T&ype:'
694 FocusControl = cbxType
695 end
696 object lblRemDlg: TLabel
697 Left = 5
698 Top = 60
699 Width = 48
700 Height = 26
701 Alignment = taCenter
702 Caption = 'Reminder &Dialog:'
703 FocusControl = cbxRemDlgs
704 WordWrap = True
705 end
706 object cbExclude: TORCheckBox
707 Left = 5
708 Top = 143
709 Width = 73
710 Height = 42
711 Hint =
712 'Removes this template'#39's boilerplate from the group'#39's boilerplate' +
713 '.'
714 Caption = 'E&xclude from Group Boilerplate'
715 ParentShowHint = False
716 ShowHint = True
717 TabOrder = 5
718 OnClick = cbExcludeClick
719 WordWrap = True
720 AutoSize = True
721 end
722 object cbActive: TCheckBox
723 Left = 5
724 Top = 86
725 Width = 61
726 Height = 17
727 Hint = 'Makes a template or folder active or inactive.'
728 Caption = 'A&ctive'
729 Checked = True
730 ParentShowHint = False
731 ShowHint = True
732 State = cbChecked
733 TabOrder = 3
734 OnClick = cbActiveClick
735 end
736 object edtGap: TCaptionEdit
737 Left = 5
738 Top = 190
739 Width = 20
740 Height = 21
741 Hint =
742 'Indicates the number of blank lines to insert, in the group boil' +
743 'erplate, between each item'#39's boilerplate.'
744 MaxLength = 1
745 ParentShowHint = False
746 ShowHint = True
747 TabOrder = 7
748 Text = '0'
749 OnChange = edtGapChange
750 OnKeyPress = edtGapKeyPress
751 Caption = 'Number of Blank Lines to insert between items'
752 end
753 object udGap: TUpDown
754 Left = 25
755 Top = 190
756 Width = 15
757 Height = 21
758 Hint =
759 'Indicates the number of blank lines to insert, in the group boil' +
760 'erplate, between each item'#39's boilerplate.'
761 Associate = edtGap
762 Min = 0
763 Max = 3
764 ParentShowHint = False
765 Position = 0
766 ShowHint = True
767 TabOrder = 8
768 Wrap = False
769 end
770 object edtName: TCaptionEdit
771 Left = 38
772 Top = 15
773 Width = 177
774 Height = 21
775 Anchors = [akLeft, akTop, akRight]
776 MaxLength = 60
777 TabOrder = 0
778 OnChange = edtNameOldChange
779 OnExit = edtNameExit
780 Caption = 'Name'
781 end
782 object gbDialogProps: TGroupBox
783 Left = 89
784 Top = 87
785 Width = 126
786 Height = 95
787 Anchors = [akLeft, akTop, akRight]
788 Caption = 'Dialog Properties'
789 Font.Charset = DEFAULT_CHARSET
790 Font.Color = clWindowText
791 Font.Height = -11
792 Font.Name = 'MS Sans Serif'
793 Font.Style = []
794 ParentFont = False
795 TabOrder = 6
796 object cbDisplayOnly: TCheckBox
797 Left = 6
798 Top = 15
799 Width = 82
800 Height = 17
801 Hint =
802 'Template boilerplate is for dialog display only, and can not be ' +
803 'added to the note.'
804 Caption = 'Display Only'
805 ParentShowHint = False
806 ShowHint = True
807 TabOrder = 0
808 OnClick = cbDisplayOnlyClick
809 end
810 object cbOneItemOnly: TCheckBox
811 Left = 6
812 Top = 60
813 Width = 113
814 Height = 17
815 Hint = 'Allow only one child item to be selected at a time'
816 Caption = 'One Item Only'
817 ParentShowHint = False
818 ShowHint = True
819 TabOrder = 3
820 OnClick = cbOneItemOnlyClick
821 end
822 object cbFirstLine: TCheckBox
823 Left = 6
824 Top = 30
825 Width = 115
826 Height = 17
827 Hint =
828 'Only show the first line of text in the dialog, but include the ' +
829 'entire template in the note'
830 Caption = 'Only Show First Line'
831 ParentShowHint = False
832 ShowHint = True
833 TabOrder = 1
834 OnClick = cbFirstLineClick
835 end
836 object cbHideDlgItems: TCheckBox
837 Left = 6
838 Top = 75
839 Width = 107
840 Height = 17
841 Hint = 'Hide child items when parent template is not selected'
842 Caption = 'Hide Dialog Items'
843 ParentShowHint = False
844 ShowHint = True
845 TabOrder = 4
846 OnClick = cbHideDlgItemsClick
847 end
848 object cbIndent: TCheckBox
849 Left = 6
850 Top = 45
851 Width = 117
852 Height = 17
853 Hint =
854 'Indent child items in the dialog. Text insertion remains unchan' +
855 'ged'
856 Caption = 'Indent Dialog Items'
857 ParentShowHint = False
858 ShowHint = True
859 TabOrder = 2
860 OnClick = cbIndentClick
861 end
862 end
863 object cbHideItems: TORCheckBox
864 Left = 5
865 Top = 102
866 Width = 79
867 Height = 42
868 Hint = 'Hide child items from template drawer view'
869 Caption = 'Hide Items in Templates Dra&wer'
870 ParentShowHint = False
871 ShowHint = True
872 TabOrder = 4
873 OnClick = cbHideItemsClick
874 WordWrap = True
875 AutoSize = True
876 end
877 object cbxType: TCaptionComboBox
878 Left = 82
879 Top = 38
880 Width = 133
881 Height = 24
882 Style = csOwnerDrawFixed
883 Anchors = [akLeft, akTop, akRight]
884 ItemHeight = 18
885 ParentShowHint = False
886 ShowHint = True
887 TabOrder = 1
888 OnChange = cbxTypeChange
889 OnDrawItem = cbxTypeDrawItem
890 Caption = 'Template Type'
891 end
892 object cbxRemDlgs: TORComboBox
893 Left = 54
894 Top = 64
895 Width = 161
896 Height = 21
897 Anchors = [akLeft, akTop, akRight]
898 Style = orcsDropDown
899 AutoSelect = True
900 Caption = 'Reminder Dialog'
901 Color = clWindow
902 DropDownCount = 12
903 ItemHeight = 13
904 ItemTipColor = clWindow
905 ItemTipEnable = True
906 ListItemsOnly = True
907 LongList = False
908 LookupPiece = 0
909 MaxLength = 0
910 Pieces = '2'
911 Sorted = False
912 SynonymChars = '<>'
913 TabOrder = 2
914 OnChange = cbxRemDlgsChange
915 end
916 object cbLock: TORCheckBox
917 Left = 168
918 Top = 191
919 Width = 47
920 Height = 16
921 Caption = 'Lock'
922 TabOrder = 9
923 OnClick = cbLockClick
924 end
925 end
926 end
927 end
928 object pnlShared: TPanel
929 Left = 0
930 Top = 24
931 Width = 297
932 Height = 215
933 Align = alClient
934 BevelOuter = bvNone
935 TabOrder = 1
936 object lblShared: TLabel
937 Left = 0
938 Top = 0
939 Width = 297
940 Height = 13
941 Align = alTop
942 Caption = '&Shared Templates'
943 FocusControl = tvShared
944 PopupMenu = popTemplates
945 end
946 object tvShared: TORTreeView
947 Left = 0
948 Top = 53
949 Width = 297
950 Height = 138
951 Align = alClient
952 DragMode = dmAutomatic
953 Images = dmodShared.imgTemplates
954 Indent = 19
955 PopupMenu = popTemplates
956 RightClickSelect = True
957 TabOrder = 1
958 OnChange = tvTreeChange
959 OnDragDrop = tvTreeDragDrop
960 OnDragOver = tvTreeDragOver
961 OnEdited = tvTreeNodeEdited
962 OnEndDrag = tvTreeEndDrag
963 OnEnter = tvTreeEnter
964 OnExpanding = tvSharedExpanding
965 OnGetImageIndex = tvTreeGetImageIndex
966 OnGetSelectedIndex = tvTreeGetSelectedIndex
967 OnKeyDown = tvTreeKeyDown
968 OnStartDrag = tvTreeStartDrag
969 Caption = 'Shared Templates'
970 NodePiece = 0
971 OnDragging = tvTreeDragging
972 end
973 object pnlSharedBottom: TPanel
974 Left = 0
975 Top = 191
976 Width = 297
977 Height = 24
978 Align = alBottom
979 BevelOuter = bvNone
980 TabOrder = 2
981 DesignSize = (
982 297
983 24)
984 object sbShUp: TBitBtn
985 Left = 194
986 Top = 2
987 Width = 21
988 Height = 21
989 Hint = 'Move Shared Template Up'
990 Anchors = [akTop, akRight]
991 Enabled = False
992 ParentShowHint = False
993 ShowHint = True
994 TabOrder = 1
995 OnClick = sbMoveUpClick
996 Glyph.Data = {
997 76010000424D7601000000000000760000002800000020000000100000000100
998 0400000000000001000000000000000000001000000010000000000000000000
999 8000008000000080800080000000800080008080000080808000C0C0C0000000
1000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00111111111111
1001 1111111111111111111111111111111111111111111111111111111111111111
1002 111111111FFFFFF1111111110000001111111111777777F11111111100000011
1003 11111111777777F1111111110000001111111111777777F11111111100000011
1004 11111111777777F1111111110000001111111FFF777777FFFFF1000000000000
1005 0011777777777777771110000000000001111777777777777111110000000000
1006 1111117777777777111111100000000111111117777777711111111100000011
1007 1111111177777711111111111000011111111111177771111111111111001111
1008 1111111111771111111111111111111111111111111111111111}
1009 NumGlyphs = 2
1010 end
1011 object sbShDown: TBitBtn
1012 Left = 217
1013 Top = 2
1014 Width = 21
1015 Height = 21
1016 Hint = 'Move Shared Template Down'
1017 Anchors = [akTop, akRight]
1018 Enabled = False
1019 ParentShowHint = False
1020 ShowHint = True
1021 TabOrder = 2
1022 OnClick = sbMoveDownClick
1023 Glyph.Data = {
1024 76010000424D7601000000000000760000002800000020000000100000000100
1025 0400000000000001000000000000000000001000000010000000000000000000
1026 8000008000000080800080000000800080008080000080808000C0C0C0000000
1027 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00111111111111
1028 1111111111111111111111111111111111111111111111111111111111111111
1029 11111111111FF1111111111111001111111111111177FF111111111110000111
1030 1111111117777FF1111111110000001111111111777777FF1111111000000001
1031 111111177777777FF1111100000000001111117777777777FF11100000000000
1032 01111777777777777FF100000000000000117777777777777711111100000011
1033 11111111777777F1111111110000001111111111777777F11111111100000011
1034 11111111777777F1111111110000001111111111777777F11111111100000011
1035 1111111177777711111111111111111111111111111111111111}
1036 NumGlyphs = 2
1037 end
1038 object sbShDelete: TBitBtn
1039 Left = 240
1040 Top = 2
1041 Width = 56
1042 Height = 21
1043 Hint = 'Delete Shared Template'
1044 Anchors = [akTop, akRight]
1045 Caption = 'Delete'
1046 Enabled = False
1047 ParentShowHint = False
1048 ShowHint = True
1049 TabOrder = 3
1050 OnClick = sbDeleteClick
1051 Glyph.Data = {
1052 76010000424D7601000000000000760000002800000020000000100000000100
1053 0400000000000001000000000000000000001000000010000000000000000000
1054 8000008000000080800080000000800080008080000080808000C0C0C0000000
1055 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00111111111111
1056 1111111111111111111111111111111111111111111111111111111111111111
1057 111111FF11111111FF111001111111100111177FF11111177F11100011111100
1058 01111777FF1111777111110001111000111111777FF117771111111000110001
1059 1111111777FF7771111111110000001111111111777777111111111110000111
1060 1111111117777F1111111111100001111111111117777FF11111111100000011
1061 11111111777777FF1111111000110001111111177711777FF111110001111000
1062 1111117771111777FF1110001111110001111777111111777111100111111110
1063 0111177111111117711111111111111111111111111111111111}
1064 Layout = blGlyphRight
1065 NumGlyphs = 2
1066 end
1067 object cbShHide: TCheckBox
1068 Left = 0
1069 Top = 4
1070 Width = 191
1071 Height = 17
1072 Hint = 'Hide Inactive Shared Templates'
1073 Anchors = [akLeft, akTop, akRight]
1074 Caption = '&Hide Inactive'
1075 ParentShowHint = False
1076 ShowHint = True
1077 TabOrder = 0
1078 OnClick = cbShHideClick
1079 end
1080 end
1081 object pnlSharedGap: TPanel
1082 Left = 0
1083 Top = 13
1084 Width = 297
1085 Height = 2
1086 Align = alTop
1087 BevelOuter = bvNone
1088 PopupMenu = popTemplates
1089 TabOrder = 3
1090 end
1091 object pnlShSearch: TPanel
1092 Left = 0
1093 Top = 15
1094 Width = 297
1095 Height = 38
1096 Align = alTop
1097 BevelOuter = bvNone
1098 TabOrder = 0
1099 OnResize = pnlShSearchResize
1100 DesignSize = (
1101 297
1102 38)
1103 object btnShFind: TORAlignButton
1104 Left = 242
1105 Top = 0
1106 Width = 55
1107 Height = 21
1108 Hint = 'Find Template'
1109 Anchors = [akTop, akRight]
1110 Caption = 'Find'
1111 ParentShowHint = False
1112 PopupMenu = popTemplates
1113 ShowHint = True
1114 TabOrder = 1
1115 OnClick = btnFindClick
1116 end
1117 object edtShSearch: TCaptionEdit
1118 Left = 0
1119 Top = 0
1120 Width = 242
1121 Height = 21
1122 Anchors = [akLeft, akTop, akRight]
1123 TabOrder = 0
1124 OnChange = edtSearchChange
1125 OnEnter = edtShSearchEnter
1126 OnExit = edtShSearchExit
1127 Caption = 'Shared Templates'
1128 end
1129 object cbShMatchCase: TCheckBox
1130 Left = 0
1131 Top = 21
1132 Width = 80
1133 Height = 17
1134 Caption = 'Match Case'
1135 TabOrder = 2
1136 OnClick = cbShFindOptionClick
1137 end
1138 object cbShWholeWords: TCheckBox
1139 Left = 80
1140 Top = 21
1141 Width = 109
1142 Height = 17
1143 Caption = 'Whole Words Only'
1144 TabOrder = 3
1145 OnClick = cbShFindOptionClick
1146 end
1147 end
1148 end
1149 object pnlMenuBar: TPanel
1150 Left = 0
1151 Top = 0
1152 Width = 740
1153 Height = 22
1154 Align = alTop
1155 BevelOuter = bvNone
1156 TabOrder = 0
1157 object lblPerOwner: TLabel
1158 Left = 138
1159 Top = 4
1160 Width = 75
1161 Height = 13
1162 Caption = 'Personal &Owner'
1163 FocusControl = cboOwner
1164 end
1165 object cboOwner: TORComboBox
1166 Left = 219
1167 Top = 0
1168 Width = 190
1169 Height = 21
1170 Style = orcsDropDown
1171 AutoSelect = True
1172 Caption = 'Personal Owner'
1173 Color = clWindow
1174 DropDownCount = 8
1175 ItemHeight = 13
1176 ItemTipColor = clWindow
1177 ItemTipEnable = True
1178 ListItemsOnly = True
1179 LongList = True
1180 LookupPiece = 0
1181 MaxLength = 0
1182 ParentShowHint = False
1183 Pieces = '2'
1184 ShowHint = True
1185 Sorted = False
1186 SynonymChars = '<>'
1187 TabOrder = 1
1188 OnChange = cboOwnerChange
1189 OnNeedData = cboOwnerNeedData
1190 end
1191 object btnNew: TORAlignButton
1192 Left = 558
1193 Top = 0
1194 Width = 182
1195 Height = 22
1196 Caption = '&New Template'
1197 TabOrder = 2
1198 OnClick = btnNewClick
1199 Align = alRight
1200 end
1201 object pnlMenu: TPanel
1202 Left = 0
1203 Top = 0
1204 Width = 109
1205 Height = 22
1206 Align = alLeft
1207 AutoSize = True
1208 BevelInner = bvRaised
1209 BevelOuter = bvNone
1210 TabOrder = 0
1211 object mbMain: TMenuBar
1212 Left = 1
1213 Top = 1
1214 Width = 69
1215 Height = 20
1216 Align = alLeft
1217 AutoSize = True
1218 ButtonHeight = 21
1219 ButtonWidth = 43
1220 Caption = 'mbMain'
1221 Flat = True
1222 Menu = mnuMain
1223 ShowCaptions = True
1224 TabOrder = 0
1225 OnResize = mbMainResize
1226 end
1227 end
1228 end
1229 end
1230 object pnlNotes: TPanel
1231 Left = 0
1232 Top = 374
1233 Width = 740
1234 Height = 42
1235 Align = alBottom
1236 BevelOuter = bvNone
1237 TabOrder = 3
1238 Visible = False
1239 object lblNotes: TLabel
1240 Left = 0
1241 Top = 0
1242 Width = 740
1243 Height = 13
1244 Align = alTop
1245 Caption = 'Template Notes:'
1246 end
1247 object reNotes: TRichEdit
1248 Left = 0
1249 Top = 13
1250 Width = 740
1251 Height = 29
1252 Align = alClient
1253 Font.Charset = ANSI_CHARSET
1254 Font.Color = clWindowText
1255 Font.Height = -11
1256 Font.Name = 'Courier New'
1257 Font.Style = []
1258 ParentFont = False
1259 PlainText = True
1260 PopupMenu = popNotes
1261 ScrollBars = ssBoth
1262 TabOrder = 0
1263 WantTabs = True
1264 OnChange = reNotesChange
1265 OnKeyDown = reBoilKeyDown
1266 OnKeyPress = reBoilKeyPress
1267 OnKeyUp = reBoilKeyUp
1268 OnResizeRequest = reResizeRequest
1269 end
1270 end
1271 object pnlCOM: TPanel
1272 Left = 0
1273 Top = 263
1274 Width = 740
1275 Height = 21
1276 Align = alTop
1277 BevelOuter = bvNone
1278 TabOrder = 1
1279 Visible = False
1280 object lblCOMParam: TLabel
1281 Left = 283
1282 Top = 0
1283 Width = 77
1284 Height = 21
1285 Align = alLeft
1286 Caption = ' Passed Value: '
1287 Layout = tlCenter
1288 end
1289 object lblCOMObj: TLabel
1290 Left = 0
1291 Top = 0
1292 Width = 67
1293 Height = 21
1294 Align = alLeft
1295 Caption = ' COM Object: '
1296 Layout = tlCenter
1297 end
1298 object edtCOMParam: TCaptionEdit
1299 Left = 360
1300 Top = 0
1301 Width = 380
1302 Height = 21
1303 TabOrder = 0
1304 OnChange = edtCOMParamChange
1305 Align = alClient
1306 Caption = 'Passed Value'
1307 end
1308 object cbxCOMObj: TORComboBox
1309 Left = 67
1310 Top = 0
1311 Width = 216
1312 Height = 21
1313 Style = orcsDropDown
1314 Align = alLeft
1315 AutoSelect = True
1316 Caption = 'COM Object'
1317 Color = clWindow
1318 DropDownCount = 8
1319 ItemHeight = 13
1320 ItemTipColor = clWindow
1321 ItemTipEnable = True
1322 ListItemsOnly = True
1323 LongList = False
1324 LookupPiece = 0
1325 MaxLength = 0
1326 Pieces = '2'
1327 Sorted = False
1328 SynonymChars = '<>'
1329 TabOrder = 1
1330 OnChange = cbxCOMObjChange
1331 end
1332 end
1333 object pnlLink: TPanel
1334 Left = 0
1335 Top = 242
1336 Width = 740
1337 Height = 21
1338 Align = alTop
1339 BevelOuter = bvNone
1340 TabOrder = 5
1341 Visible = False
1342 object lblLink: TLabel
1343 Left = 0
1344 Top = 0
1345 Width = 138
1346 Height = 21
1347 Align = alLeft
1348 Caption = ' Associated Consult Service: '
1349 Layout = tlCenter
1350 end
1351 object cbxLink: TORComboBox
1352 Left = 138
1353 Top = 0
1354 Width = 602
1355 Height = 21
1356 Style = orcsDropDown
1357 Align = alClient
1358 AutoSelect = True
1359 Caption = ' Associated Consult Service'
1360 Color = clWindow
1361 DropDownCount = 8
1362 ItemHeight = 13
1363 ItemTipColor = clWindow
1364 ItemTipEnable = False
1365 ListItemsOnly = True
1366 LongList = True
1367 LookupPiece = 0
1368 MaxLength = 0
1369 Pieces = '2,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,1'
1370 HideSynonyms = True
1371 Sorted = False
1372 SynonymChars = '<>'
1373 TabPositions = '30,5000'
1374 TabOrder = 0
1375 TabStop = True
1376 OnChange = cbxLinkChange
1377 OnNeedData = cbxLinkNeedData
1378 OnSynonymCheck = cbxLinkSynonymCheck
1379 end
1380 end
1381 object popTemplates: TPopupMenu
1382 OnPopup = popTemplatesPopup
1383 Left = 56
1384 Top = 96
1385 object mnuNodeNew: TMenuItem
1386 Caption = '&New Template'
1387 OnClick = btnNewClick
1388 end
1389 object mnuNodeAutoGen: TMenuItem
1390 Caption = '&Generate Template'
1391 OnClick = mnuAutoGenClick
1392 end
1393 object mnuNodeCopy: TMenuItem
1394 Caption = '&Copy Template'
1395 OnClick = mnuNodeCopyClick
1396 end
1397 object mnuNodePaste: TMenuItem
1398 Caption = '&Paste Template'
1399 OnClick = mnuNodePasteClick
1400 end
1401 object mnuNodeDelete: TMenuItem
1402 Caption = '&Delete Template'
1403 OnClick = mnuNodeDeleteClick
1404 end
1405 object N15: TMenuItem
1406 Caption = '-'
1407 end
1408 object mnuNodeSort: TMenuItem
1409 Caption = 'Sort'
1410 OnClick = mnuSortClick
1411 end
1412 object N6: TMenuItem
1413 Caption = '-'
1414 end
1415 object mnuFindTemplates: TMenuItem
1416 Caption = '&Find Templates'
1417 OnClick = mnuFindTemplatesClick
1418 end
1419 object mnuCollapseTree: TMenuItem
1420 Caption = 'Collapse &Tree'
1421 OnClick = mnuCollapseTreeClick
1422 end
1423 end
1424 object popBoilerplate: TPopupMenu
1425 OnPopup = popBoilerplatePopup
1426 Left = 88
1427 Top = 332
1428 object mnuBPUndo: TMenuItem
1429 Caption = '&Undo'
1430 ShortCut = 16474
1431 OnClick = mnuBPUndoClick
1432 end
1433 object N8: TMenuItem
1434 Caption = '-'
1435 end
1436 object mnuBPCut: TMenuItem
1437 Caption = 'Cu&t'
1438 ShortCut = 16472
1439 OnClick = mnuBPCutClick
1440 end
1441 object mnuBPCopy: TMenuItem
1442 Caption = '&Copy'
1443 ShortCut = 16451
1444 OnClick = mnuBPCopyClick
1445 end
1446 object mnuBPPaste: TMenuItem
1447 Caption = '&Paste'
1448 ShortCut = 16470
1449 OnClick = mnuBPPasteClick
1450 end
1451 object mnuBPSelectAll: TMenuItem
1452 Caption = 'Select &All'
1453 ShortCut = 16449
1454 OnClick = mnuBPSelectAllClick
1455 end
1456 object N2: TMenuItem
1457 Caption = '-'
1458 end
1459 object mnuBPInsertObject: TMenuItem
1460 Caption = '&Insert Patient Data (Object)'
1461 ShortCut = 16457
1462 OnClick = mnuBPInsertObjectClick
1463 end
1464 object mnuBPInsertField: TMenuItem
1465 Caption = 'Insert Template &Field'
1466 ShortCut = 16454
1467 OnClick = mnuBPInsertFieldClick
1468 end
1469 object mnuBPErrorCheck: TMenuItem
1470 Caption = 'Check for &Errors'
1471 ShortCut = 16453
1472 OnClick = mnuBPErrorCheckClick
1473 end
1474 object mnuBPTry: TMenuItem
1475 Caption = 'Preview/Print Template'
1476 ShortCut = 16468
1477 OnClick = mnuBPTryClick
1478 end
1479 object N7: TMenuItem
1480 Caption = '-'
1481 end
1482 object mnuBPCheckGrammar: TMenuItem
1483 Caption = 'Check &Grammar'
1484 ShortCut = 16455
1485 OnClick = mnuBPCheckGrammarClick
1486 end
1487 object mnuBPSpellCheck: TMenuItem
1488 Caption = 'Check &Spelling'
1489 ShortCut = 16467
1490 OnClick = mnuBPSpellCheckClick
1491 end
1492 end
1493 object tmrAutoScroll: TTimer
1494 Enabled = False
1495 Interval = 200
1496 OnTimer = tmrAutoScrollTimer
1497 Left = 96
1498 Top = 96
1499 end
1500 object popGroup: TPopupMenu
1501 OnPopup = popGroupPopup
1502 Left = 8
1503 Top = 325
1504 object mnuGroupBPCopy: TMenuItem
1505 Caption = '&Copy'
1506 ShortCut = 16451
1507 OnClick = mnuGroupBPCopyClick
1508 end
1509 object N4: TMenuItem
1510 Caption = '-'
1511 end
1512 object mnuGroupBPSelectAll: TMenuItem
1513 Caption = 'Select &All'
1514 ShortCut = 16449
1515 OnClick = mnuGroupBPSelectAllClick
1516 end
1517 end
1518 object mnuMain: TMainMenu
1519 Left = 16
1520 Top = 104
1521 object mnuEdit: TMenuItem
1522 Caption = '&Edit'
1523 OnClick = mnuEditClick
1524 object mnuUndo: TMenuItem
1525 Caption = '&Undo'
1526 ShortCut = 16474
1527 OnClick = mnuBPUndoClick
1528 end
1529 object N9: TMenuItem
1530 Caption = '-'
1531 ShortCut = 189
1532 end
1533 object mnuCut: TMenuItem
1534 Caption = 'Cu&t'
1535 ShortCut = 16472
1536 OnClick = mnuBPCutClick
1537 end
1538 object mnuCopy: TMenuItem
1539 Caption = '&Copy'
1540 ShortCut = 16451
1541 OnClick = mnuBPCopyClick
1542 end
1543 object mnuPaste: TMenuItem
1544 Caption = '&Paste'
1545 ShortCut = 16470
1546 OnClick = mnuBPPasteClick
1547 end
1548 object mnuSelectAll: TMenuItem
1549 Caption = 'Select &All'
1550 ShortCut = 16449
1551 OnClick = mnuBPSelectAllClick
1552 end
1553 object N11: TMenuItem
1554 Caption = '-'
1555 end
1556 object mnuInsertObject: TMenuItem
1557 Caption = '&Insert Patient Data (Object)'
1558 ShortCut = 16457
1559 OnClick = mnuBPInsertObjectClick
1560 end
1561 object mnuInsertField: TMenuItem
1562 Caption = 'Insert Template &Field'
1563 ShortCut = 16454
1564 OnClick = mnuBPInsertFieldClick
1565 end
1566 object mnuErrorCheck: TMenuItem
1567 Caption = 'Check for &Errors'
1568 ShortCut = 16453
1569 OnClick = mnuBPErrorCheckClick
1570 end
1571 object mnuTry: TMenuItem
1572 Caption = 'Preview/Print Template'
1573 ShortCut = 16468
1574 OnClick = mnuBPTryClick
1575 end
1576 object N1: TMenuItem
1577 Caption = '-'
1578 end
1579 object mnuCheckGrammar: TMenuItem
1580 Caption = 'Check &Grammar'
1581 ShortCut = 16455
1582 OnClick = mnuBPCheckGrammarClick
1583 end
1584 object mnuSpellCheck: TMenuItem
1585 Caption = 'Check &Spelling'
1586 ShortCut = 16467
1587 OnClick = mnuBPSpellCheckClick
1588 end
1589 object N13: TMenuItem
1590 Caption = '-'
1591 end
1592 object mnuGroupBoilerplate: TMenuItem
1593 Caption = 'Group &Boilerplate'
1594 OnClick = mnuGroupBoilerplateClick
1595 object mnuGroupCopy: TMenuItem
1596 Caption = '&Copy'
1597 OnClick = mnuGroupBPCopyClick
1598 end
1599 object mnuGroupSelectAll: TMenuItem
1600 Caption = 'Select &All'
1601 OnClick = mnuGroupBPSelectAllClick
1602 end
1603 end
1604 end
1605 object mnuTemplate: TMenuItem
1606 Caption = '&Action'
1607 OnClick = mnuTemplateClick
1608 object mnuNewTemplate: TMenuItem
1609 Caption = '&New Template'
1610 OnClick = btnNewClick
1611 end
1612 object mnuAutoGen: TMenuItem
1613 Caption = '&Generate Template'
1614 OnClick = mnuAutoGenClick
1615 end
1616 object mnuTCopy: TMenuItem
1617 Caption = '&Copy Template'
1618 OnClick = mnuNodeCopyClick
1619 end
1620 object mnuTPaste: TMenuItem
1621 Caption = '&Paste Template'
1622 OnClick = mnuNodePasteClick
1623 end
1624 object mnuTDelete: TMenuItem
1625 Caption = '&Delete Template'
1626 OnClick = mnuNodeDeleteClick
1627 end
1628 object N12: TMenuItem
1629 Caption = '-'
1630 end
1631 object mnuSort: TMenuItem
1632 Caption = 'Sort'
1633 OnClick = mnuSortClick
1634 end
1635 object N14: TMenuItem
1636 Caption = '-'
1637 end
1638 object mnuFindShared: TMenuItem
1639 Caption = 'Find &Shared Templates'
1640 OnClick = mnuFindSharedClick
1641 end
1642 object mnuFindPersonal: TMenuItem
1643 Caption = '&Find Personal Templates'
1644 OnClick = mnuFindPersonalClick
1645 end
1646 object N3: TMenuItem
1647 Caption = '-'
1648 end
1649 object mnuShCollapse: TMenuItem
1650 Caption = 'Collapse Shared Tree'
1651 OnClick = mnuShCollapseClick
1652 end
1653 object mnuPerCollapse: TMenuItem
1654 Caption = 'Collapse Personal Tree'
1655 OnClick = mnuPerCollapseClick
1656 end
1657 end
1658 object mnuTools: TMenuItem
1659 Caption = '&Tools'
1660 OnClick = mnuToolsClick
1661 object mnuEditTemplateFields: TMenuItem
1662 Caption = 'Edit Template &Fields'
1663 OnClick = mnuEditTemplateFieldsClick
1664 end
1665 object N16: TMenuItem
1666 Caption = '-'
1667 end
1668 object mnuImportTemplate: TMenuItem
1669 Caption = '&Import Template'
1670 OnClick = mnuImportTemplateClick
1671 end
1672 object mnuExportTemplate: TMenuItem
1673 Caption = '&Export Template'
1674 OnClick = mnuExportTemplateClick
1675 end
1676 object N17: TMenuItem
1677 Caption = '-'
1678 end
1679 object mnuRefresh: TMenuItem
1680 Caption = '&Refresh Templates'
1681 OnClick = mnuRefreshClick
1682 end
1683 object mnuTemplateIconLegend: TMenuItem
1684 Caption = 'Template Icon Legend'
1685 OnClick = mnuTemplateIconLegendClick
1686 end
1687 end
1688 end
1689 object popNotes: TPopupMenu
1690 OnPopup = popNotesPopup
1691 Left = 8
1692 Top = 387
1693 object mnuNotesUndo: TMenuItem
1694 Caption = '&Undo'
1695 ShortCut = 16474
1696 OnClick = mnuNotesUndoClick
1697 end
1698 object MenuItem2: TMenuItem
1699 Caption = '-'
1700 end
1701 object mnuNotesCut: TMenuItem
1702 Caption = 'Cu&t'
1703 ShortCut = 16472
1704 OnClick = mnuNotesCutClick
1705 end
1706 object mnuNotesCopy: TMenuItem
1707 Caption = '&Copy'
1708 ShortCut = 16451
1709 OnClick = mnuNotesCopyClick
1710 end
1711 object mnuNotesPaste: TMenuItem
1712 Caption = '&Paste'
1713 ShortCut = 16470
1714 OnClick = mnuNotesPasteClick
1715 end
1716 object MenuItem6: TMenuItem
1717 Caption = '-'
1718 end
1719 object mnuNotesSelectAll: TMenuItem
1720 Caption = 'Select &All'
1721 ShortCut = 16449
1722 OnClick = mnuNotesSelectAllClick
1723 end
1724 object MenuItem8: TMenuItem
1725 Caption = '-'
1726 end
1727 object mnuNotesGrammar: TMenuItem
1728 Caption = 'Check &Grammar'
1729 ShortCut = 16455
1730 OnClick = mnuNotesGrammarClick
1731 end
1732 object mnuNotesSpelling: TMenuItem
1733 Caption = 'Check &Spelling'
1734 ShortCut = 16467
1735 OnClick = mnuNotesSpellingClick
1736 end
1737 end
1738 object dlgImport: TOpenDialog
1739 DefaultExt = 'txml'
1740 Filter = 'Template Files|*.txml|XML Files|*.xml|All Files|*.*'
1741 Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist, ofEnableSizing]
1742 Left = 16
1743 Top = 136
1744 end
1745 object dlgExport: TSaveDialog
1746 DefaultExt = 'txml'
1747 Filter = 'Template Files|*.txml|XML Files|*.xml|All Files|*.*'
1748 Options = [ofOverwritePrompt, ofHideReadOnly, ofEnableSizing]
1749 Left = 56
1750 Top = 136
1751 end
1752end
Note: See TracBrowser for help on using the repository browser.