Context Navigation

fTemplateEditor.dfm@ 840

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

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

Download in other formats:

Original Format