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

Last change on this file since 1736 was 1679, checked in by healthsevak, 9 years ago

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