source: cprs/branches/HealthSevak-CPRS/CPRS-Chart/Templates/fTemplateEditor.dfm@ 1702

Last change on this file since 1702 was 1699, checked in by healthsevak, 10 years ago

Implemented the OpenSource based spell check feature
File size: 58.0 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 = 562
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 = 596
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 OnCanResize = splMainCanResize
32 OnMoved = splMainMoved
33 end
34 object pnlTop: TPanel [1]
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
177 ExplicitWidth = 93
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
466 WordWrap = True
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
618 WordWrap = True
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
660 CharsNeedMatch = 1
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
691 ExplicitWidth = 86
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
937 CharsNeedMatch = 1
938 end
939 object btnNew: TORAlignButton
940 Left = 558
941 Top = 0
942 Width = 182
943 Height = 22
944 Align = alRight
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
962 Width = 107
963 Height = 20
964 Align = alLeft
965 AutoSize = True
966 ButtonHeight = 21
967 ButtonWidth = 37
968 Caption = 'mbMain'
969 Menu = mnuMain
970 ShowCaptions = True
971 TabOrder = 0
972 OnResize = mbMainResize
973 end
974 end
975 end
976 end
977 object pnlCOM: TPanel [2]
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
994 ExplicitHeight = 13
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
1004 ExplicitHeight = 13
1005 end
1006 object edtCOMParam: TCaptionEdit
1007 Left = 360
1008 Top = 0
1009 Width = 380
1010 Height = 21
1011 Align = alClient
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
1039 CharsNeedMatch = 1
1040 end
1041 end
1042 object pnlLink: TPanel [3]
1043 Left = 0
1044 Top = 242
1045 Width = 740
1046 Height = 21
1047 Align = alTop
1048 BevelOuter = bvNone
1049 TabOrder = 3
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
1059 ExplicitHeight = 13
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
1079 Pieces = '2'
1080 HideSynonyms = True
1081 Sorted = False
1082 SynonymChars = '<>'
1083 TabPositions = '30,5000'
1084 TabOrder = 0
1085 TabStop = True
1086 OnExit = cbxLinkExit
1087 OnNeedData = cbxLinkNeedData
1088 CharsNeedMatch = 1
1089 end
1090 end
1091 object Panel1: TPanel [4]
1092 Left = 0
1093 Top = 284
1094 Width = 740
1095 Height = 251
1096 Align = alClient
1097 TabOrder = 4
1098 object pnlBoilerplate: TPanel
1099 Left = 1
1100 Top = 1
1101 Width = 738
1102 Height = 249
1103 Align = alClient
1104 BevelOuter = bvNone
1105 TabOrder = 0
1106 OnCanResize = pnlBoilerplateCanResize
1107 OnResize = pnlBoilerplateResize
1108 object splBoil: TSplitter
1109 Left = 0
1110 Top = 14
1111 Width = 738
1112 Height = 3
1113 Cursor = crVSplit
1114 Align = alTop
1115 AutoSnap = False
1116 Beveled = True
1117 Visible = False
1118 OnMoved = splBoilMoved
1119 ExplicitTop = 43
1120 ExplicitWidth = 740
1121 end
1122 object splNotes: TSplitter
1123 Left = 0
1124 Top = 203
1125 Width = 738
1126 Height = 3
1127 Cursor = crVSplit
1128 Align = alBottom
1129 AutoSnap = False
1130 Beveled = True
1131 Visible = False
1132 OnMoved = splBoilMoved
1133 ExplicitTop = 132
1134 ExplicitWidth = 740
1135 end
1136 object reBoil: TRichEdit
1137 Left = 0
1138 Top = 17
1139 Width = 738
1140 Height = 140
1141 Align = alClient
1142 Font.Charset = ANSI_CHARSET
1143 Font.Color = clWindowText
1144 Font.Height = -11
1145 Font.Name = 'Courier New'
1146 Font.Style = []
1147 Constraints.MinHeight = 30
1148 ParentFont = False
1149 PlainText = True
1150 PopupMenu = popBoilerplate
1151 ScrollBars = ssBoth
1152 TabOrder = 1
1153 WantTabs = True
1154 OnChange = reBoilChange
1155 OnKeyDown = reBoilKeyDown
1156 OnKeyPress = reBoilKeyPress
1157 OnKeyUp = reBoilKeyUp
1158 OnResizeRequest = reResizeRequest
1159 OnSelectionChange = reBoilSelectionChange
1160 end
1161 object pnlGroupBP: TPanel
1162 Left = 0
1163 Top = 157
1164 Width = 738
1165 Height = 46
1166 Align = alBottom
1167 BevelOuter = bvNone
1168 Constraints.MinHeight = 30
1169 TabOrder = 2
1170 Visible = False
1171 object lblGroupBP: TLabel
1172 Left = 0
1173 Top = 0
1174 Width = 738
1175 Height = 13
1176 Align = alTop
1177 Caption = 'Group Boilerplate'
1178 ExplicitWidth = 81
1179 end
1180 object lblGroupRow: TLabel
1181 Left = 264
1182 Top = 0
1183 Width = 23
1184 Height = 13
1185 Caption = 'Line:'
1186 end
1187 object lblGroupCol: TLabel
1188 Left = 336
1189 Top = 0
1190 Width = 38
1191 Height = 13
1192 Caption = 'Column:'
1193 end
1194 object reGroupBP: TRichEdit
1195 Left = 0
1196 Top = 16
1197 Width = 738
1198 Height = 30
1199 Align = alClient
1200 Color = clCream
1201 Font.Charset = ANSI_CHARSET
1202 Font.Color = clWindowText
1203 Font.Height = -11
1204 Font.Name = 'Courier New'
1205 Font.Style = []
1206 Constraints.MinHeight = 30
1207 ParentFont = False
1208 PlainText = True
1209 PopupMenu = popGroup
1210 ReadOnly = True
1211 ScrollBars = ssBoth
1212 TabOrder = 0
1213 WantReturns = False
1214 OnSelectionChange = reGroupBPSelectionChange
1215 end
1216 object pnlGroupBPGap: TPanel
1217 Left = 0
1218 Top = 13
1219 Width = 738
1220 Height = 3
1221 Align = alTop
1222 BevelOuter = bvNone
1223 TabOrder = 1
1224 end
1225 end
1226 object pnlBP: TPanel
1227 Left = 0
1228 Top = 0
1229 Width = 738
1230 Height = 14
1231 Align = alTop
1232 BevelOuter = bvNone
1233 TabOrder = 0
1234 object lblBoilerplate: TLabel
1235 Left = 0
1236 Top = 0
1237 Width = 96
1238 Height = 13
1239 Caption = 'Template &Boilerplate'
1240 FocusControl = reBoil
1241 end
1242 object lblBoilRow: TLabel
1243 Left = 264
1244 Top = 0
1245 Width = 23
1246 Height = 13
1247 Caption = 'Line:'
1248 end
1249 object lblBoilCol: TLabel
1250 Left = 336
1251 Top = 0
1252 Width = 38
1253 Height = 13
1254 Caption = 'Column:'
1255 Color = clBtnFace
1256 ParentColor = False
1257 end
1258 object cbLongLines: TCheckBox
1259 Left = 120
1260 Top = -2
1261 Width = 105
1262 Height = 17
1263 Caption = 'Allow Lon&g Lines'
1264 TabOrder = 0
1265 OnClick = cbLongLinesClick
1266 end
1267 end
1268 object pnlNotes: TPanel
1269 Left = 0
1270 Top = 206
1271 Width = 738
1272 Height = 43
1273 Align = alBottom
1274 BevelOuter = bvNone
1275 Constraints.MinHeight = 30
1276 TabOrder = 3
1277 Visible = False
1278 object lblNotes: TLabel
1279 Left = 0
1280 Top = 0
1281 Width = 738
1282 Height = 13
1283 Align = alTop
1284 Caption = 'Template Notes:'
1285 ExplicitWidth = 78
1286 end
1287 object reNotes: TRichEdit
1288 Left = 0
1289 Top = 13
1290 Width = 738
1291 Height = 30
1292 Align = alClient
1293 Font.Charset = ANSI_CHARSET
1294 Font.Color = clWindowText
1295 Font.Height = -11
1296 Font.Name = 'Courier New'
1297 Font.Style = []
1298 Constraints.MinHeight = 30
1299 ParentFont = False
1300 PlainText = True
1301 PopupMenu = popNotes
1302 ScrollBars = ssBoth
1303 TabOrder = 0
1304 WantTabs = True
1305 OnChange = reNotesChange
1306 OnKeyDown = reBoilKeyDown
1307 OnKeyPress = reBoilKeyPress
1308 OnKeyUp = reBoilKeyUp
1309 OnResizeRequest = reResizeRequest
1310 end
1311 end
1312 end
1313 end
1314 object pnlBottom: TPanel [5]
1315 Left = 0
1316 Top = 535
1317 Width = 740
1318 Height = 27
1319 Align = alBottom
1320 BevelOuter = bvNone
1321 TabOrder = 2
1322 DesignSize = (
1323 740
1324 27)
1325 object btnApply: TButton
1326 Left = 664
1327 Top = 4
1328 Width = 75
1329 Height = 22
1330 Anchors = [akTop, akRight]
1331 Caption = 'Apply'
1332 ParentShowHint = False
1333 ShowHint = False
1334 TabOrder = 5
1335 OnClick = btnApplyClick
1336 end
1337 object btnCancel: TButton
1338 Left = 584
1339 Top = 4
1340 Width = 75
1341 Height = 22
1342 Anchors = [akTop, akRight]
1343 Cancel = True
1344 Caption = 'Cancel'
1345 ModalResult = 2
1346 ParentShowHint = False
1347 ShowHint = False
1348 TabOrder = 4
1349 OnClick = btnCancelClick
1350 end
1351 object btnOK: TButton
1352 Left = 504
1353 Top = 4
1354 Width = 75
1355 Height = 22
1356 Anchors = [akTop, akRight]
1357 Caption = 'OK'
1358 ParentShowHint = False
1359 ShowHint = False
1360 TabOrder = 3
1361 OnClick = btnOKClick
1362 end
1363 object cbEditShared: TCheckBox
1364 Left = 0
1365 Top = 6
1366 Width = 129
1367 Height = 17
1368 Caption = 'E&dit Shared Templates'
1369 TabOrder = 0
1370 OnClick = cbEditSharedClick
1371 end
1372 object cbNotes: TCheckBox
1373 Left = 259
1374 Top = 6
1375 Width = 128
1376 Height = 17
1377 Hint =
1378 'Keep notes about a template that can be seen from the templates ' +
1379 'drawer'
1380 Caption = 'Sh&ow Template Notes'
1381 ParentShowHint = False
1382 ShowHint = True
1383 TabOrder = 2
1384 OnClick = cbNotesClick
1385 end
1386 object cbEditUser: TCheckBox
1387 Left = 132
1388 Top = 6
1389 Width = 123
1390 Height = 17
1391 Caption = 'E&dit User'#39's Templates'
1392 TabOrder = 1
1393 Visible = False
1394 OnClick = cbEditSharedClick
1395 end
1396 end
1397 inherited amgrMain: TVA508AccessibilityManager
1398 Data = (
1399 (
1400 'Component = pnlBottom'
1401 'Status = stsDefault')
1402 (
1403 'Component = btnApply'
1404 'Status = stsDefault')
1405 (
1406 'Component = btnCancel'
1407 'Status = stsDefault')
1408 (
1409 'Component = btnOK'
1410 'Status = stsDefault')
1411 (
1412 'Component = cbEditShared'
1413 'Status = stsDefault')
1414 (
1415 'Component = cbNotes'
1416 'Status = stsDefault')
1417 (
1418 'Component = cbEditUser'
1419 'Status = stsDefault')
1420 (
1421 'Component = pnlTop'
1422 'Status = stsDefault')
1423 (
1424 'Component = pnlRightTop'
1425 'Status = stsDefault')
1426 (
1427 'Component = pnlCopyBtns'
1428 'Status = stsDefault')
1429 (
1430 'Component = sbCopyRight'
1431 'Property = Hint'
1432 'Status = stsOK')
1433 (
1434 'Component = sbCopyLeft'
1435 'Property = Hint'
1436 'Status = stsOK')
1437 (
1438 'Component = pnlPersonal'
1439 'Status = stsDefault')
1440 (
1441 'Component = tvPersonal'
1442 'Status = stsDefault')
1443 (
1444 'Component = pnlPersonalBottom'
1445 'Status = stsDefault')
1446 (
1447 'Component = sbPerUp'
1448 'Property = Hint'
1449 'Status = stsOK')
1450 (
1451 'Component = sbPerDown'
1452 'Property = Hint'
1453 'Status = stsOK')
1454 (
1455 'Component = sbPerDelete'
1456 'Property = Hint'
1457 'Status = stsOK')
1458 (
1459 'Component = cbPerHide'
1460 'Property = Hint'
1461 'Status = stsOK')
1462 (
1463 'Component = pnlPersonalGap'
1464 'Status = stsDefault')
1465 (
1466 'Component = pnlPerSearch'
1467 'Status = stsDefault')
1468 (
1469 'Component = btnPerFind'
1470 'Text = Find Personal Template'
1471 'Status = stsOK')
1472 (
1473 'Component = edtPerSearch'
1474 'Status = stsDefault')
1475 (
1476 'Component = cbPerMatchCase'
1477 'Status = stsDefault')
1478 (
1479 'Component = cbPerWholeWords'
1480 'Status = stsDefault')
1481 (
1482 'Component = pnlProperties'
1483 'Status = stsDefault')
1484 (
1485 'Component = gbProperties'
1486 'Status = stsDefault')
1487 (
1488 'Component = cbExclude'
1489 'Status = stsDefault')
1490 (
1491 'Component = cbActive'
1492 'Status = stsDefault')
1493 (
1494 'Component = edtGap'
1495 'Status = stsDefault')
1496 (
1497 'Component = udGap'
1498 'Status = stsDefault')
1499 (
1500 'Component = edtName'
1501 'Status = stsDefault')
1502 (
1503 'Component = gbDialogProps'
1504 'Status = stsDefault')
1505 (
1506 'Component = cbDisplayOnly'
1507 'Status = stsDefault')
1508 (
1509 'Component = cbOneItemOnly'
1510 'Status = stsDefault')
1511 (
1512 'Component = cbFirstLine'
1513 'Status = stsDefault')
1514 (
1515 'Component = cbHideDlgItems'
1516 'Status = stsDefault')
1517 (
1518 'Component = cbIndent'
1519 'Status = stsDefault')
1520 (
1521 'Component = cbHideItems'
1522 'Status = stsDefault')
1523 (
1524 'Component = cbxType'
1525 'Status = stsDefault')
1526 (
1527 'Component = cbxRemDlgs'
1528 'Status = stsDefault')
1529 (
1530 'Component = cbLock'
1531 'Status = stsDefault')
1532 (
1533 'Component = pnlShared'
1534 'Status = stsDefault')
1535 (
1536 'Component = tvShared'
1537 'Status = stsDefault')
1538 (
1539 'Component = pnlSharedBottom'
1540 'Status = stsDefault')
1541 (
1542 'Component = sbShUp'
1543 'Property = Hint'
1544 'Status = stsOK')
1545 (
1546 'Component = sbShDown'
1547 'Property = Hint'
1548 'Status = stsOK')
1549 (
1550 'Component = sbShDelete'
1551 'Property = Hint'
1552 'Status = stsOK')
1553 (
1554 'Component = cbShHide'
1555 'Property = Hint'
1556 'Status = stsOK')
1557 (
1558 'Component = pnlSharedGap'
1559 'Status = stsDefault')
1560 (
1561 'Component = pnlShSearch'
1562 'Status = stsDefault')
1563 (
1564 'Component = btnShFind'
1565 'Text = Find Shared Template'
1566 'Status = stsOK')
1567 (
1568 'Component = edtShSearch'
1569 'Status = stsDefault')
1570 (
1571 'Component = cbShMatchCase'
1572 'Status = stsDefault')
1573 (
1574 'Component = cbShWholeWords'
1575 'Status = stsDefault')
1576 (
1577 'Component = pnlMenuBar'
1578 'Status = stsDefault')
1579 (
1580 'Component = cboOwner'
1581 'Status = stsDefault')
1582 (
1583 'Component = btnNew'
1584 'Status = stsDefault')
1585 (
1586 'Component = pnlMenu'
1587 'Status = stsDefault')
1588 (
1589 'Component = mbMain'
1590 'Status = stsDefault')
1591 (
1592 'Component = pnlCOM'
1593 'Status = stsDefault')
1594 (
1595 'Component = edtCOMParam'
1596 'Label = lblCOMParam'
1597 'Status = stsOK')
1598 (
1599 'Component = cbxCOMObj'
1600 'Property = Caption'
1601 'Status = stsOK')
1602 (
1603 'Component = pnlLink'
1604 'Status = stsDefault')
1605 (
1606 'Component = cbxLink'
1607 'Label = lblLink'
1608 'Status = stsOK')
1609 (
1610 'Component = frmTemplateEditor'
1611 'Status = stsDefault')
1612 (
1613 'Component = Panel1'
1614 'Status = stsDefault')
1615 (
1616 'Component = pnlBoilerplate'
1617 'Status = stsDefault')
1618 (
1619 'Component = reBoil'
1620 'Status = stsDefault')
1621 (
1622 'Component = pnlGroupBP'
1623 'Status = stsDefault')
1624 (
1625 'Component = reGroupBP'
1626 'Status = stsDefault')
1627 (
1628 'Component = pnlGroupBPGap'
1629 'Status = stsDefault')
1630 (
1631 'Component = pnlBP'
1632 'Status = stsDefault')
1633 (
1634 'Component = cbLongLines'
1635 'Status = stsDefault')
1636 (
1637 'Component = pnlNotes'
1638 'Status = stsDefault')
1639 (
1640 'Component = reNotes'
1641 'Status = stsDefault'))
1642 end
1643 object popTemplates: TPopupMenu
1644 OnPopup = popTemplatesPopup
1645 Left = 56
1646 Top = 96
1647 object mnuNodeNew: TMenuItem
1648 Caption = '&New Template'
1649 OnClick = btnNewClick
1650 end
1651 object mnuNodeAutoGen: TMenuItem
1652 Caption = '&Generate Template'
1653 OnClick = mnuAutoGenClick
1654 end
1655 object mnuNodeCopy: TMenuItem
1656 Caption = '&Copy Template'
1657 OnClick = mnuNodeCopyClick
1658 end
1659 object mnuNodePaste: TMenuItem
1660 Caption = '&Paste Template'
1661 OnClick = mnuNodePasteClick
1662 end
1663 object mnuNodeDelete: TMenuItem
1664 Caption = '&Delete Template'
1665 OnClick = mnuNodeDeleteClick
1666 end
1667 object N15: TMenuItem
1668 Caption = '-'
1669 end
1670 object mnuNodeSort: TMenuItem
1671 Caption = 'Sort'
1672 OnClick = mnuSortClick
1673 end
1674 object N6: TMenuItem
1675 Caption = '-'
1676 end
1677 object mnuFindTemplates: TMenuItem
1678 Caption = '&Find Templates'
1679 OnClick = mnuFindTemplatesClick
1680 end
1681 object mnuCollapseTree: TMenuItem
1682 Caption = 'Collapse &Tree'
1683 OnClick = mnuCollapseTreeClick
1684 end
1685 end
1686 object popBoilerplate: TPopupMenu
1687 OnPopup = popBoilerplatePopup
1688 Left = 88
1689 Top = 332
1690 object mnuBPUndo: TMenuItem
1691 Caption = '&Undo'
1692 ShortCut = 16474
1693 OnClick = mnuBPUndoClick
1694 end
1695 object N8: TMenuItem
1696 Caption = '-'
1697 end
1698 object mnuBPCut: TMenuItem
1699 Caption = 'Cu&t'
1700 ShortCut = 16472
1701 OnClick = mnuBPCutClick
1702 end
1703 object mnuBPCopy: TMenuItem
1704 Caption = '&Copy'
1705 ShortCut = 16451
1706 OnClick = mnuBPCopyClick
1707 end
1708 object mnuBPPaste: TMenuItem
1709 Caption = '&Paste'
1710 ShortCut = 16470
1711 OnClick = mnuBPPasteClick
1712 end
1713 object mnuBPSelectAll: TMenuItem
1714 Caption = 'Select &All'
1715 ShortCut = 16449
1716 OnClick = mnuBPSelectAllClick
1717 end
1718 object N2: TMenuItem
1719 Caption = '-'
1720 end
1721 object mnuBPInsertObject: TMenuItem
1722 Caption = '&Insert Patient Data (Object)'
1723 ShortCut = 16457
1724 OnClick = mnuBPInsertObjectClick
1725 end
1726 object mnuBPInsertField: TMenuItem
1727 Caption = 'Insert Template &Field'
1728 ShortCut = 16454
1729 OnClick = mnuBPInsertFieldClick
1730 end
1731 object mnuBPErrorCheck: TMenuItem
1732 Caption = 'Check for &Errors'
1733 ShortCut = 16453
1734 OnClick = mnuBPErrorCheckClick
1735 end
1736 object mnuBPTry: TMenuItem
1737 Caption = 'Preview/Print Template'
1738 ShortCut = 16468
1739 OnClick = mnuBPTryClick
1740 end
1741 object N7: TMenuItem
1742 Caption = '-'
1743 end
1744 object mnuBPCheckGrammar: TMenuItem
1745 Caption = 'Check &Grammar'
1746 ShortCut = 16455
1747 OnClick = mnuBPCheckGrammarClick
1748 end
1749 object popNoteMemoSpellOpenSource: TMenuItem
1750 Caption = 'Chec&k Spelling (OpenSource based)'
1751 ShortCut = 118
1752 OnClick = mnuBPSpellCheckClick
1753 end
1754 object mnuBPSpellCheck: TMenuItem
1755 Caption = 'C&heck Spelling (MS Office based)'
1756 ShortCut = 16467
1757 OnClick = mnuBPSpellCheckClick
1758 end
1759 end
1760 object tmrAutoScroll: TTimer
1761 Enabled = False
1762 Interval = 200
1763 OnTimer = tmrAutoScrollTimer
1764 Left = 96
1765 Top = 96
1766 end
1767 object popGroup: TPopupMenu
1768 OnPopup = popGroupPopup
1769 Left = 8
1770 Top = 325
1771 object mnuGroupBPCopy: TMenuItem
1772 Caption = '&Copy'
1773 ShortCut = 16451
1774 OnClick = mnuGroupBPCopyClick
1775 end
1776 object N4: TMenuItem
1777 Caption = '-'
1778 end
1779 object mnuGroupBPSelectAll: TMenuItem
1780 Caption = 'Select &All'
1781 ShortCut = 16449
1782 OnClick = mnuGroupBPSelectAllClick
1783 end
1784 end
1785 object mnuMain: TMainMenu
1786 Left = 16
1787 Top = 104
1788 object mnuEdit: TMenuItem
1789 Caption = '&Edit'
1790 OnClick = mnuEditClick
1791 object mnuUndo: TMenuItem
1792 Caption = '&Undo'
1793 ShortCut = 16474
1794 OnClick = mnuBPUndoClick
1795 end
1796 object N9: TMenuItem
1797 Caption = '-'
1798 ShortCut = 189
1799 end
1800 object mnuCut: TMenuItem
1801 Caption = 'Cu&t'
1802 ShortCut = 16472
1803 OnClick = mnuBPCutClick
1804 end
1805 object mnuCopy: TMenuItem
1806 Caption = '&Copy'
1807 ShortCut = 16451
1808 OnClick = mnuBPCopyClick
1809 end
1810 object mnuPaste: TMenuItem
1811 Caption = '&Paste'
1812 ShortCut = 16470
1813 OnClick = mnuBPPasteClick
1814 end
1815 object mnuSelectAll: TMenuItem
1816 Caption = 'Select &All'
1817 ShortCut = 16449
1818 OnClick = mnuBPSelectAllClick
1819 end
1820 object N11: TMenuItem
1821 Caption = '-'
1822 end
1823 object mnuInsertObject: TMenuItem
1824 Caption = '&Insert Patient Data (Object)'
1825 ShortCut = 16457
1826 OnClick = mnuBPInsertObjectClick
1827 end
1828 object mnuInsertField: TMenuItem
1829 Caption = 'Insert Template &Field'
1830 ShortCut = 16454
1831 OnClick = mnuBPInsertFieldClick
1832 end
1833 object mnuErrorCheck: TMenuItem
1834 Caption = 'Check for &Errors'
1835 ShortCut = 16453
1836 OnClick = mnuBPErrorCheckClick
1837 end
1838 object mnuTry: TMenuItem
1839 Caption = 'Preview/Print Template'
1840 ShortCut = 16468
1841 OnClick = mnuBPTryClick
1842 end
1843 object N1: TMenuItem
1844 Caption = '-'
1845 end
1846 object mnuCheckGrammar: TMenuItem
1847 Caption = 'Check &Grammar'
1848 ShortCut = 16455
1849 OnClick = mnuBPCheckGrammarClick
1850 end
1851 object mnuSpellCheck: TMenuItem
1852 Caption = 'Check &Spelling'
1853 ShortCut = 16467
1854 OnClick = mnuBPSpellCheckClick
1855 end
1856 object N13: TMenuItem
1857 Caption = '-'
1858 end
1859 object mnuGroupBoilerplate: TMenuItem
1860 Caption = 'Group &Boilerplate'
1861 OnClick = mnuGroupBoilerplateClick
1862 object mnuGroupCopy: TMenuItem
1863 Caption = '&Copy'
1864 OnClick = mnuGroupBPCopyClick
1865 end
1866 object mnuGroupSelectAll: TMenuItem
1867 Caption = 'Select &All'
1868 OnClick = mnuGroupBPSelectAllClick
1869 end
1870 end
1871 end
1872 object mnuTemplate: TMenuItem
1873 Caption = '&Action'
1874 OnClick = mnuTemplateClick
1875 object mnuNewTemplate: TMenuItem
1876 Caption = '&New Template'
1877 OnClick = btnNewClick
1878 end
1879 object mnuAutoGen: TMenuItem
1880 Caption = '&Generate Template'
1881 OnClick = mnuAutoGenClick
1882 end
1883 object mnuTCopy: TMenuItem
1884 Caption = '&Copy Template'
1885 OnClick = mnuNodeCopyClick
1886 end
1887 object mnuTPaste: TMenuItem
1888 Caption = '&Paste Template'
1889 OnClick = mnuNodePasteClick
1890 end
1891 object mnuTDelete: TMenuItem
1892 Caption = '&Delete Template'
1893 OnClick = mnuNodeDeleteClick
1894 end
1895 object N12: TMenuItem
1896 Caption = '-'
1897 end
1898 object mnuSort: TMenuItem
1899 Caption = 'Sort'
1900 OnClick = mnuSortClick
1901 end
1902 object N14: TMenuItem
1903 Caption = '-'
1904 end
1905 object mnuFindShared: TMenuItem
1906 Caption = 'Find &Shared Templates'
1907 OnClick = mnuFindSharedClick
1908 end
1909 object mnuFindPersonal: TMenuItem
1910 Caption = '&Find Personal Templates'
1911 OnClick = mnuFindPersonalClick
1912 end
1913 object N3: TMenuItem
1914 Caption = '-'
1915 end
1916 object mnuShCollapse: TMenuItem
1917 Caption = 'Collapse Shared Tree'
1918 OnClick = mnuShCollapseClick
1919 end
1920 object mnuPerCollapse: TMenuItem
1921 Caption = 'Collapse Personal Tree'
1922 OnClick = mnuPerCollapseClick
1923 end
1924 end
1925 object mnuTools: TMenuItem
1926 Caption = '&Tools'
1927 OnClick = mnuToolsClick
1928 object mnuEditTemplateFields: TMenuItem
1929 Caption = 'Edit Template &Fields'
1930 OnClick = mnuEditTemplateFieldsClick
1931 end
1932 object N16: TMenuItem
1933 Caption = '-'
1934 end
1935 object mnuImportTemplate: TMenuItem
1936 Caption = '&Import Template'
1937 OnClick = mnuImportTemplateClick
1938 end
1939 object mnuExportTemplate: TMenuItem
1940 Caption = '&Export Template'
1941 OnClick = mnuExportTemplateClick
1942 end
1943 object N17: TMenuItem
1944 Caption = '-'
1945 end
1946 object mnuRefresh: TMenuItem
1947 Caption = '&Refresh Templates'
1948 OnClick = mnuRefreshClick
1949 end
1950 object mnuTemplateIconLegend: TMenuItem
1951 Caption = 'Template Icon Legend'
1952 OnClick = mnuTemplateIconLegendClick
1953 end
1954 end
1955 end
1956 object popNotes: TPopupMenu
1957 OnPopup = popNotesPopup
1958 Left = 8
1959 Top = 387
1960 object mnuNotesUndo: TMenuItem
1961 Caption = '&Undo'
1962 ShortCut = 16474
1963 OnClick = mnuNotesUndoClick
1964 end
1965 object MenuItem2: TMenuItem
1966 Caption = '-'
1967 end
1968 object mnuNotesCut: TMenuItem
1969 Caption = 'Cu&t'
1970 ShortCut = 16472
1971 OnClick = mnuNotesCutClick
1972 end
1973 object mnuNotesCopy: TMenuItem
1974 Caption = '&Copy'
1975 ShortCut = 16451
1976 OnClick = mnuNotesCopyClick
1977 end
1978 object mnuNotesPaste: TMenuItem
1979 Caption = '&Paste'
1980 ShortCut = 16470
1981 OnClick = mnuNotesPasteClick
1982 end
1983 object MenuItem6: TMenuItem
1984 Caption = '-'
1985 end
1986 object mnuNotesSelectAll: TMenuItem
1987 Caption = 'Select &All'
1988 ShortCut = 16449
1989 OnClick = mnuNotesSelectAllClick
1990 end
1991 object MenuItem8: TMenuItem
1992 Caption = '-'
1993 end
1994 object mnuNotesGrammar: TMenuItem
1995 Caption = 'Check &Grammar'
1996 ShortCut = 16455
1997 OnClick = mnuNotesGrammarClick
1998 end
1999 object mnuNotesSpelling: TMenuItem
2000 Caption = 'Check &Spelling'
2001 ShortCut = 16467
2002 OnClick = mnuNotesSpellingClick
2003 end
2004 end
2005 object dlgImport: TOpenDialog
2006 DefaultExt = 'txml'
2007 Filter = 'Template Files|*.txml|XML Files|*.xml|All Files|*.*'
2008 Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist, ofEnableSizing]
2009 Left = 16
2010 Top = 136
2011 end
2012 object dlgExport: TSaveDialog
2013 DefaultExt = 'txml'
2014 Filter = 'Template Files|*.txml|XML Files|*.xml|All Files|*.*'
2015 Options = [ofOverwritePrompt, ofHideReadOnly, ofEnableSizing]
2016 Left = 56
2017 Top = 136
2018 end
2019 object imgLblTemplates: TVA508ImageListLabeler
2020 Components = <
2021 item
2022 Component = tvPersonal
2023 end
2024 item
2025 Component = tvShared
2026 end>
2027 Labels = <>
2028 RemoteLabeler = dmodShared.imgLblHealthFactorLabels
2029 Left = 104
2030 Top = 144
2031 end
2032end
Note: See TracBrowser for help on using the repository browser.