Context Navigation

fTemplateEditor.dfm@ 1727

Last change on this file since 1727 was 1699, checked in by healthsevak, 10 years ago
Implemented the OpenSource based spell check feature
File size: 58.0 KB

Rev	Line
[829]	1	inherited frmTemplateEditor: TfrmTemplateEditor
	2	Left = 321
	3	Top = 119
[456]	4	HelpContext = 10000
	5	ActiveControl = tvPersonal
	6	BorderIcons = [biSystemMenu, biMaximize]
	7	Caption = 'Template Editor'
[1693]	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
[1693]	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
[1693]	31	OnCanResize = splMainCanResize
[456]	32	OnMoved = splMainMoved
	33	end
[1693]	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
[1699]	966	ButtonHeight = 21
	967	ButtonWidth = 37
[456]	968	Caption = 'mbMain'
	969	Menu = mnuMain
	970	ShowCaptions = True
	971	TabOrder = 0
	972	OnResize = mbMainResize
	973	end
	974	end
	975	end
	976	end
[1693]	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
[1693]	1042	object pnlLink: TPanel [3]
[456]	1043	Left = 0
	1044	Top = 242
	1045	Width = 740
	1046	Height = 21
	1047	Align = alTop
	1048	BevelOuter = bvNone
[1693]	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
[1693]	1086	OnExit = cbxLinkExit
[456]	1087	OnNeedData = cbxLinkNeedData
[829]	1088	CharsNeedMatch = 1
[456]	1089	end
	1090	end
[1693]	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
[1699]	1281	Width = 738
[1693]	1282	Height = 13
	1283	Align = alTop
	1284	Caption = 'Template Notes:'
[1699]	1285	ExplicitWidth = 78
[1693]	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
[829]	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'
[1693]	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'
[829]	1641	'Status = stsDefault'))
	1642	end
[456]	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
[1699]	1749	object popNoteMemoSpellOpenSource: TMenuItem
	1750	Caption = 'Chec&k Spelling (OpenSource based)'
	1751	ShortCut = 118
	1752	OnClick = mnuBPSpellCheckClick
	1753	end
[456]	1754	object mnuBPSpellCheck: TMenuItem
[1699]	1755	Caption = 'C&heck Spelling (MS Office based)'
[456]	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
[829]	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
[456]	2032	end

Note: See TracBrowser for help on using the repository browser.

Download in other formats:

Original Format