source: cprs/trunk/CPRS-Chart/Templates/fTemplateEditor.dfm@ 1551

Last change on this file since 1551 was 829, checked in by Kevin Toppenberg, 14 years ago

Upgrade to version 27
File size: 57.1 KB
Line 
1inherited frmTemplateEditor: TfrmTemplateEditor
2 Left = 321
3 Top = 119
4 HelpContext = 10000
5 ActiveControl = tvPersonal
6 BorderIcons = [biSystemMenu, biMaximize]
7 Caption = 'Template Editor'
8 ClientHeight = 450
9 ClientWidth = 740
10 Position = poScreenCenter
11 Scaled = False
12 OnClose = FormClose
13 OnCloseQuery = FormCloseQuery
14 OnCreate = FormCreate
15 OnDestroy = FormDestroy
16 OnShow = FormShow
17 ExplicitWidth = 748
18 ExplicitHeight = 477
19 PixelsPerInch = 96
20 TextHeight = 13
21 object splMain: TSplitter [0]
22 Left = 0
23 Top = 239
24 Width = 740
25 Height = 3
26 Cursor = crVSplit
27 Align = alTop
28 AutoSnap = False
29 Beveled = True
30 MinSize = 40
31 OnMoved = splMainMoved
32 end
33 object splNotes: TSplitter [1]
34 Left = 0
35 Top = 377
36 Width = 740
37 Height = 3
38 Cursor = crVSplit
39 Align = alBottom
40 AutoSnap = False
41 Beveled = True
42 Visible = False
43 OnMoved = splBoilMoved
44 ExplicitTop = 371
45 end
46 object pnlBottom: TPanel [2]
47 Left = 0
48 Top = 423
49 Width = 740
50 Height = 27
51 Align = alBottom
52 BevelOuter = bvNone
53 TabOrder = 4
54 ExplicitTop = 416
55 DesignSize = (
56 740
57 27)
58 object btnApply: TButton
59 Left = 664
60 Top = 4
61 Width = 75
62 Height = 22
63 Anchors = [akTop, akRight]
64 Caption = 'Apply'
65 ParentShowHint = False
66 ShowHint = False
67 TabOrder = 5
68 OnClick = btnApplyClick
69 end
70 object btnCancel: TButton
71 Left = 584
72 Top = 4
73 Width = 75
74 Height = 22
75 Anchors = [akTop, akRight]
76 Cancel = True
77 Caption = 'Cancel'
78 ModalResult = 2
79 ParentShowHint = False
80 ShowHint = False
81 TabOrder = 4
82 OnClick = btnCancelClick
83 end
84 object btnOK: TButton
85 Left = 504
86 Top = 4
87 Width = 75
88 Height = 22
89 Anchors = [akTop, akRight]
90 Caption = 'OK'
91 ParentShowHint = False
92 ShowHint = False
93 TabOrder = 3
94 OnClick = btnOKClick
95 end
96 object cbEditShared: TCheckBox
97 Left = 0
98 Top = 6
99 Width = 129
100 Height = 17
101 Caption = 'E&dit Shared Templates'
102 TabOrder = 0
103 OnClick = cbEditSharedClick
104 end
105 object cbNotes: TCheckBox
106 Left = 259
107 Top = 6
108 Width = 128
109 Height = 17
110 Hint =
111 'Keep notes about a template that can be seen from the templates ' +
112 'drawer'
113 Caption = 'Sh&ow Template Notes'
114 ParentShowHint = False
115 ShowHint = True
116 TabOrder = 2
117 OnClick = cbNotesClick
118 end
119 object cbEditUser: TCheckBox
120 Left = 132
121 Top = 6
122 Width = 123
123 Height = 17
124 Caption = 'E&dit User'#39's Templates'
125 TabOrder = 1
126 Visible = False
127 OnClick = cbEditSharedClick
128 end
129 end
130 object pnlBoilerplate: TPanel [3]
131 Left = 0
132 Top = 284
133 Width = 740
134 Height = 93
135 Align = alClient
136 BevelOuter = bvNone
137 TabOrder = 2
138 OnCanResize = pnlBoilerplateCanResize
139 OnResize = pnlBoilerplateResize
140 object splBoil: TSplitter
141 Left = 0
142 Top = 14
143 Width = 740
144 Height = 3
145 Cursor = crVSplit
146 Align = alTop
147 AutoSnap = False
148 Beveled = True
149 Visible = False
150 OnMoved = splBoilMoved
151 ExplicitTop = 43
152 end
153 object reBoil: TRichEdit
154 Left = 0
155 Top = 17
156 Width = 740
157 Height = 30
158 Align = alClient
159 Font.Charset = ANSI_CHARSET
160 Font.Color = clWindowText
161 Font.Height = -11
162 Font.Name = 'Courier New'
163 Font.Style = []
164 Constraints.MinHeight = 30
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 ExplicitTop = 14
178 end
179 object pnlGroupBP: TPanel
180 Left = 0
181 Top = 47
182 Width = 740
183 Height = 46
184 Align = alBottom
185 BevelOuter = bvNone
186 TabOrder = 2
187 Visible = False
188 object lblGroupBP: TLabel
189 Left = 0
190 Top = 0
191 Width = 740
192 Height = 13
193 Align = alTop
194 Caption = 'Group Boilerplate'
195 ExplicitWidth = 81
196 end
197 object lblGroupRow: TLabel
198 Left = 264
199 Top = 0
200 Width = 23
201 Height = 13
202 Caption = 'Line:'
203 end
204 object lblGroupCol: TLabel
205 Left = 336
206 Top = 0
207 Width = 38
208 Height = 13
209 Caption = 'Column:'
210 end
211 object reGroupBP: TRichEdit
212 Left = 0
213 Top = 16
214 Width = 740
215 Height = 30
216 Align = alClient
217 Color = clCream
218 Font.Charset = ANSI_CHARSET
219 Font.Color = clWindowText
220 Font.Height = -11
221 Font.Name = 'Courier New'
222 Font.Style = []
223 Constraints.MinHeight = 30
224 ParentFont = False
225 PlainText = True
226 PopupMenu = popGroup
227 ReadOnly = True
228 ScrollBars = ssBoth
229 TabOrder = 0
230 WantReturns = False
231 OnSelectionChange = reGroupBPSelectionChange
232 end
233 object pnlGroupBPGap: TPanel
234 Left = 0
235 Top = 13
236 Width = 740
237 Height = 3
238 Align = alTop
239 BevelOuter = bvNone
240 TabOrder = 1
241 end
242 end
243 object pnlBP: TPanel
244 Left = 0
245 Top = 0
246 Width = 740
247 Height = 14
248 Align = alTop
249 BevelOuter = bvNone
250 TabOrder = 0
251 object lblBoilerplate: TLabel
252 Left = 0
253 Top = 0
254 Width = 96
255 Height = 13
256 Caption = 'Template &Boilerplate'
257 FocusControl = reBoil
258 end
259 object lblBoilRow: TLabel
260 Left = 264
261 Top = 0
262 Width = 23
263 Height = 13
264 Caption = 'Line:'
265 end
266 object lblBoilCol: TLabel
267 Left = 336
268 Top = 0
269 Width = 38
270 Height = 13
271 Caption = 'Column:'
272 Color = clBtnFace
273 ParentColor = False
274 end
275 object cbLongLines: TCheckBox
276 Left = 120
277 Top = -2
278 Width = 105
279 Height = 17
280 Caption = 'Allow Lon&g Lines'
281 TabOrder = 0
282 OnClick = cbLongLinesClick
283 end
284 end
285 end
286 object pnlTop: TPanel [4]
287 Left = 0
288 Top = 0
289 Width = 740
290 Height = 239
291 Align = alTop
292 BevelOuter = bvNone
293 Constraints.MinHeight = 223
294 TabOrder = 0
295 object splMiddle: TSplitter
296 Left = 297
297 Top = 24
298 Height = 215
299 Align = alRight
300 AutoSnap = False
301 Beveled = True
302 end
303 object Bevel1: TBevel
304 Left = 0
305 Top = 22
306 Width = 740
307 Height = 2
308 Align = alTop
309 Shape = bsSpacer
310 end
311 object pnlRightTop: TPanel
312 Left = 300
313 Top = 24
314 Width = 440
315 Height = 215
316 Align = alRight
317 BevelOuter = bvNone
318 TabOrder = 2
319 object splProperties: TSplitter
320 Left = 216
321 Top = 0
322 Height = 215
323 Align = alRight
324 AutoSnap = False
325 Beveled = True
326 end
327 object pnlCopyBtns: TPanel
328 Left = 0
329 Top = 0
330 Width = 27
331 Height = 215
332 Align = alLeft
333 BevelOuter = bvNone
334 TabOrder = 0
335 DesignSize = (
336 27
337 215)
338 object lblCopy: TLabel
339 Left = -3
340 Top = 82
341 Width = 30
342 Height = 13
343 Alignment = taCenter
344 Anchors = [akLeft, akTop, akRight]
345 AutoSize = False
346 Caption = 'Copy'
347 Enabled = False
348 Font.Charset = DEFAULT_CHARSET
349 Font.Color = clWindowText
350 Font.Height = -11
351 Font.Name = 'MS Sans Serif'
352 Font.Style = []
353 ParentFont = False
354 Layout = tlCenter
355 end
356 object sbCopyRight: TBitBtn
357 Left = 1
358 Top = 125
359 Width = 23
360 Height = 23
361 Hint = 'Copy Shared Template into Personal Template List'
362 Enabled = False
363 ParentShowHint = False
364 ShowHint = True
365 TabOrder = 1
366 OnClick = sbCopyRightClick
367 Glyph.Data = {
368 76010000424D7601000000000000760000002800000020000000100000000100
369 0400000000000001000000000000000000001000000010000000000000000000
370 8000008000000080800080000000800080008080000080808000C0C0C0000000
371 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00111111111111
372 1111111111111111111111111111111111111111111F11111111111111011111
373 11111111117FF1111111111111001111111111111177FF111111111111000111
374 1111111111777FF11111111111000011111111FFFF7777FF1111100000000001
375 111117777777777FF1111000000000001111177777777777FF11100000000000
376 01111777777777777F1110000000000001111777777777777111100000000000
377 1111177777777777111110000000000111111777777777711111111111000011
378 1111111111777711111111111100011111111111117771111111111111001111
379 1111111111771111111111111101111111111111117111111111}
380 NumGlyphs = 2
381 end
382 object sbCopyLeft: TBitBtn
383 Tag = 1
384 Left = 1
385 Top = 100
386 Width = 23
387 Height = 23
388 Hint = 'Copy Personal Template into Shared Template List'
389 Enabled = False
390 ParentShowHint = False
391 ShowHint = True
392 TabOrder = 0
393 OnClick = sbCopyLeftClick
394 Glyph.Data = {
395 76010000424D7601000000000000760000002800000020000000100000000100
396 0400000000000001000000000000000000001000000010000000000000000000
397 8000008000000080800080000000800080008080000080808000C0C0C0000000
398 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00111111111111
399 11111111111111111111111111111111111111111111F1111111111111101111
400 111111111117F1111111111111001111111111111177F1111111111110001111
401 111111111777F1111111111100001111111111117777FFFFFF11111000000000
402 01111117777777777F1111000000000001111177777777777F11100000000000
403 01111777777777777F1110000000000001111777777777777F11110000000000
404 01111177777777777F1111100000000001111117777777777111111100001111
405 111111117777F1111111111110001111111111111777F1111111111111001111
406 111111111177F111111111111110111111111111111711111111}
407 NumGlyphs = 2
408 end
409 end
410 object pnlPersonal: TPanel
411 Left = 27
412 Top = 0
413 Width = 189
414 Height = 215
415 Align = alClient
416 BevelOuter = bvNone
417 Constraints.MinWidth = 100
418 TabOrder = 1
419 object lblPersonal: TLabel
420 Tag = 1
421 Left = 0
422 Top = 0
423 Width = 189
424 Height = 13
425 Align = alTop
426 Caption = '&Personal Templates'
427 FocusControl = tvPersonal
428 PopupMenu = popTemplates
429 ExplicitWidth = 93
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 WordWrap = True
719 OnClick = cbExcludeClick
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 Max = 3
763 ParentShowHint = False
764 ShowHint = True
765 TabOrder = 8
766 end
767 object edtName: TCaptionEdit
768 Left = 38
769 Top = 15
770 Width = 177
771 Height = 21
772 Anchors = [akLeft, akTop, akRight]
773 MaxLength = 60
774 TabOrder = 0
775 OnChange = edtNameOldChange
776 OnExit = edtNameExit
777 Caption = 'Name'
778 end
779 object gbDialogProps: TGroupBox
780 Left = 89
781 Top = 87
782 Width = 126
783 Height = 95
784 Anchors = [akLeft, akTop, akRight]
785 Caption = 'Dialog Properties'
786 Font.Charset = DEFAULT_CHARSET
787 Font.Color = clWindowText
788 Font.Height = -11
789 Font.Name = 'MS Sans Serif'
790 Font.Style = []
791 ParentFont = False
792 TabOrder = 6
793 object cbDisplayOnly: TCheckBox
794 Left = 6
795 Top = 15
796 Width = 82
797 Height = 17
798 Hint =
799 'Template boilerplate is for dialog display only, and can not be ' +
800 'added to the note.'
801 Caption = 'Display Only'
802 ParentShowHint = False
803 ShowHint = True
804 TabOrder = 0
805 OnClick = cbDisplayOnlyClick
806 end
807 object cbOneItemOnly: TCheckBox
808 Left = 6
809 Top = 60
810 Width = 113
811 Height = 17
812 Hint = 'Allow only one child item to be selected at a time'
813 Caption = 'One Item Only'
814 ParentShowHint = False
815 ShowHint = True
816 TabOrder = 3
817 OnClick = cbOneItemOnlyClick
818 end
819 object cbFirstLine: TCheckBox
820 Left = 6
821 Top = 30
822 Width = 115
823 Height = 17
824 Hint =
825 'Only show the first line of text in the dialog, but include the ' +
826 'entire template in the note'
827 Caption = 'Only Show First Line'
828 ParentShowHint = False
829 ShowHint = True
830 TabOrder = 1
831 OnClick = cbFirstLineClick
832 end
833 object cbHideDlgItems: TCheckBox
834 Left = 6
835 Top = 75
836 Width = 107
837 Height = 17
838 Hint = 'Hide child items when parent template is not selected'
839 Caption = 'Hide Dialog Items'
840 ParentShowHint = False
841 ShowHint = True
842 TabOrder = 4
843 OnClick = cbHideDlgItemsClick
844 end
845 object cbIndent: TCheckBox
846 Left = 6
847 Top = 45
848 Width = 117
849 Height = 17
850 Hint =
851 'Indent child items in the dialog. Text insertion remains unchan' +
852 'ged'
853 Caption = 'Indent Dialog Items'
854 ParentShowHint = False
855 ShowHint = True
856 TabOrder = 2
857 OnClick = cbIndentClick
858 end
859 end
860 object cbHideItems: TORCheckBox
861 Left = 5
862 Top = 102
863 Width = 79
864 Height = 42
865 Hint = 'Hide child items from template drawer view'
866 Caption = 'Hide Items in Templates Dra&wer'
867 ParentShowHint = False
868 ShowHint = True
869 TabOrder = 4
870 WordWrap = True
871 OnClick = cbHideItemsClick
872 AutoSize = True
873 end
874 object cbxType: TCaptionComboBox
875 Left = 82
876 Top = 38
877 Width = 133
878 Height = 24
879 Style = csOwnerDrawFixed
880 Anchors = [akLeft, akTop, akRight]
881 ItemHeight = 18
882 ParentShowHint = False
883 ShowHint = True
884 TabOrder = 1
885 OnChange = cbxTypeChange
886 OnDrawItem = cbxTypeDrawItem
887 Caption = 'Template Type'
888 end
889 object cbxRemDlgs: TORComboBox
890 Left = 54
891 Top = 64
892 Width = 161
893 Height = 21
894 Anchors = [akLeft, akTop, akRight]
895 Style = orcsDropDown
896 AutoSelect = True
897 Caption = 'Reminder Dialog'
898 Color = clWindow
899 DropDownCount = 12
900 ItemHeight = 13
901 ItemTipColor = clWindow
902 ItemTipEnable = True
903 ListItemsOnly = True
904 LongList = False
905 LookupPiece = 0
906 MaxLength = 0
907 Pieces = '2'
908 Sorted = False
909 SynonymChars = '<>'
910 TabOrder = 2
911 OnChange = cbxRemDlgsChange
912 CharsNeedMatch = 1
913 end
914 object cbLock: TORCheckBox
915 Left = 168
916 Top = 191
917 Width = 47
918 Height = 16
919 Caption = 'Lock'
920 TabOrder = 9
921 OnClick = cbLockClick
922 end
923 end
924 end
925 end
926 object pnlShared: TPanel
927 Left = 0
928 Top = 24
929 Width = 297
930 Height = 215
931 Align = alClient
932 BevelOuter = bvNone
933 TabOrder = 1
934 object lblShared: TLabel
935 Left = 0
936 Top = 0
937 Width = 297
938 Height = 13
939 Align = alTop
940 Caption = '&Shared Templates'
941 FocusControl = tvShared
942 PopupMenu = popTemplates
943 ExplicitWidth = 86
944 end
945 object tvShared: TORTreeView
946 Left = 0
947 Top = 53
948 Width = 297
949 Height = 138
950 Align = alClient
951 DragMode = dmAutomatic
952 Images = dmodShared.imgTemplates
953 Indent = 19
954 PopupMenu = popTemplates
955 RightClickSelect = True
956 TabOrder = 1
957 OnChange = tvTreeChange
958 OnDragDrop = tvTreeDragDrop
959 OnDragOver = tvTreeDragOver
960 OnEdited = tvTreeNodeEdited
961 OnEndDrag = tvTreeEndDrag
962 OnEnter = tvTreeEnter
963 OnExpanding = tvSharedExpanding
964 OnGetImageIndex = tvTreeGetImageIndex
965 OnGetSelectedIndex = tvTreeGetSelectedIndex
966 OnKeyDown = tvTreeKeyDown
967 OnStartDrag = tvTreeStartDrag
968 Caption = 'Shared Templates'
969 NodePiece = 0
970 OnDragging = tvTreeDragging
971 end
972 object pnlSharedBottom: TPanel
973 Left = 0
974 Top = 191
975 Width = 297
976 Height = 24
977 Align = alBottom
978 BevelOuter = bvNone
979 TabOrder = 2
980 DesignSize = (
981 297
982 24)
983 object sbShUp: TBitBtn
984 Left = 194
985 Top = 2
986 Width = 21
987 Height = 21
988 Hint = 'Move Shared Template Up'
989 Anchors = [akTop, akRight]
990 Enabled = False
991 ParentShowHint = False
992 ShowHint = True
993 TabOrder = 1
994 OnClick = sbMoveUpClick
995 Glyph.Data = {
996 76010000424D7601000000000000760000002800000020000000100000000100
997 0400000000000001000000000000000000001000000010000000000000000000
998 8000008000000080800080000000800080008080000080808000C0C0C0000000
999 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00111111111111
1000 1111111111111111111111111111111111111111111111111111111111111111
1001 111111111FFFFFF1111111110000001111111111777777F11111111100000011
1002 11111111777777F1111111110000001111111111777777F11111111100000011
1003 11111111777777F1111111110000001111111FFF777777FFFFF1000000000000
1004 0011777777777777771110000000000001111777777777777111110000000000
1005 1111117777777777111111100000000111111117777777711111111100000011
1006 1111111177777711111111111000011111111111177771111111111111001111
1007 1111111111771111111111111111111111111111111111111111}
1008 NumGlyphs = 2
1009 end
1010 object sbShDown: TBitBtn
1011 Left = 217
1012 Top = 2
1013 Width = 21
1014 Height = 21
1015 Hint = 'Move Shared Template Down'
1016 Anchors = [akTop, akRight]
1017 Enabled = False
1018 ParentShowHint = False
1019 ShowHint = True
1020 TabOrder = 2
1021 OnClick = sbMoveDownClick
1022 Glyph.Data = {
1023 76010000424D7601000000000000760000002800000020000000100000000100
1024 0400000000000001000000000000000000001000000010000000000000000000
1025 8000008000000080800080000000800080008080000080808000C0C0C0000000
1026 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00111111111111
1027 1111111111111111111111111111111111111111111111111111111111111111
1028 11111111111FF1111111111111001111111111111177FF111111111110000111
1029 1111111117777FF1111111110000001111111111777777FF1111111000000001
1030 111111177777777FF1111100000000001111117777777777FF11100000000000
1031 01111777777777777FF100000000000000117777777777777711111100000011
1032 11111111777777F1111111110000001111111111777777F11111111100000011
1033 11111111777777F1111111110000001111111111777777F11111111100000011
1034 1111111177777711111111111111111111111111111111111111}
1035 NumGlyphs = 2
1036 end
1037 object sbShDelete: TBitBtn
1038 Left = 240
1039 Top = 2
1040 Width = 56
1041 Height = 21
1042 Hint = 'Delete Shared Template'
1043 Anchors = [akTop, akRight]
1044 Caption = 'Delete'
1045 Enabled = False
1046 ParentShowHint = False
1047 ShowHint = True
1048 TabOrder = 3
1049 OnClick = sbDeleteClick
1050 Glyph.Data = {
1051 76010000424D7601000000000000760000002800000020000000100000000100
1052 0400000000000001000000000000000000001000000010000000000000000000
1053 8000008000000080800080000000800080008080000080808000C0C0C0000000
1054 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00111111111111
1055 1111111111111111111111111111111111111111111111111111111111111111
1056 111111FF11111111FF111001111111100111177FF11111177F11100011111100
1057 01111777FF1111777111110001111000111111777FF117771111111000110001
1058 1111111777FF7771111111110000001111111111777777111111111110000111
1059 1111111117777F1111111111100001111111111117777FF11111111100000011
1060 11111111777777FF1111111000110001111111177711777FF111110001111000
1061 1111117771111777FF1110001111110001111777111111777111100111111110
1062 0111177111111117711111111111111111111111111111111111}
1063 Layout = blGlyphRight
1064 NumGlyphs = 2
1065 end
1066 object cbShHide: TCheckBox
1067 Left = 0
1068 Top = 4
1069 Width = 191
1070 Height = 17
1071 Hint = 'Hide Inactive Shared Templates'
1072 Anchors = [akLeft, akTop, akRight]
1073 Caption = '&Hide Inactive'
1074 ParentShowHint = False
1075 ShowHint = True
1076 TabOrder = 0
1077 OnClick = cbShHideClick
1078 end
1079 end
1080 object pnlSharedGap: TPanel
1081 Left = 0
1082 Top = 13
1083 Width = 297
1084 Height = 2
1085 Align = alTop
1086 BevelOuter = bvNone
1087 PopupMenu = popTemplates
1088 TabOrder = 3
1089 end
1090 object pnlShSearch: TPanel
1091 Left = 0
1092 Top = 15
1093 Width = 297
1094 Height = 38
1095 Align = alTop
1096 BevelOuter = bvNone
1097 TabOrder = 0
1098 OnResize = pnlShSearchResize
1099 DesignSize = (
1100 297
1101 38)
1102 object btnShFind: TORAlignButton
1103 Left = 242
1104 Top = 0
1105 Width = 55
1106 Height = 21
1107 Hint = 'Find Template'
1108 Anchors = [akTop, akRight]
1109 Caption = 'Find'
1110 ParentShowHint = False
1111 PopupMenu = popTemplates
1112 ShowHint = True
1113 TabOrder = 1
1114 OnClick = btnFindClick
1115 end
1116 object edtShSearch: TCaptionEdit
1117 Left = 0
1118 Top = 0
1119 Width = 242
1120 Height = 21
1121 Anchors = [akLeft, akTop, akRight]
1122 TabOrder = 0
1123 OnChange = edtSearchChange
1124 OnEnter = edtShSearchEnter
1125 OnExit = edtShSearchExit
1126 Caption = 'Shared Templates'
1127 end
1128 object cbShMatchCase: TCheckBox
1129 Left = 0
1130 Top = 21
1131 Width = 80
1132 Height = 17
1133 Caption = 'Match Case'
1134 TabOrder = 2
1135 OnClick = cbShFindOptionClick
1136 end
1137 object cbShWholeWords: TCheckBox
1138 Left = 80
1139 Top = 21
1140 Width = 109
1141 Height = 17
1142 Caption = 'Whole Words Only'
1143 TabOrder = 3
1144 OnClick = cbShFindOptionClick
1145 end
1146 end
1147 end
1148 object pnlMenuBar: TPanel
1149 Left = 0
1150 Top = 0
1151 Width = 740
1152 Height = 22
1153 Align = alTop
1154 BevelOuter = bvNone
1155 TabOrder = 0
1156 object lblPerOwner: TLabel
1157 Left = 138
1158 Top = 4
1159 Width = 75
1160 Height = 13
1161 Caption = 'Personal &Owner'
1162 FocusControl = cboOwner
1163 end
1164 object cboOwner: TORComboBox
1165 Left = 219
1166 Top = 0
1167 Width = 190
1168 Height = 21
1169 Style = orcsDropDown
1170 AutoSelect = True
1171 Caption = 'Personal Owner'
1172 Color = clWindow
1173 DropDownCount = 8
1174 ItemHeight = 13
1175 ItemTipColor = clWindow
1176 ItemTipEnable = True
1177 ListItemsOnly = True
1178 LongList = True
1179 LookupPiece = 0
1180 MaxLength = 0
1181 ParentShowHint = False
1182 Pieces = '2'
1183 ShowHint = True
1184 Sorted = False
1185 SynonymChars = '<>'
1186 TabOrder = 1
1187 OnChange = cboOwnerChange
1188 OnNeedData = cboOwnerNeedData
1189 CharsNeedMatch = 1
1190 end
1191 object btnNew: TORAlignButton
1192 Left = 558
1193 Top = 0
1194 Width = 182
1195 Height = 22
1196 Align = alRight
1197 Caption = '&New Template'
1198 TabOrder = 2
1199 OnClick = btnNewClick
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 = 107
1215 Height = 20
1216 Align = alLeft
1217 AutoSize = True
1218 ButtonHeight = 21
1219 ButtonWidth = 43
1220 Caption = 'mbMain'
1221 Menu = mnuMain
1222 ShowCaptions = True
1223 TabOrder = 0
1224 OnResize = mbMainResize
1225 end
1226 end
1227 end
1228 end
1229 object pnlNotes: TPanel [5]
1230 Left = 0
1231 Top = 380
1232 Width = 740
1233 Height = 43
1234 Align = alBottom
1235 BevelOuter = bvNone
1236 TabOrder = 3
1237 Visible = False
1238 object lblNotes: TLabel
1239 Left = 0
1240 Top = 0
1241 Width = 740
1242 Height = 13
1243 Align = alTop
1244 Caption = 'Template Notes:'
1245 ExplicitWidth = 78
1246 end
1247 object reNotes: TRichEdit
1248 Left = 0
1249 Top = 13
1250 Width = 740
1251 Height = 30
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 Constraints.MinHeight = 30
1259 ParentFont = False
1260 PlainText = True
1261 PopupMenu = popNotes
1262 ScrollBars = ssBoth
1263 TabOrder = 0
1264 WantTabs = True
1265 OnChange = reNotesChange
1266 OnKeyDown = reBoilKeyDown
1267 OnKeyPress = reBoilKeyPress
1268 OnKeyUp = reBoilKeyUp
1269 OnResizeRequest = reResizeRequest
1270 end
1271 end
1272 object pnlCOM: TPanel [6]
1273 Left = 0
1274 Top = 263
1275 Width = 740
1276 Height = 21
1277 Align = alTop
1278 BevelOuter = bvNone
1279 TabOrder = 1
1280 Visible = False
1281 object lblCOMParam: TLabel
1282 Left = 283
1283 Top = 0
1284 Width = 77
1285 Height = 21
1286 Align = alLeft
1287 Caption = ' Passed Value: '
1288 Layout = tlCenter
1289 ExplicitHeight = 13
1290 end
1291 object lblCOMObj: TLabel
1292 Left = 0
1293 Top = 0
1294 Width = 67
1295 Height = 21
1296 Align = alLeft
1297 Caption = ' COM Object: '
1298 Layout = tlCenter
1299 ExplicitHeight = 13
1300 end
1301 object edtCOMParam: TCaptionEdit
1302 Left = 360
1303 Top = 0
1304 Width = 380
1305 Height = 21
1306 Align = alClient
1307 TabOrder = 0
1308 OnChange = edtCOMParamChange
1309 Caption = 'Passed Value'
1310 end
1311 object cbxCOMObj: TORComboBox
1312 Left = 67
1313 Top = 0
1314 Width = 216
1315 Height = 21
1316 Style = orcsDropDown
1317 Align = alLeft
1318 AutoSelect = True
1319 Caption = 'COM Object'
1320 Color = clWindow
1321 DropDownCount = 8
1322 ItemHeight = 13
1323 ItemTipColor = clWindow
1324 ItemTipEnable = True
1325 ListItemsOnly = True
1326 LongList = False
1327 LookupPiece = 0
1328 MaxLength = 0
1329 Pieces = '2'
1330 Sorted = False
1331 SynonymChars = '<>'
1332 TabOrder = 1
1333 OnChange = cbxCOMObjChange
1334 CharsNeedMatch = 1
1335 end
1336 end
1337 object pnlLink: TPanel [7]
1338 Left = 0
1339 Top = 242
1340 Width = 740
1341 Height = 21
1342 Align = alTop
1343 BevelOuter = bvNone
1344 TabOrder = 5
1345 Visible = False
1346 object lblLink: TLabel
1347 Left = 0
1348 Top = 0
1349 Width = 138
1350 Height = 21
1351 Align = alLeft
1352 Caption = ' Associated Consult Service: '
1353 Layout = tlCenter
1354 ExplicitHeight = 13
1355 end
1356 object cbxLink: TORComboBox
1357 Left = 138
1358 Top = 0
1359 Width = 602
1360 Height = 21
1361 Style = orcsDropDown
1362 Align = alClient
1363 AutoSelect = True
1364 Caption = ' Associated Consult Service'
1365 Color = clWindow
1366 DropDownCount = 8
1367 ItemHeight = 13
1368 ItemTipColor = clWindow
1369 ItemTipEnable = False
1370 ListItemsOnly = True
1371 LongList = True
1372 LookupPiece = 0
1373 MaxLength = 0
1374 Pieces = '2'
1375 HideSynonyms = True
1376 Sorted = False
1377 SynonymChars = '<>'
1378 TabPositions = '30,5000'
1379 TabOrder = 0
1380 TabStop = True
1381 OnChange = cbxLinkChange
1382 OnNeedData = cbxLinkNeedData
1383 CharsNeedMatch = 1
1384 end
1385 end
1386 inherited amgrMain: TVA508AccessibilityManager
1387 Data = (
1388 (
1389 'Component = pnlBottom'
1390 'Status = stsDefault')
1391 (
1392 'Component = btnApply'
1393 'Status = stsDefault')
1394 (
1395 'Component = btnCancel'
1396 'Status = stsDefault')
1397 (
1398 'Component = btnOK'
1399 'Status = stsDefault')
1400 (
1401 'Component = cbEditShared'
1402 'Status = stsDefault')
1403 (
1404 'Component = cbNotes'
1405 'Status = stsDefault')
1406 (
1407 'Component = cbEditUser'
1408 'Status = stsDefault')
1409 (
1410 'Component = pnlBoilerplate'
1411 'Status = stsDefault')
1412 (
1413 'Component = reBoil'
1414 'Label = lblBoilerplate'
1415 'Status = stsOK')
1416 (
1417 'Component = pnlGroupBP'
1418 'Status = stsDefault')
1419 (
1420 'Component = reGroupBP'
1421 'Label = lblGroupBP'
1422 'Status = stsOK')
1423 (
1424 'Component = pnlGroupBPGap'
1425 'Status = stsDefault')
1426 (
1427 'Component = pnlBP'
1428 'Status = stsDefault')
1429 (
1430 'Component = cbLongLines'
1431 'Status = stsDefault')
1432 (
1433 'Component = pnlTop'
1434 'Status = stsDefault')
1435 (
1436 'Component = pnlRightTop'
1437 'Status = stsDefault')
1438 (
1439 'Component = pnlCopyBtns'
1440 'Status = stsDefault')
1441 (
1442 'Component = sbCopyRight'
1443 'Property = Hint'
1444 'Status = stsOK')
1445 (
1446 'Component = sbCopyLeft'
1447 'Property = Hint'
1448 'Status = stsOK')
1449 (
1450 'Component = pnlPersonal'
1451 'Status = stsDefault')
1452 (
1453 'Component = tvPersonal'
1454 'Status = stsDefault')
1455 (
1456 'Component = pnlPersonalBottom'
1457 'Status = stsDefault')
1458 (
1459 'Component = sbPerUp'
1460 'Property = Hint'
1461 'Status = stsOK')
1462 (
1463 'Component = sbPerDown'
1464 'Property = Hint'
1465 'Status = stsOK')
1466 (
1467 'Component = sbPerDelete'
1468 'Property = Hint'
1469 'Status = stsOK')
1470 (
1471 'Component = cbPerHide'
1472 'Property = Hint'
1473 'Status = stsOK')
1474 (
1475 'Component = pnlPersonalGap'
1476 'Status = stsDefault')
1477 (
1478 'Component = pnlPerSearch'
1479 'Status = stsDefault')
1480 (
1481 'Component = btnPerFind'
1482 'Text = Find Personal Template'
1483 'Status = stsOK')
1484 (
1485 'Component = edtPerSearch'
1486 'Status = stsDefault')
1487 (
1488 'Component = cbPerMatchCase'
1489 'Status = stsDefault')
1490 (
1491 'Component = cbPerWholeWords'
1492 'Status = stsDefault')
1493 (
1494 'Component = pnlProperties'
1495 'Status = stsDefault')
1496 (
1497 'Component = gbProperties'
1498 'Status = stsDefault')
1499 (
1500 'Component = cbExclude'
1501 'Status = stsDefault')
1502 (
1503 'Component = cbActive'
1504 'Status = stsDefault')
1505 (
1506 'Component = edtGap'
1507 'Status = stsDefault')
1508 (
1509 'Component = udGap'
1510 'Status = stsDefault')
1511 (
1512 'Component = edtName'
1513 'Status = stsDefault')
1514 (
1515 'Component = gbDialogProps'
1516 'Status = stsDefault')
1517 (
1518 'Component = cbDisplayOnly'
1519 'Status = stsDefault')
1520 (
1521 'Component = cbOneItemOnly'
1522 'Status = stsDefault')
1523 (
1524 'Component = cbFirstLine'
1525 'Status = stsDefault')
1526 (
1527 'Component = cbHideDlgItems'
1528 'Status = stsDefault')
1529 (
1530 'Component = cbIndent'
1531 'Status = stsDefault')
1532 (
1533 'Component = cbHideItems'
1534 'Status = stsDefault')
1535 (
1536 'Component = cbxType'
1537 'Status = stsDefault')
1538 (
1539 'Component = cbxRemDlgs'
1540 'Status = stsDefault')
1541 (
1542 'Component = cbLock'
1543 'Status = stsDefault')
1544 (
1545 'Component = pnlShared'
1546 'Status = stsDefault')
1547 (
1548 'Component = tvShared'
1549 'Status = stsDefault')
1550 (
1551 'Component = pnlSharedBottom'
1552 'Status = stsDefault')
1553 (
1554 'Component = sbShUp'
1555 'Property = Hint'
1556 'Status = stsOK')
1557 (
1558 'Component = sbShDown'
1559 'Property = Hint'
1560 'Status = stsOK')
1561 (
1562 'Component = sbShDelete'
1563 'Property = Hint'
1564 'Status = stsOK')
1565 (
1566 'Component = cbShHide'
1567 'Property = Hint'
1568 'Status = stsOK')
1569 (
1570 'Component = pnlSharedGap'
1571 'Status = stsDefault')
1572 (
1573 'Component = pnlShSearch'
1574 'Status = stsDefault')
1575 (
1576 'Component = btnShFind'
1577 'Text = Find Shared Template'
1578 'Status = stsOK')
1579 (
1580 'Component = edtShSearch'
1581 'Status = stsDefault')
1582 (
1583 'Component = cbShMatchCase'
1584 'Status = stsDefault')
1585 (
1586 'Component = cbShWholeWords'
1587 'Status = stsDefault')
1588 (
1589 'Component = pnlMenuBar'
1590 'Status = stsDefault')
1591 (
1592 'Component = cboOwner'
1593 'Status = stsDefault')
1594 (
1595 'Component = btnNew'
1596 'Status = stsDefault')
1597 (
1598 'Component = pnlMenu'
1599 'Status = stsDefault')
1600 (
1601 'Component = mbMain'
1602 'Status = stsDefault')
1603 (
1604 'Component = pnlNotes'
1605 'Status = stsDefault')
1606 (
1607 'Component = reNotes'
1608 'Label = lblNotes'
1609 'Status = stsOK')
1610 (
1611 'Component = pnlCOM'
1612 'Status = stsDefault')
1613 (
1614 'Component = edtCOMParam'
1615 'Label = lblCOMParam'
1616 'Status = stsOK')
1617 (
1618 'Component = cbxCOMObj'
1619 'Property = Caption'
1620 'Status = stsOK')
1621 (
1622 'Component = pnlLink'
1623 'Status = stsDefault')
1624 (
1625 'Component = cbxLink'
1626 'Label = lblLink'
1627 'Status = stsOK')
1628 (
1629 'Component = frmTemplateEditor'
1630 'Status = stsDefault'))
1631 end
1632 object popTemplates: TPopupMenu
1633 OnPopup = popTemplatesPopup
1634 Left = 56
1635 Top = 96
1636 object mnuNodeNew: TMenuItem
1637 Caption = '&New Template'
1638 OnClick = btnNewClick
1639 end
1640 object mnuNodeAutoGen: TMenuItem
1641 Caption = '&Generate Template'
1642 OnClick = mnuAutoGenClick
1643 end
1644 object mnuNodeCopy: TMenuItem
1645 Caption = '&Copy Template'
1646 OnClick = mnuNodeCopyClick
1647 end
1648 object mnuNodePaste: TMenuItem
1649 Caption = '&Paste Template'
1650 OnClick = mnuNodePasteClick
1651 end
1652 object mnuNodeDelete: TMenuItem
1653 Caption = '&Delete Template'
1654 OnClick = mnuNodeDeleteClick
1655 end
1656 object N15: TMenuItem
1657 Caption = '-'
1658 end
1659 object mnuNodeSort: TMenuItem
1660 Caption = 'Sort'
1661 OnClick = mnuSortClick
1662 end
1663 object N6: TMenuItem
1664 Caption = '-'
1665 end
1666 object mnuFindTemplates: TMenuItem
1667 Caption = '&Find Templates'
1668 OnClick = mnuFindTemplatesClick
1669 end
1670 object mnuCollapseTree: TMenuItem
1671 Caption = 'Collapse &Tree'
1672 OnClick = mnuCollapseTreeClick
1673 end
1674 end
1675 object popBoilerplate: TPopupMenu
1676 OnPopup = popBoilerplatePopup
1677 Left = 88
1678 Top = 332
1679 object mnuBPUndo: TMenuItem
1680 Caption = '&Undo'
1681 ShortCut = 16474
1682 OnClick = mnuBPUndoClick
1683 end
1684 object N8: TMenuItem
1685 Caption = '-'
1686 end
1687 object mnuBPCut: TMenuItem
1688 Caption = 'Cu&t'
1689 ShortCut = 16472
1690 OnClick = mnuBPCutClick
1691 end
1692 object mnuBPCopy: TMenuItem
1693 Caption = '&Copy'
1694 ShortCut = 16451
1695 OnClick = mnuBPCopyClick
1696 end
1697 object mnuBPPaste: TMenuItem
1698 Caption = '&Paste'
1699 ShortCut = 16470
1700 OnClick = mnuBPPasteClick
1701 end
1702 object mnuBPSelectAll: TMenuItem
1703 Caption = 'Select &All'
1704 ShortCut = 16449
1705 OnClick = mnuBPSelectAllClick
1706 end
1707 object N2: TMenuItem
1708 Caption = '-'
1709 end
1710 object mnuBPInsertObject: TMenuItem
1711 Caption = '&Insert Patient Data (Object)'
1712 ShortCut = 16457
1713 OnClick = mnuBPInsertObjectClick
1714 end
1715 object mnuBPInsertField: TMenuItem
1716 Caption = 'Insert Template &Field'
1717 ShortCut = 16454
1718 OnClick = mnuBPInsertFieldClick
1719 end
1720 object mnuBPErrorCheck: TMenuItem
1721 Caption = 'Check for &Errors'
1722 ShortCut = 16453
1723 OnClick = mnuBPErrorCheckClick
1724 end
1725 object mnuBPTry: TMenuItem
1726 Caption = 'Preview/Print Template'
1727 ShortCut = 16468
1728 OnClick = mnuBPTryClick
1729 end
1730 object N7: TMenuItem
1731 Caption = '-'
1732 end
1733 object mnuBPCheckGrammar: TMenuItem
1734 Caption = 'Check &Grammar'
1735 ShortCut = 16455
1736 OnClick = mnuBPCheckGrammarClick
1737 end
1738 object mnuBPSpellCheck: TMenuItem
1739 Caption = 'Check &Spelling'
1740 ShortCut = 16467
1741 OnClick = mnuBPSpellCheckClick
1742 end
1743 end
1744 object tmrAutoScroll: TTimer
1745 Enabled = False
1746 Interval = 200
1747 OnTimer = tmrAutoScrollTimer
1748 Left = 96
1749 Top = 96
1750 end
1751 object popGroup: TPopupMenu
1752 OnPopup = popGroupPopup
1753 Left = 8
1754 Top = 325
1755 object mnuGroupBPCopy: TMenuItem
1756 Caption = '&Copy'
1757 ShortCut = 16451
1758 OnClick = mnuGroupBPCopyClick
1759 end
1760 object N4: TMenuItem
1761 Caption = '-'
1762 end
1763 object mnuGroupBPSelectAll: TMenuItem
1764 Caption = 'Select &All'
1765 ShortCut = 16449
1766 OnClick = mnuGroupBPSelectAllClick
1767 end
1768 end
1769 object mnuMain: TMainMenu
1770 Left = 16
1771 Top = 104
1772 object mnuEdit: TMenuItem
1773 Caption = '&Edit'
1774 OnClick = mnuEditClick
1775 object mnuUndo: TMenuItem
1776 Caption = '&Undo'
1777 ShortCut = 16474
1778 OnClick = mnuBPUndoClick
1779 end
1780 object N9: TMenuItem
1781 Caption = '-'
1782 ShortCut = 189
1783 end
1784 object mnuCut: TMenuItem
1785 Caption = 'Cu&t'
1786 ShortCut = 16472
1787 OnClick = mnuBPCutClick
1788 end
1789 object mnuCopy: TMenuItem
1790 Caption = '&Copy'
1791 ShortCut = 16451
1792 OnClick = mnuBPCopyClick
1793 end
1794 object mnuPaste: TMenuItem
1795 Caption = '&Paste'
1796 ShortCut = 16470
1797 OnClick = mnuBPPasteClick
1798 end
1799 object mnuSelectAll: TMenuItem
1800 Caption = 'Select &All'
1801 ShortCut = 16449
1802 OnClick = mnuBPSelectAllClick
1803 end
1804 object N11: TMenuItem
1805 Caption = '-'
1806 end
1807 object mnuInsertObject: TMenuItem
1808 Caption = '&Insert Patient Data (Object)'
1809 ShortCut = 16457
1810 OnClick = mnuBPInsertObjectClick
1811 end
1812 object mnuInsertField: TMenuItem
1813 Caption = 'Insert Template &Field'
1814 ShortCut = 16454
1815 OnClick = mnuBPInsertFieldClick
1816 end
1817 object mnuErrorCheck: TMenuItem
1818 Caption = 'Check for &Errors'
1819 ShortCut = 16453
1820 OnClick = mnuBPErrorCheckClick
1821 end
1822 object mnuTry: TMenuItem
1823 Caption = 'Preview/Print Template'
1824 ShortCut = 16468
1825 OnClick = mnuBPTryClick
1826 end
1827 object N1: TMenuItem
1828 Caption = '-'
1829 end
1830 object mnuCheckGrammar: TMenuItem
1831 Caption = 'Check &Grammar'
1832 ShortCut = 16455
1833 OnClick = mnuBPCheckGrammarClick
1834 end
1835 object mnuSpellCheck: TMenuItem
1836 Caption = 'Check &Spelling'
1837 ShortCut = 16467
1838 OnClick = mnuBPSpellCheckClick
1839 end
1840 object N13: TMenuItem
1841 Caption = '-'
1842 end
1843 object mnuGroupBoilerplate: TMenuItem
1844 Caption = 'Group &Boilerplate'
1845 OnClick = mnuGroupBoilerplateClick
1846 object mnuGroupCopy: TMenuItem
1847 Caption = '&Copy'
1848 OnClick = mnuGroupBPCopyClick
1849 end
1850 object mnuGroupSelectAll: TMenuItem
1851 Caption = 'Select &All'
1852 OnClick = mnuGroupBPSelectAllClick
1853 end
1854 end
1855 end
1856 object mnuTemplate: TMenuItem
1857 Caption = '&Action'
1858 OnClick = mnuTemplateClick
1859 object mnuNewTemplate: TMenuItem
1860 Caption = '&New Template'
1861 OnClick = btnNewClick
1862 end
1863 object mnuAutoGen: TMenuItem
1864 Caption = '&Generate Template'
1865 OnClick = mnuAutoGenClick
1866 end
1867 object mnuTCopy: TMenuItem
1868 Caption = '&Copy Template'
1869 OnClick = mnuNodeCopyClick
1870 end
1871 object mnuTPaste: TMenuItem
1872 Caption = '&Paste Template'
1873 OnClick = mnuNodePasteClick
1874 end
1875 object mnuTDelete: TMenuItem
1876 Caption = '&Delete Template'
1877 OnClick = mnuNodeDeleteClick
1878 end
1879 object N12: TMenuItem
1880 Caption = '-'
1881 end
1882 object mnuSort: TMenuItem
1883 Caption = 'Sort'
1884 OnClick = mnuSortClick
1885 end
1886 object N14: TMenuItem
1887 Caption = '-'
1888 end
1889 object mnuFindShared: TMenuItem
1890 Caption = 'Find &Shared Templates'
1891 OnClick = mnuFindSharedClick
1892 end
1893 object mnuFindPersonal: TMenuItem
1894 Caption = '&Find Personal Templates'
1895 OnClick = mnuFindPersonalClick
1896 end
1897 object N3: TMenuItem
1898 Caption = '-'
1899 end
1900 object mnuShCollapse: TMenuItem
1901 Caption = 'Collapse Shared Tree'
1902 OnClick = mnuShCollapseClick
1903 end
1904 object mnuPerCollapse: TMenuItem
1905 Caption = 'Collapse Personal Tree'
1906 OnClick = mnuPerCollapseClick
1907 end
1908 end
1909 object mnuTools: TMenuItem
1910 Caption = '&Tools'
1911 OnClick = mnuToolsClick
1912 object mnuEditTemplateFields: TMenuItem
1913 Caption = 'Edit Template &Fields'
1914 OnClick = mnuEditTemplateFieldsClick
1915 end
1916 object N16: TMenuItem
1917 Caption = '-'
1918 end
1919 object mnuImportTemplate: TMenuItem
1920 Caption = '&Import Template'
1921 OnClick = mnuImportTemplateClick
1922 end
1923 object mnuExportTemplate: TMenuItem
1924 Caption = '&Export Template'
1925 OnClick = mnuExportTemplateClick
1926 end
1927 object N17: TMenuItem
1928 Caption = '-'
1929 end
1930 object mnuRefresh: TMenuItem
1931 Caption = '&Refresh Templates'
1932 OnClick = mnuRefreshClick
1933 end
1934 object mnuTemplateIconLegend: TMenuItem
1935 Caption = 'Template Icon Legend'
1936 OnClick = mnuTemplateIconLegendClick
1937 end
1938 end
1939 end
1940 object popNotes: TPopupMenu
1941 OnPopup = popNotesPopup
1942 Left = 8
1943 Top = 387
1944 object mnuNotesUndo: TMenuItem
1945 Caption = '&Undo'
1946 ShortCut = 16474
1947 OnClick = mnuNotesUndoClick
1948 end
1949 object MenuItem2: TMenuItem
1950 Caption = '-'
1951 end
1952 object mnuNotesCut: TMenuItem
1953 Caption = 'Cu&t'
1954 ShortCut = 16472
1955 OnClick = mnuNotesCutClick
1956 end
1957 object mnuNotesCopy: TMenuItem
1958 Caption = '&Copy'
1959 ShortCut = 16451
1960 OnClick = mnuNotesCopyClick
1961 end
1962 object mnuNotesPaste: TMenuItem
1963 Caption = '&Paste'
1964 ShortCut = 16470
1965 OnClick = mnuNotesPasteClick
1966 end
1967 object MenuItem6: TMenuItem
1968 Caption = '-'
1969 end
1970 object mnuNotesSelectAll: TMenuItem
1971 Caption = 'Select &All'
1972 ShortCut = 16449
1973 OnClick = mnuNotesSelectAllClick
1974 end
1975 object MenuItem8: TMenuItem
1976 Caption = '-'
1977 end
1978 object mnuNotesGrammar: TMenuItem
1979 Caption = 'Check &Grammar'
1980 ShortCut = 16455
1981 OnClick = mnuNotesGrammarClick
1982 end
1983 object mnuNotesSpelling: TMenuItem
1984 Caption = 'Check &Spelling'
1985 ShortCut = 16467
1986 OnClick = mnuNotesSpellingClick
1987 end
1988 end
1989 object dlgImport: TOpenDialog
1990 DefaultExt = 'txml'
1991 Filter = 'Template Files|*.txml|XML Files|*.xml|All Files|*.*'
1992 Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist, ofEnableSizing]
1993 Left = 16
1994 Top = 136
1995 end
1996 object dlgExport: TSaveDialog
1997 DefaultExt = 'txml'
1998 Filter = 'Template Files|*.txml|XML Files|*.xml|All Files|*.*'
1999 Options = [ofOverwritePrompt, ofHideReadOnly, ofEnableSizing]
2000 Left = 56
2001 Top = 136
2002 end
2003 object imgLblTemplates: TVA508ImageListLabeler
2004 Components = <
2005 item
2006 Component = tvPersonal
2007 end
2008 item
2009 Component = tvShared
2010 end>
2011 Labels = <>
2012 RemoteLabeler = dmodShared.imgLblHealthFactorLabels
2013 Left = 104
2014 Top = 144
2015 end
2016end
Note: See TracBrowser for help on using the repository browser.