Context Navigation

fTemplateEditor.pas@ 1803

Last change on this file since 1803 was 1679, checked in by healthsevak, 10 years ago
Updating the working copy to CPRS version 28
File size: 128.2 KB

Rev	Line
[456]	1	unit fTemplateEditor;
	2	{The OwnerScan conditional compile varaible was created because there were too
	3	many things that needed to be done to incorporate the viewing of other user's
	4	personal templates by clinical coordinators. These include:
	5	Changing the Personal tree.
	6	expanding entirely new personal list when personal list changes
	7	when click on stop editing shared button, and personal is for someone else,
	8	need to resync to personal list.
	9
	10	HOT HEYS NOT YET ASSIGNED:
	11	JFKQRUVZ
	12	}
	13	{$DEFINE OwnerScan}
	14	{$UNDEF OwnerScan}
	15	interface
	16
	17	uses
	18	Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
	19	ExtCtrls, StdCtrls, ComCtrls, ORCtrls, Buttons, Mask, ORFn, ORNet,
[829]	20	uTemplates, Menus, ImgList, Clipbrd, ToolWin, MenuBar, TypInfo, MSXML_TLB, fBase508Form,
	21	VA508AccessibilityManager, VA508ImageListLabeler;
[456]	22
	23	type
	24	TTemplateTreeControl = (tcDel, tcUp, tcDown, tcLbl, tcCopy);
	25	TTemplateTreeType = (ttShared, ttPersonal);
	26
[829]	27	TfrmTemplateEditor = class(TfrmBase508Form)
[456]	28	splMain: TSplitter;
[829]	29	pnlBottom: TPanel;
[456]	30	btnApply: TButton;
	31	btnCancel: TButton;
	32	btnOK: TButton;
	33	pnlTop: TPanel;
	34	pnlRightTop: TPanel;
	35	splProperties: TSplitter;
	36	pnlCopyBtns: TPanel;
	37	sbCopyLeft: TBitBtn;
	38	sbCopyRight: TBitBtn;
	39	lblCopy: TLabel;
	40	splMiddle: TSplitter;
	41	pnlShared: TPanel;
	42	lblShared: TLabel;
	43	tvShared: TORTreeView;
	44	pnlSharedBottom: TPanel;
	45	sbShUp: TBitBtn;
	46	sbShDown: TBitBtn;
	47	sbShDelete: TBitBtn;
	48	cbShHide: TCheckBox;
	49	pnlSharedGap: TPanel;
	50	pnlPersonal: TPanel;
	51	lblPersonal: TLabel;
	52	tvPersonal: TORTreeView;
	53	pnlPersonalBottom: TPanel;
	54	sbPerUp: TBitBtn;
	55	sbPerDown: TBitBtn;
	56	sbPerDelete: TBitBtn;
	57	cbPerHide: TCheckBox;
	58	pnlPersonalGap: TPanel;
	59	popTemplates: TPopupMenu;
	60	mnuCollapseTree: TMenuItem;
	61	mnuFindTemplates: TMenuItem;
	62	popBoilerplate: TPopupMenu;
	63	mnuBPInsertObject: TMenuItem;
	64	mnuBPErrorCheck: TMenuItem;
	65	mnuBPSpellCheck: TMenuItem;
	66	tmrAutoScroll: TTimer;
	67	popGroup: TPopupMenu;
	68	mnuGroupBPCopy: TMenuItem;
	69	mnuBPCut: TMenuItem;
	70	N2: TMenuItem;
	71	mnuBPCopy: TMenuItem;
	72	mnuBPPaste: TMenuItem;
	73	N4: TMenuItem;
	74	mnuGroupBPSelectAll: TMenuItem;
	75	mnuBPSelectAll: TMenuItem;
	76	N6: TMenuItem;
	77	mnuNodeCopy: TMenuItem;
	78	mnuNodePaste: TMenuItem;
	79	mnuNodeDelete: TMenuItem;
	80	N8: TMenuItem;
	81	mnuBPUndo: TMenuItem;
	82	cbEditShared: TCheckBox;
	83	pnlProperties: TPanel;
	84	gbProperties: TGroupBox;
	85	lblName: TLabel;
	86	lblLines: TLabel;
	87	cbExclude: TORCheckBox;
	88	cbActive: TCheckBox;
	89	edtGap: TCaptionEdit;
	90	udGap: TUpDown;
	91	edtName: TCaptionEdit;
	92	mnuMain: TMainMenu;
	93	mnuEdit: TMenuItem;
	94	mnuUndo: TMenuItem;
	95	N9: TMenuItem;
	96	mnuCut: TMenuItem;
	97	mnuCopy: TMenuItem;
	98	mnuPaste: TMenuItem;
	99	mnuSelectAll: TMenuItem;
	100	N11: TMenuItem;
	101	mnuInsertObject: TMenuItem;
	102	mnuErrorCheck: TMenuItem;
	103	mnuSpellCheck: TMenuItem;
	104	N13: TMenuItem;
	105	mnuGroupBoilerplate: TMenuItem;
	106	mnuGroupCopy: TMenuItem;
	107	mnuGroupSelectAll: TMenuItem;
	108	mnuTemplate: TMenuItem;
	109	mnuTCopy: TMenuItem;
	110	mnuTPaste: TMenuItem;
	111	mnuTDelete: TMenuItem;
	112	N12: TMenuItem;
	113	pnlShSearch: TPanel;
	114	btnShFind: TORAlignButton;
	115	edtShSearch: TCaptionEdit;
	116	cbShMatchCase: TCheckBox;
	117	cbShWholeWords: TCheckBox;
	118	pnlPerSearch: TPanel;
	119	btnPerFind: TORAlignButton;
	120	edtPerSearch: TCaptionEdit;
	121	cbPerMatchCase: TCheckBox;
	122	cbPerWholeWords: TCheckBox;
	123	mnuFindShared: TMenuItem;
	124	mnuFindPersonal: TMenuItem;
	125	N3: TMenuItem;
	126	mnuShCollapse: TMenuItem;
	127	mnuPerCollapse: TMenuItem;
	128	pnlMenuBar: TPanel;
	129	lblPerOwner: TLabel;
	130	cboOwner: TORComboBox;
	131	btnNew: TORAlignButton;
	132	pnlMenu: TPanel;
	133	mbMain: TMenuBar;
	134	mnuNewTemplate: TMenuItem;
	135	Bevel1: TBevel;
	136	mnuNodeNew: TMenuItem;
	137	mnuBPCheckGrammar: TMenuItem;
	138	mnuCheckGrammar: TMenuItem;
	139	N1: TMenuItem;
	140	N7: TMenuItem;
	141	N14: TMenuItem;
	142	mnuSort: TMenuItem;
	143	N15: TMenuItem;
	144	mnuNodeSort: TMenuItem;
	145	mnuTry: TMenuItem;
	146	mnuBPTry: TMenuItem;
	147	mnuAutoGen: TMenuItem;
	148	mnuNodeAutoGen: TMenuItem;
	149	popNotes: TPopupMenu;
	150	mnuNotesUndo: TMenuItem;
	151	MenuItem2: TMenuItem;
	152	mnuNotesCut: TMenuItem;
	153	mnuNotesCopy: TMenuItem;
	154	mnuNotesPaste: TMenuItem;
	155	MenuItem6: TMenuItem;
	156	mnuNotesSelectAll: TMenuItem;
	157	MenuItem8: TMenuItem;
	158	mnuNotesGrammar: TMenuItem;
	159	mnuNotesSpelling: TMenuItem;
	160	cbNotes: TCheckBox;
	161	gbDialogProps: TGroupBox;
	162	cbDisplayOnly: TCheckBox;
	163	cbOneItemOnly: TCheckBox;
	164	cbHideItems: TORCheckBox;
	165	cbFirstLine: TCheckBox;
	166	cbHideDlgItems: TCheckBox;
	167	cbIndent: TCheckBox;
	168	mnuTools: TMenuItem;
	169	mnuEditTemplateFields: TMenuItem;
	170	N16: TMenuItem;
	171	mnuImportTemplate: TMenuItem;
	172	mnuExportTemplate: TMenuItem;
	173	mnuBPInsertField: TMenuItem;
	174	mnuInsertField: TMenuItem;
	175	cbEditUser: TCheckBox;
	176	dlgImport: TOpenDialog;
	177	dlgExport: TSaveDialog;
	178	cbxType: TCaptionComboBox;
	179	lblType: TLabel;
	180	cbxRemDlgs: TORComboBox;
	181	lblRemDlg: TLabel;
	182	N17: TMenuItem;
	183	mnuTemplateIconLegend: TMenuItem;
	184	cbLock: TORCheckBox;
	185	mnuRefresh: TMenuItem;
	186	pnlCOM: TPanel;
	187	lblCOMParam: TLabel;
	188	edtCOMParam: TCaptionEdit;
	189	cbxCOMObj: TORComboBox;
	190	lblCOMObj: TLabel;
	191	pnlLink: TPanel;
	192	cbxLink: TORComboBox;
	193	lblLink: TLabel;
[829]	194	imgLblTemplates: TVA508ImageListLabeler;
[1679]	195	Panel1: TPanel;
	196	pnlBoilerplate: TPanel;
	197	splBoil: TSplitter;
	198	splNotes: TSplitter;
	199	reBoil: TRichEdit;
	200	pnlGroupBP: TPanel;
	201	lblGroupBP: TLabel;
	202	lblGroupRow: TLabel;
	203	lblGroupCol: TLabel;
	204	reGroupBP: TRichEdit;
	205	pnlGroupBPGap: TPanel;
	206	pnlBP: TPanel;
	207	lblBoilerplate: TLabel;
	208	lblBoilRow: TLabel;
	209	lblBoilCol: TLabel;
	210	cbLongLines: TCheckBox;
	211	pnlNotes: TPanel;
	212	lblNotes: TLabel;
	213	reNotes: TRichEdit;
[456]	214	procedure btnNewClick(Sender: TObject);
	215	procedure btnApplyClick(Sender: TObject);
	216	procedure FormCreate(Sender: TObject);
[1679]	217	procedure cboOwnerNeedData(Sender: TObject; const StartFrom: string;
[456]	218	Direction, InsertAt: Integer);
	219	procedure cboOwnerChange(Sender: TObject);
	220	procedure tvPersonalExpanding(Sender: TObject; Node: TTreeNode;
	221	var AllowExpansion: Boolean);
	222	procedure tvSharedExpanding(Sender: TObject; Node: TTreeNode;
	223	var AllowExpansion: Boolean);
	224	procedure tvTreeGetImageIndex(Sender: TObject; Node: TTreeNode);
	225	procedure tvTreeGetSelectedIndex(Sender: TObject; Node: TTreeNode);
	226	procedure tvTreeChange(Sender: TObject; Node: TTreeNode);
	227	procedure splMainMoved(Sender: TObject);
	228	procedure pnlBoilerplateResize(Sender: TObject);
	229	procedure edtNameOldChange(Sender: TObject);
	230	procedure cbActiveClick(Sender: TObject);
	231	procedure cbExcludeClick(Sender: TObject);
	232	procedure edtGapChange(Sender: TObject);
	233	procedure tvTreeEnter(Sender: TObject);
	234	procedure tvTreeNodeEdited(Sender: TObject; Node: TTreeNode;
[1679]	235	var S: string);
[456]	236	procedure cbShHideClick(Sender: TObject);
	237	procedure cbPerHideClick(Sender: TObject);
	238	procedure FormDestroy(Sender: TObject);
	239	procedure sbMoveUpClick(Sender: TObject);
	240	procedure sbMoveDownClick(Sender: TObject);
	241	procedure sbDeleteClick(Sender: TObject);
	242	procedure tvTreeDragging(Sender: TObject; Node: TTreeNode;
	243	var CanDrag: Boolean);
	244	procedure tvTreeDragOver(Sender, Source: TObject; X, Y: Integer;
	245	State: TDragState; var Accept: Boolean);
	246	procedure tvTreeDragDrop(Sender, Source: TObject; X, Y: Integer);
	247	procedure sbCopyLeftClick(Sender: TObject);
	248	procedure sbCopyRightClick(Sender: TObject);
	249	procedure reBoilChange(Sender: TObject);
	250	procedure cbEditSharedClick(Sender: TObject);
	251	procedure popTemplatesPopup(Sender: TObject);
	252	procedure mnuCollapseTreeClick(Sender: TObject);
	253	procedure mnuFindTemplatesClick(Sender: TObject);
	254	procedure btnFindClick(Sender: TObject);
	255	procedure edtSearchChange(Sender: TObject);
	256	procedure edtShSearchEnter(Sender: TObject);
	257	procedure edtShSearchExit(Sender: TObject);
	258	procedure edtPerSearchEnter(Sender: TObject);
	259	procedure edtPerSearchExit(Sender: TObject);
	260	procedure btnOKClick(Sender: TObject);
	261	procedure FormShow(Sender: TObject);
	262	procedure mnuBPInsertObjectClick(Sender: TObject);
	263	procedure mnuBPErrorCheckClick(Sender: TObject);
	264	procedure popBoilerplatePopup(Sender: TObject);
	265	procedure btnCancelClick(Sender: TObject);
	266	procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
	267	procedure mnuBPSpellCheckClick(Sender: TObject);
	268	procedure splBoilMoved(Sender: TObject);
	269	procedure edtGapKeyPress(Sender: TObject; var Key: Char);
	270	procedure edtNameExit(Sender: TObject);
	271	procedure tmrAutoScrollTimer(Sender: TObject);
	272	procedure tvTreeStartDrag(Sender: TObject;
	273	var DragObject: TDragObject);
	274	procedure tvTreeEndDrag(Sender, Target: TObject; X, Y: Integer);
	275	procedure mnuGroupBPCopyClick(Sender: TObject);
	276	procedure popGroupPopup(Sender: TObject);
	277	procedure mnuBPCutClick(Sender: TObject);
	278	procedure mnuBPCopyClick(Sender: TObject);
	279	procedure mnuBPPasteClick(Sender: TObject);
	280	procedure mnuGroupBPSelectAllClick(Sender: TObject);
	281	procedure mnuBPSelectAllClick(Sender: TObject);
	282	procedure mnuNodeDeleteClick(Sender: TObject);
	283	procedure mnuNodeCopyClick(Sender: TObject);
	284	procedure mnuNodePasteClick(Sender: TObject);
	285	procedure mnuBPUndoClick(Sender: TObject);
	286	procedure tvTreeKeyDown(Sender: TObject; var Key: Word;
	287	Shift: TShiftState);
	288	procedure mnuEditClick(Sender: TObject);
	289	procedure mnuGroupBoilerplateClick(Sender: TObject);
	290	procedure cbShFindOptionClick(Sender: TObject);
	291	procedure cbPerFindOptionClick(Sender: TObject);
	292	procedure mnuTemplateClick(Sender: TObject);
	293	procedure mnuFindSharedClick(Sender: TObject);
	294	procedure mnuFindPersonalClick(Sender: TObject);
	295	procedure mnuShCollapseClick(Sender: TObject);
	296	procedure mnuPerCollapseClick(Sender: TObject);
	297	procedure pnlShSearchResize(Sender: TObject);
	298	procedure pnlPerSearchResize(Sender: TObject);
	299	procedure pnlPropertiesResize(Sender: TObject);
	300	procedure mbMainResize(Sender: TObject);
	301	procedure mnuBPCheckGrammarClick(Sender: TObject);
	302	procedure mnuSortClick(Sender: TObject);
	303	procedure pnlBoilerplateCanResize(Sender: TObject; var NewWidth,
	304	NewHeight: Integer; var Resize: Boolean);
	305	procedure mnuBPTryClick(Sender: TObject);
	306	procedure mnuAutoGenClick(Sender: TObject);
	307	procedure reNotesChange(Sender: TObject);
	308	procedure mnuNotesUndoClick(Sender: TObject);
	309	procedure mnuNotesCutClick(Sender: TObject);
	310	procedure mnuNotesCopyClick(Sender: TObject);
	311	procedure mnuNotesPasteClick(Sender: TObject);
	312	procedure mnuNotesSelectAllClick(Sender: TObject);
	313	procedure mnuNotesGrammarClick(Sender: TObject);
	314	procedure mnuNotesSpellingClick(Sender: TObject);
	315	procedure popNotesPopup(Sender: TObject);
	316	procedure cbNotesClick(Sender: TObject);
	317	procedure cbDisplayOnlyClick(Sender: TObject);
	318	procedure cbFirstLineClick(Sender: TObject);
	319	procedure cbOneItemOnlyClick(Sender: TObject);
	320	procedure cbHideDlgItemsClick(Sender: TObject);
	321	procedure cbHideItemsClick(Sender: TObject);
	322	procedure cbIndentClick(Sender: TObject);
	323	procedure mnuToolsClick(Sender: TObject);
	324	procedure mnuEditTemplateFieldsClick(Sender: TObject);
	325	procedure mnuBPInsertFieldClick(Sender: TObject);
	326	procedure mnuExportTemplateClick(Sender: TObject);
	327	procedure mnuImportTemplateClick(Sender: TObject);
	328	procedure cbxTypeDrawItem(Control: TWinControl; Index: Integer;
	329	Rect: TRect; State: TOwnerDrawState);
	330	procedure cbxTypeChange(Sender: TObject);
	331	procedure cbxRemDlgsChange(Sender: TObject);
	332	procedure mnuTemplateIconLegendClick(Sender: TObject);
	333	procedure cbLongLinesClick(Sender: TObject);
	334	procedure cbLockClick(Sender: TObject);
	335	procedure mnuRefreshClick(Sender: TObject);
	336	procedure reResizeRequest(Sender: TObject; Rect: TRect);
	337	procedure reBoilSelectionChange(Sender: TObject);
	338	procedure reGroupBPSelectionChange(Sender: TObject);
	339	procedure cbxCOMObjChange(Sender: TObject);
	340	procedure edtCOMParamChange(Sender: TObject);
[1679]	341	procedure cbxLinkNeedData(Sender: TObject; const StartFrom: string;
[456]	342	Direction, InsertAt: Integer);
[1679]	343	procedure cbxLinkExit(Sender: TObject);
[456]	344	procedure reBoilKeyUp(Sender: TObject; var Key: Word;
	345	Shift: TShiftState);
	346	procedure reBoilKeyPress(Sender: TObject; var Key: Char);
	347	procedure reBoilKeyDown(Sender: TObject; var Key: Word;
	348	Shift: TShiftState);
[829]	349	procedure FormClose(Sender: TObject; var Action: TCloseAction);
[1679]	350	procedure splMainCanResize(Sender: TObject; var NewSize: Integer;
	351	var Accept: Boolean);
[456]	352	private
	353	FLastRect: TRect;
	354	FForceContainer: boolean;
	355	FSavePause: integer;
	356	FCopyNode: TTreeNode;
	357	FPasteNode: TTreeNode;
	358	FCopying: boolean;
	359	FDropNode: TTreeNode;
	360	FDropInto: boolean;
	361	FDragNode: TTreeNode;
	362	FPersonalEmptyNodeCount: integer;
	363	FSharedEmptyNodeCount: integer;
	364	// FOldPersonalTemplate: TTemplate;
	365	FCurrentPersonalUser: Int64;
	366	FCanEditPersonal: boolean;
	367	FCanEditShared: boolean;
	368	FUpdating: boolean;
	369	FCurTree: TTreeView;
	370	FTreeControl: array[TTemplateTreeType, TTemplateTreeControl] of TControl;
[1679]	371	FInternalHiddenExpand: boolean;
[456]	372	FFindShOn: boolean;
	373	FFindShNext: boolean;
	374	FLastFoundShNode: TTreeNode;
	375	FFindPerOn: boolean;
	376	FFindPerNext: boolean;
	377	FLastFoundPerNode: TTreeNode;
	378	FFirstShow: boolean;
	379	FFocusName: boolean;
	380	FOK2Close: boolean;
	381	FBtnNewNode: TTreeNode;
	382	FLastDropNode: TTreeNode;
	383	FFromMainMenu: boolean;
	384	FMainMenuTree: TTreeView;
	385	FDragOverCount: integer;
	386	FBPOK: boolean;
	387	FImportingFromXML: boolean;
	388	FXMLTemplateElement: IXMLDOMNode;
	389	FXMLFieldElement: IXMLDOMNode;
	390	FCanDoReminders: boolean;
	391	FCanDoCOMObjects: boolean;
[829]	392	//FPersonalObjects: TStringList;
[456]	393	FShowingTemplate: TTemplate;
	394	FConsultServices: TStringList;
	395	FNavigatingTab: boolean;
	396	protected
	397	procedure UpdateXY(re: TRichEdit; lblX, lblY: TLabel);
	398	function IsTemplateLocked(Node: TTreeNode): boolean;
	399	procedure RefreshData;
	400	procedure ShowTemplateType(Template: TTemplate);
	401	procedure DisplayBoilerplate(Node: TTreeNode);
	402	procedure NewPersonalUser(UsrIEN: Int64);
	403	procedure HideControls;
	404	procedure EnableControls(ok, Root: boolean);
	405	procedure EnableNavControls;
	406	procedure MoveCopyButtons;
	407	procedure ShowInfo(Node: TTreeNode);
	408	function ChangeTree(NewTree: TTreeView): boolean;
	409	procedure Resync(const Templates: array of TTemplate);
	410	function AllowMove(ADropNode, ADragNode: TTreeNode): boolean;
	411	function CanClone(const Node: TTreeNode): boolean;
	412	function Clone(Node: TTreeNode): boolean;
	413	procedure SharedEditing;
	414	function GetTree: TTreeView;
	415	procedure SetFindNext(const Tree: TTreeView; const Value: boolean);
	416	function ScanNames: boolean;
	417	function PasteOK: boolean;
	418	function AutoDel(Template: TTemplate): boolean;
	419	procedure cbClick(Sender: TCheckBox; Index: integer);
	420	procedure UpdateInsertsDialogs;
	421	procedure AutoLongLines(Sender: TObject);
[829]	422	//procedure UpdatePersonalObjects;
[456]	423	procedure UpdateApply(Template: TTemplate);
	424	procedure TemplateLocked(Sender: TObject);
	425	procedure InitTrees;
[829]	426	procedure AdjustControls4FontChange;
	427	procedure ShowGroupBoilerplate(Visible: boolean);
[456]	428	function GetLinkType(const ANode: TTreeNode): TTemplateLinkType;
	429	end;
	430
	431	procedure EditTemplates(Form: TForm; NewTemplate: boolean = FALSE; CopiedText: string = ''; Shared: boolean = FALSE);
	432
[829]	433	const
	434	TemplateEditorSplitters = 'frmTempEditSplitters';
	435	TemplateEditorSplitters2 = 'frmTempEditSplitters2';
	436
	437	var
	438	tmplEditorSplitterMiddle: integer = 0;
	439	tmplEditorSplitterProperties: integer = 0;
	440	tmplEditorSplitterMain: integer = 0;
	441	tmplEditorSplitterBoil: integer = 0;
	442	tmplEditorSplitterNotes: integer = 0;
	443
[456]	444	implementation
	445
	446	{$R *.DFM}
	447
	448	uses dShared, uCore, rTemplates, fTemplateObjects, uSpell, fTemplateView,
	449	fTemplateAutoGen, fDrawers, fTemplateFieldEditor, fTemplateFields, XMLUtils,
[829]	450	fIconLegend, uReminders, uConst, rCore, rEventHooks, rConsults, VAUtils,
	451	rMisc, fFindingTemplates;
[456]	452
	453	const
	454	PropText = ' Template Properties ';
	455	// GroupTag = 5;
[1679]	456	BPDisplayOnlyFld = 0;
	457	BPFirstLineFld = 1;
	458	BPOneItemOnlyFld = 2;
[456]	459	BPHideDlgItemsFld = 3;
[1679]	460	BPHideItemsFld = 4;
	461	BPIndentFld = 5;
	462	BPLockFld = 6;
[456]	463	NoIE5 = 'You must have Internet Explorer 5 or better installed to %s Templates';
	464	NoIE5Header = 'Need Internet Explorer 5';
[1679]	465	VK_A = Ord('A');
	466	VK_C = Ord('C');
	467	VK_E = Ord('E');
	468	VK_F = Ord('F');
	469	VK_G = Ord('G');
	470	VK_I = Ord('I');
	471	VK_S = Ord('S');
	472	VK_T = Ord('T');
	473	VK_V = Ord('V');
	474	VK_X = Ord('X');
	475	VK_Z = Ord('Z');
[456]	476
	477	type
	478	TTypeIndex = (tiTemplate, tiFolder, tiGroup, tiDialog, tiRemDlg, tiCOMObj);
	479
	480	const
	481	tiNone = TTypeIndex(-1);
	482	// TypeTag: array[TTypeIndex] of integer = (7, 6, 8, -8, 7, 7);
	483	ttDialog = TTemplateType(-ord(ttGroup));
	484
	485	TypeTag: array[TTypeIndex] of TTemplateType = (ttDoc, ttClass, ttGroup, ttDialog, ttDoc, ttDoc);
[1679]	486	ForcedIdx: array[boolean, TTypeIndex] of integer = ((0, 1, 2, 3, 4, 5), (-1, 0, 1, 2, -1, -1));
[456]	487	IdxForced: array[boolean, 0..5] of TTypeIndex = ((tiTemplate, tiFolder, tiGroup, tiDialog, tiRemDlg, tiCOMObj),
[1679]	488	(tiFolder, tiGroup, tiDialog, tiNone, tiNone, tiNone));
[456]	489	iMessage = 'This template has one or more new fields, and you are not authorized to create new fields. ' +
[1679]	490	'If you continue, the program will import the new template without the new fields. Do you wish ' +
	491	'to do this?';
[456]	492	iMessage2 = 'The imported template fields had XML errors. ';
	493	iMessage3 = 'No Fields were imported.';
	494
	495	var
	496	frmTemplateObjects: TfrmTemplateObjects = nil;
	497	frmTemplateFields: TfrmTemplateFields = nil;
	498
	499	procedure EditTemplates(Form: TForm; NewTemplate: boolean = FALSE;
[1679]	500	CopiedText: string = ''; Shared: boolean = FALSE);
[456]	501	var
	502	frmTemplateEditor: TfrmTemplateEditor;
	503	Drawers: TFrmDrawers;
	504	ExpandStr, SelectStr: string;
	505	SelNode: TTreeNode;
	506	SelShared: boolean;
	507
	508	begin
[1679]	509	if (UserTemplateAccessLevel in [taReadOnly, taNone]) then exit;
[456]	510
	511	ExpandStr := '';
	512	SelectStr := '';
	513	Drawers := nil;
[1679]	514	if (not NewTemplate) and (CopiedText = '') then
[456]	515	begin
	516	if Form is TfrmDrawers then
	517	Drawers := TFrmDrawers(Form)
	518	else
[1679]	519	if IsPublishedProp(Form, DrawersProperty) then
	520	Drawers := TFrmDrawers(GetOrdProp(Form, DrawersProperty));
[456]	521	end;
	522
	523	if assigned(Drawers) then
	524	begin
	525	ExpandStr := Drawers.tvTemplates.GetExpandedIDStr(1, ';');
[1679]	526	SelectStr := Drawers.tvTemplates.GetNodeID(TORTreeNode(Drawers.tvTemplates.Selected), 1, ';');
[456]	527	end;
	528
	529	frmTemplateEditor := TfrmTemplateEditor.Create(Application);
	530	try
	531	with frmTemplateEditor do
	532	begin
	533	Font := Form.Font;
	534	reBoil.Font.Size := Form.Font.Size;
	535	reGroupBP.Font.Size := Form.Font.Size;
	536	reNotes.Font.Size := Form.Font.Size;
	537	dmodShared.ExpandTree(tvShared, ExpandStr, FSharedEmptyNodeCount);
[1679]	538	SelNode := tvShared.FindPieceNode(SelectStr, 1, ';');
[456]	539	SelShared := assigned(SelNode);
	540	dmodShared.ExpandTree(tvPersonal, ExpandStr, FPersonalEmptyNodeCount);
	541	if not SelShared then
[1679]	542	SelNode := tvPersonal.FindPieceNode(SelectStr, 1, ';');
[456]	543
[1679]	544	if (SelShared and (not Shared)) then
[456]	545	Shared := TRUE;
	546
[1679]	547	if (Shared and (UserTemplateAccessLevel = taEditor)) then
[456]	548	begin
	549	cbEditShared.Checked := TRUE;
	550	ActiveControl := tvShared;
	551	if SelShared then
	552	tvShared.Selected := SelNode
	553	else
	554	tvShared.Selected := tvShared.Items.GetFirstNode;
	555	end
	556	else
[1679]	557	if (not SelShared) and (assigned(SelNode)) then
	558	tvPersonal.Selected := SelNode;
	559	if (NewTemplate) then
[456]	560	begin
	561	btnNewClick(frmTemplateEditor);
[1679]	562	if (CopiedText <> '') then
[456]	563	begin
	564	TTemplate(FBtnNewNode.Data).Boilerplate := CopiedText;
	565	ShowInfo(FBtnNewNode);
	566	end;
	567	end;
	568	ShowModal;
	569	end;
	570	finally
	571	frmTemplateEditor.Free;
	572	end;
	573	end;
	574
	575	procedure TfrmTemplateEditor.btnNewClick(Sender: TObject);
	576	var
	577	idx: integer;
	578	Tmp, Owner: TTemplate;
	579	Node, PNode: TTreeNode;
	580	ownr: string;
	581	ok: boolean;
	582	ACheckBox: TCheckBox;
	583
	584	begin
[1679]	585	if ((assigned(FCurTree)) and (assigned(FCurTree.Selected))) then
[456]	586	begin
[1679]	587	if (FCurTree = tvShared) and (FCanEditShared) then
[456]	588	ok := TRUE
	589	else
[1679]	590	if (FCurTree = tvPersonal) and (FCanEditPersonal) then
	591	ok := TRUE
	592	else
	593	ok := FALSE;
	594	if (ok) then
[456]	595	begin
	596	Node := FCurTree.Selected;
	597	PNode := Node;
[1679]	598	if (TTemplate(Node.Data).RealType = ttDoc) then
[456]	599	PNode := Node.Parent;
	600	if CanClone(PNode) then
	601	begin
	602	Clone(PNode);
	603	Owner := TTemplate(PNode.Data);
	604	if assigned(Owner) and Owner.CanModify then
	605	begin
	606	if Node = PNode then
	607	idx := 0
	608	else
	609	idx := Owner.Items.IndexOf(Node.Data) + 1;
[1679]	610	if (FCurTree = tvShared) then
	611	begin
	612	ownr := '';
	613	ACheckBox := cbShHide;
	614	end
[456]	615	else
[1679]	616	begin
	617	ownr := IntToStr(User.DUZ);
	618	ACheckBox := cbPerHide;
	619	end;
[456]	620	if FImportingFromXML then
	621	begin
	622	Tmp := TTemplate.CreateFromXML(FXMLTemplateElement, ownr);
	623	ACheckBox.Checked := ACheckBox.Checked and Tmp.Active;
	624	end
	625	else
	626	begin
[1679]	627	Tmp := TTemplate.Create('0^T^A^' + NewTemplateName + '^^^' + ownr);
[456]	628	Tmp.BackupItems;
	629	Templates.AddObject(Tmp.ID, Tmp);
	630	end;
	631	btnApply.Enabled := TRUE;
[1679]	632	if (idx >= Owner.Items.Count) then
[456]	633	Owner.Items.Add(Tmp)
	634	else
	635	Owner.Items.Insert(idx, Tmp);
	636	Resync([Owner]);
	637	Node := FCurTree.Selected;
[1679]	638	if (Node.Data <> Tmp) then
[456]	639	begin
[1679]	640	if (TTemplate(Node.Data).RealType = ttDoc) then
[456]	641	Node := Node.GetNextSibling
	642	else
	643	begin
	644	Node.Expand(FALSE);
	645	Node := Node.GetFirstChild;
	646	end;
	647	FCurTree.Selected := Node;
	648	end;
	649	FBtnNewNode := Node;
[1679]	650	if (FFirstShow) then
[456]	651	FFocusName := TRUE
	652	else
	653	begin
	654	edtName.SetFocus;
	655	edtName.SelectAll;
	656	end;
	657	end;
	658	end;
	659	end;
	660	end;
	661	end;
	662
	663	procedure TfrmTemplateEditor.btnApplyClick(Sender: TObject);
	664	begin
[1679]	665	if (ScanNames) then
[456]	666	begin
	667	SaveAllTemplates;
	668	BtnApply.Enabled := BackupDiffers;
	669	if not BtnApply.Enabled then
	670	UnlockAllTemplates;
	671	end;
	672	end;
	673
	674	procedure TfrmTemplateEditor.FormCreate(Sender: TObject);
	675	begin
[1679]	676	SetFormPosition(Self);
[456]	677	ResizeAnchoredFormToFont(self);
	678	//Now fix everything the resize messed up
	679	lblLines.Width := cbLock.Left - lblLines.Left - 15;
	680	sbPerDelete.Left := pnlPersonalBottom.ClientWidth - sbPerDelete.Width - 1;
	681	sbPerDown.Left := sbPerDelete.Left - sbPerDown.Width - 2;
	682	sbPerUp.Left := sbPerDown.Left - sbPerUp.Width - 2;
	683	cbPerHide.Width := sbPerUp.Left - 3;
	684	btnPerFind.Left := pnlPerSearch.ClientWidth - btnPerFind.Width;
	685
	686	FSavePause := Application.HintHidePause;
[1679]	687	Application.HintHidePause := FSavePause * 2;
[456]	688	if InteractiveRemindersActive then
	689	begin
	690	QuickCopy(GetTemplateAllowedReminderDialogs, cbxRemDlgs.Items);
	691	FCanDoReminders := (cbxRemDlgs.Items.Count > 0);
	692	end
	693	else
	694	FCanDoReminders := FALSE;
	695
	696	QuickCopy(GetAllActiveCOMObjects, cbxCOMObj.Items);
	697	FCanDoCOMObjects := (cbxCOMObj.Items.Count > 0);
	698
	699	FUpdating := TRUE;
	700	FFirstShow := TRUE;
	701
[1679]	702	FTreeControl[ttShared, tcDel] := sbShDelete;
	703	FTreeControl[ttShared, tcUp] := sbShUp;
	704	FTreeControl[ttShared, tcDown] := sbShDown;
	705	FTreeControl[ttShared, tcLbl] := lblCopy;
	706	FTreeControl[ttShared, tcCopy] := sbCopyRight;
	707	FTreeControl[ttPersonal, tcDel] := sbPerDelete;
	708	FTreeControl[ttPersonal, tcUp] := sbPerUp;
[456]	709	FTreeControl[ttPersonal, tcDown] := sbPerDown;
[1679]	710	FTreeControl[ttPersonal, tcLbl] := lblCopy;
[456]	711	FTreeControl[ttPersonal, tcCopy] := sbCopyLeft;
	712	dmodShared.InEditor := TRUE;
	713	dmodShared.OnTemplateLock := TemplateLocked;
	714
	715	gbProperties.Caption := PropText;
	716	pnlShSearch.Visible := FALSE;
	717	pnlPerSearch.Visible := FALSE;
	718	FCanEditPersonal := TRUE;
	719
	720	{ Don't mess with the order of the following commands! }
	721	InitTrees;
	722
	723	tvPersonal.Selected := tvPersonal.Items.GetFirstNode;
	724
	725	ClearBackup;
	726
	727	cboOwner.SelText := MixedCase(User.Name);
	728	NewPersonalUser(User.DUZ);
	729
	730	cbEditShared.Visible := (UserTemplateAccessLevel = taEditor);
	731	FCanEditShared := FALSE;
	732	SharedEditing;
	733
	734	HideControls;
	735
	736	lblCopy.AutoSize := TRUE;
	737	lblCopy.AutoSize := FALSE; // resets height based on font
	738	lblCopy.Width := pnlCopyBtns.Width + splMiddle.Width;
	739	MoveCopyButtons;
	740
	741	cbShHide.Checked := TRUE;
	742	cbPerHide.Checked := TRUE;
	743
	744	BtnApply.Enabled := BackupDiffers;
[1679]	745	//SetFormPosition(Self);
[456]	746	end;
	747
	748	procedure TfrmTemplateEditor.HideControls;
	749	begin
	750	sbCopyRight.Visible := FCanEditPersonal;
[1679]	751	if (not FCanEditPersonal) then
[456]	752	cbPerHide.Checked := TRUE;
	753	cbPerHide.Visible := FCanEditPersonal;
	754	sbPerDelete.Visible := FCanEditPersonal;
	755	sbPerUp.Visible := FCanEditPersonal;
	756	sbPerDown.Visible := FCanEditPersonal;
	757	tvPersonal.ReadOnly := not FCanEditPersonal;
	758	MoveCopyButtons;
	759	end;
	760
	761	procedure TfrmTemplateEditor.cboOwnerNeedData(Sender: TObject;
[1679]	762	const StartFrom: string; Direction, InsertAt: Integer);
[456]	763	begin
	764	// cboOwner.ForDataUse(SubSetOfTemplateOwners(StartFrom, Direction));
	765	end;
	766
	767	procedure TfrmTemplateEditor.cboOwnerChange(Sender: TObject);
	768	begin
	769	NewPersonalUser(cboOwner.ItemIEN);
	770	end;
	771
	772	procedure TfrmTemplateEditor.NewPersonalUser(UsrIEN: Int64);
	773	var
	774	NewEdit: boolean;
	775
	776	begin
	777	FCurrentPersonalUser := UsrIEN;
	778	NewEdit := (FCurrentPersonalUser = User.DUZ);
[1679]	779	if (FCanEditPersonal <> NewEdit) then
[456]	780	begin
	781	FCanEditPersonal := NewEdit;
	782	HideControls;
	783	end;
	784	end;
	785
	786	procedure TfrmTemplateEditor.tvPersonalExpanding(Sender: TObject;
	787	Node: TTreeNode; var AllowExpansion: Boolean);
	788	begin
	789	AllowExpansion := dmodShared.ExpandNode(tvPersonal, Node,
[1679]	790	FPersonalEmptyNodeCount, not cbPerHide.Checked);
	791	if (AllowExpansion and FInternalHiddenExpand) then
[456]	792	AllowExpansion := FALSE;
	793	end;
	794
	795	procedure TfrmTemplateEditor.tvSharedExpanding(Sender: TObject;
	796	Node: TTreeNode; var AllowExpansion: Boolean);
	797	begin
	798	AllowExpansion := dmodShared.ExpandNode(tvShared, Node,
[1679]	799	FSharedEmptyNodeCount, not cbShHide.Checked);
	800	if (AllowExpansion and FInternalHiddenExpand) then
[456]	801	AllowExpansion := FALSE;
	802	end;
	803
	804	procedure TfrmTemplateEditor.tvTreeGetImageIndex(Sender: TObject;
	805	Node: TTreeNode);
	806	begin
	807	Node.ImageIndex := dmodShared.ImgIdx(Node);
	808	end;
	809
	810	procedure TfrmTemplateEditor.tvTreeGetSelectedIndex(Sender: TObject;
	811	Node: TTreeNode);
	812	begin
	813	Node.SelectedIndex := dmodShared.ImgIdx(Node);
	814	end;
	815
	816	function TfrmTemplateEditor.IsTemplateLocked(Node: TTreeNode): boolean;
	817	var
	818	Template: TTemplate;
[1679]	819
[456]	820	begin
	821	Result := FALSE;
	822	if assigned(Node) then
	823	begin
	824	Template := TTemplate(Node.Data);
	825	if Template.AutoLock then
	826	Result := TRUE
	827	else
[1679]	828	if (Template.PersonalOwner = 0) then
[456]	829	begin
[1679]	830	if RootTemplate.IsLocked then
	831	Result := TRUE
	832	else
	833	begin
	834	Result := TTemplate(Node.Data).IsLocked;
	835	if (not Result) and assigned(Node.Parent) and
	836	(TTemplate(Node.Parent).PersonalOwner = 0) then
	837	Result := IsTemplateLocked(Node.Parent);
	838	end;
[456]	839	end;
	840	end;
	841	end;
	842
	843	procedure TfrmTemplateEditor.tvTreeChange(Sender: TObject;
	844	Node: TTreeNode);
	845	var
	846	ok, Something: boolean;
	847	Template: TTemplate;
	848
	849	begin
	850	ChangeTree(TTreeView(Sender));
	851	Something := assigned(Node);
	852	if Something then
	853	begin
	854	Template := TTemplate(Node.Data);
	855	Something := assigned(Template);
	856	if Something then
	857	begin
[1679]	858	if (Sender = tvPersonal) then
[456]	859	begin
	860	ok := FCanEditPersonal;
	861	if ok and (Template.PersonalOwner = 0) and IsTemplateLocked(Node) then
	862	ok := FALSE;
	863	end
	864	else
	865	ok := FCanEditShared;
	866	EnableControls(ok, (Template.RealType in AllTemplateRootTypes));
	867	ShowInfo(Node);
	868	end;
	869	end;
	870	if not Something then
	871	begin
	872	gbProperties.Caption := PropText;
	873	EnableControls(FALSE, FALSE);
	874	ShowInfo(nil);
	875	end;
	876	end;
	877
	878	procedure TfrmTemplateEditor.EnableControls(ok, Root: boolean);
	879	begin
	880	cbLock.Enabled := ok and (FCurTree = tvShared);
[1679]	881	if (ok and Root) then
[456]	882	begin
	883	ok := FALSE;
	884	lblName.Enabled := TRUE;
	885	edtName.Enabled := TRUE;
	886	reNotes.ReadOnly := FALSE;
	887	end
	888	else
	889	begin
	890	lblName.Enabled := ok;
	891	edtName.Enabled := ok;
	892	reNotes.ReadOnly := not ok;
	893	end;
	894	lblNotes.Enabled := (not reNotes.ReadOnly);
[829]	895	UpdateReadOnlyColorScheme(reNotes, reNotes.ReadOnly);
[456]	896	cbxType.Enabled := ok;
	897	lblType.Enabled := ok;
	898	lblRemDlg.Enabled := ok;
	899	cbxRemDlgs.Enabled := ok and FCanDoReminders;
	900	cbActive.Enabled := ok;
	901	cbExclude.Enabled := ok;
	902	cbDisplayOnly.Enabled := ok;
	903	cbFirstLine.Enabled := ok;
	904	cbOneItemOnly.Enabled := ok;
	905	cbHideDlgItems.Enabled := ok;
	906	cbHideItems.Enabled := ok;
	907	cbIndent.Enabled := ok;
	908	edtGap.Enabled := ok;
	909	udGap.Enabled := ok;
	910	udGap.Invalidate;
	911	lblLines.Enabled := ok;
	912	reBoil.ReadOnly := not ok;
[829]	913	UpdateReadOnlyColorScheme(reBoil, not ok);
[456]	914	lblLink.Enabled := ok;
	915	cbxLink.Enabled := ok;
	916	ok := ok and FCanDoCOMObjects;
	917	cbxCOMObj.Enabled := ok;
	918	lblCOMObj.Enabled := ok;
	919	edtCOMParam.Enabled := ok;
	920	lblCOMParam.Enabled := ok;
	921	UpdateInsertsDialogs;
	922	EnableNavControls;
	923	end;
	924
	925	procedure TfrmTemplateEditor.MoveCopyButtons;
	926	var
	927	tmpHeight: integer;
	928
	929	begin
	930	tmpHeight := tvShared.Height;
[1679]	931	dec(tmpHeight, lblCopy.Height);
	932	if (sbCopyLeft.Visible) then
	933	dec(tmpHeight, sbCopyLeft.Height + 5);
	934	if (sbCopyRight.Visible) then
	935	dec(tmpHeight, sbCopyRight.Height + 5);
[456]	936	tmpHeight := (tmpHeight div 2) + tvShared.Top;
	937	lblCopy.Top := tmpHeight;
[1679]	938	inc(tmpHeight, lblCopy.height + 5);
	939	if (sbCopyLeft.Visible) then
[456]	940	begin
	941	sbCopyLeft.Top := tmpHeight;
[1679]	942	inc(tmpHeight, sbCopyLeft.Height + 5);
[456]	943	end;
[1679]	944	if (sbCopyRight.Visible) then
[456]	945	sbCopyRight.Top := tmpHeight;
	946	end;
	947
[1679]	948	procedure TfrmTemplateEditor.splMainCanResize(Sender: TObject;
	949	var NewSize: Integer; var Accept: Boolean);
	950	begin
	951	inherited;
	952	if (pnlGroupBP.Height - (NewSize - splMain.Top) <= pnlGroupBP.Constraints.MinHeight) and (NewSize > splMain.Top) then begin
	953	//Moving Down
	954	Accept := False;
	955	NewSize := splMain.Top;
	956	end else Accept := True; //Moving Up
	957	end;
	958
[456]	959	procedure TfrmTemplateEditor.splMainMoved(Sender: TObject);
	960	begin
	961	MoveCopyButtons;
	962	end;
	963
[829]	964	procedure TfrmTemplateEditor.ShowGroupBoilerplate(Visible: boolean);
	965	begin
	966	pnlGroupBP.Visible := Visible;
	967	splBoil.Visible := Visible;
	968	if Visible then
	969	begin
	970	reBoil.Align := alTop;
	971	pnlGroupBP.Align := alClient;
	972	reBoil.Height := tmplEditorSplitterBoil;
	973	splBoil.Top := pnlGroupBP.Top - splBoil.Height;
	974	end
	975	else
	976	begin
	977	pnlGroupBP.Align := alBottom;
	978	reBoil.Align := alClient;
[1679]	979	pnlNotes.Constraints.MaxHeight := 0;
[829]	980	end;
	981	end;
	982
[456]	983	procedure TfrmTemplateEditor.ShowInfo(Node: TTreeNode);
	984	var
	985	OldUpdating, ClearName, ClearRB, ClearAll: boolean;
	986	Idx: TTypeIndex;
	987	CanDoCOM: boolean;
	988	lt: TTemplateLinkType;
	989	lts: string;
	990
	991	begin
	992	OldUpdating := FUpdating;
	993	FUpdating := TRUE;
	994	try
[1679]	995	if (assigned(Node)) then
[456]	996	begin
	997	FShowingTemplate := TTemplate(Node.Data);
	998	with FShowingTemplate do
	999	begin
	1000	ClearName := FALSE;
	1001	ClearRB := FALSE;
	1002	ClearAll := FALSE;
	1003	ShowTemplateType(TTemplate(Node.Data));
	1004	lt := GetLinkType(Node);
[1679]	1005	if (lt = ltNone) or (IsReminderDialog and (not (lt in [ltNone, ltTitle]))) then
[456]	1006	pnlLink.Visible := FALSE
	1007	else
	1008	begin
	1009	pnlLink.Visible := TRUE;
	1010	pnlLink.Tag := ord(lt);
	1011	case lt of
[1679]	1012	ltTitle: lts := 'Title';
	1013	ltConsult: lts := 'Consult Service';
[456]	1014	ltProcedure: lts := 'Procedure';
[1679]	1015	else lts := '';
[456]	1016	end;
	1017	cbxLink.Clear;
	1018	if lt = ltConsult then
	1019	begin
	1020	cbxLink.LongList := FALSE;
	1021	if not assigned(FConsultServices) then
	1022	begin
	1023	FConsultServices := TStringList.Create;
[829]	1024	FastAssign(LoadServiceListWithSynonyms(1), FConsultServices);
[456]	1025	SortByPiece(FConsultServices, U, 2);
	1026	end;
[829]	1027	FastAssign(FConsultServices, cbxLink.Items);
[456]	1028	end
	1029	else
	1030	begin
	1031	cbxLink.LongList := TRUE;
	1032	cbxLink.HideSynonyms := TRUE;
	1033	cbxLink.InitLongList(LinkName);
	1034	end;
	1035	cbxLink.SelectByID(LinkIEN);
	1036	lblLink.Caption := ' Associated ' + lts + ': ';
	1037	cbxLink.Caption := lblLink.Caption;
	1038	end;
	1039
	1040	edtName.Text := PrintName;
	1041	reNotes.Lines.Text := Description;
[1679]	1042	if (PersonalOwner = 0) and (FCurTree = tvShared) and (cbEditShared.Checked) then
[456]	1043	begin
	1044	cbLock.Checked := IsLocked;
	1045	if AutoLock then
	1046	cbLock.Enabled := FALSE;
	1047	end
	1048	else
	1049	begin
	1050	cbLock.Checked := IsTemplateLocked(Node);
	1051	cbLock.Enabled := FALSE;
	1052	end;
	1053	CanDoCom := FCanDoCOMObjects and (PersonalOwner = 0);
[1679]	1054	if (RealType in AllTemplateRootTypes) then
[456]	1055	begin
	1056	ClearRB := TRUE;
	1057	ClearAll := TRUE;
	1058	end
	1059	else
	1060	begin
	1061	case RealType of
	1062	ttDoc: begin
[1679]	1063	if IsReminderDialog then
	1064	Idx := tiRemDlg
	1065	else
	1066	if IsCOMObject then
	1067	Idx := tiCOMObj
	1068	else
	1069	Idx := tiTemplate;
	1070	end;
[456]	1071	ttGroup: begin
[1679]	1072	if (Dialog) then
	1073	Idx := tiDialog
	1074	else
	1075	Idx := tiGroup;
	1076	end;
[456]	1077	ttClass: Idx := tiFolder;
[1679]	1078	else Idx := tiNone;
[456]	1079	end;
	1080	FForceContainer := ((RealType in [ttGroup, ttClass]) and (Children <> tcNone));
	1081	cbxType.Items.Clear;
	1082	if not FForceContainer then
	1083	cbxType.Items.Add('Template');
	1084	cbxType.Items.Add('Folder');
	1085	cbxType.Items.Add('Group Template');
	1086	cbxType.Items.Add('Dialog');
	1087	if (not FForceContainer) then
	1088	begin
[1679]	1089	if (FCanDoReminders or CanDoCOM) then
[456]	1090	cbxType.Items.Add('Reminder Dialog');
[1679]	1091	if (CanDoCOM) then
[456]	1092	cbxType.Items.Add('COM Object');
	1093	end;
	1094	cbxType.ItemIndex := ForcedIdx[FForceContainer, Idx];
[1679]	1095	if (Idx = tiRemDlg) and FCanDoReminders then
[456]	1096	cbxRemDlgs.SelectByID(ReminderDialogIEN)
	1097	else
	1098	begin
	1099	lblRemDlg.Enabled := FALSE;
	1100	cbxRemDlgs.Enabled := FALSE;
	1101	cbxRemDlgs.ItemIndex := -1;
	1102	end;
	1103	if (Idx = tiCOMObj) and CanDoCOM then
	1104	begin
	1105	pnlCOM.Visible := TRUE;
	1106	cbxCOMObj.SelectByIEN(COMObject);
	1107	edtCOMParam.Text := COMParam;
	1108	end
	1109	else
	1110	begin
	1111	pnlCOM.Visible := FALSE;
	1112	cbxCOMObj.ItemIndex := -1;
	1113	edtCOMParam.Text := '';
	1114	end;
	1115	cbActive.Checked := Active;
[1679]	1116	if (RealType in [ttClass, ttGroup]) then
[456]	1117	cbHideItems.Checked := HideItems
	1118	else
	1119	begin
	1120	cbHideItems.Checked := FALSE;
	1121	cbHideItems.Enabled := FALSE;
	1122	end;
[1679]	1123	if ((RealType in [ttDoc, ttGroup]) and (assigned(Node.Parent)) and
	1124	(TTemplate(Node.Parent.Data).RealType = ttGroup) and
	1125	(not IsReminderDialog) and (not IsCOMObject)) then
[456]	1126	cbExclude.Checked := Exclude
	1127	else
	1128	begin
	1129	cbExclude.Checked := FALSE;
	1130	cbExclude.Enabled := FALSE;
	1131	end;
	1132	if dmodShared.InDialog(Node) and (not IsReminderDialog) and (not IsCOMObject) then
	1133	begin
	1134	cbDisplayOnly.Checked := DisplayOnly;
	1135	cbFirstLine.Checked := FirstLine;
	1136	end
	1137	else
	1138	begin
	1139	cbDisplayOnly.Checked := FALSE;
	1140	cbDisplayOnly.Enabled := FALSE;
	1141	cbFirstLine.Checked := FALSE;
	1142	cbFirstLine.Enabled := FALSE;
	1143	end;
[1679]	1144	if (RealType in [ttGroup, ttClass]) and (Children <> tcNone) and
[456]	1145	(dmodShared.InDialog(Node)) then
	1146	begin
	1147	cbOneItemOnly.Checked := OneItemOnly;
	1148	cbIndent.Checked := IndentItems;
[1679]	1149	if (RealType = ttGroup) and (Boilerplate <> '') then
[456]	1150	begin
	1151	cbHideDlgItems.Checked := HideDlgItems;
	1152	end
	1153	else
	1154	begin
	1155	cbHideDlgItems.Checked := FALSE;
	1156	cbHideDlgItems.Enabled := FALSE;
	1157	end;
	1158	end
	1159	else
	1160	begin
	1161	cbOneItemOnly.Checked := FALSE;
	1162	cbOneItemOnly.Enabled := FALSE;
	1163	cbHideDlgItems.Checked := FALSE;
	1164	cbHideDlgItems.Enabled := FALSE;
	1165	cbIndent.Checked := FALSE;
	1166	cbIndent.Enabled := FALSE;
	1167	end;
[1679]	1168	if (RealType = ttGroup) then
[456]	1169	edtGap.Text := IntToStr(Gap)
	1170	else
	1171	begin
	1172	edtGap.Text := '0';
	1173	edtGap.Enabled := FALSE;
	1174	udGap.Enabled := FALSE;
	1175	udGap.Invalidate;
	1176	lblLines.Enabled := FALSE;
	1177	end;
	1178	DisplayBoilerPlate(Node);
	1179	end;
	1180	end;
	1181	end
	1182	else
	1183	begin
	1184	ClearAll := TRUE;
	1185	ClearRB := TRUE;
	1186	ClearName := TRUE;
	1187	gbProperties.Caption := PropText;
	1188	end;
[1679]	1189	if (ClearName) then
[456]	1190	begin
	1191	edtName.Text := '';
	1192	reNotes.Clear;
	1193	end;
[1679]	1194	if (ClearRB) then
[456]	1195	begin
	1196	cbxType.ItemIndex := Ord(tiNone);
	1197	end;
[1679]	1198	if (ClearAll) then
[456]	1199	begin
	1200	cbActive.Checked := FALSE;
	1201	cbExclude.Checked := FALSE;
	1202	cbDisplayOnly.Checked := FALSE;
	1203	cbFirstLine.Checked := FALSE;
	1204	cbOneItemOnly.Checked := FALSE;
	1205	cbHideDlgItems.Checked := FALSE;
	1206	cbHideItems.Checked := FALSE;
	1207	cbIndent.Checked := FALSE;
	1208	edtGap.Text := '0';
	1209	reBoil.Clear;
[829]	1210	ShowGroupBoilerplate(False);
[456]	1211	pnlBoilerplateResize(Self);
	1212	pnlCOM.Visible := FALSE;
	1213	pnlLink.Visible := FALSE;
	1214	end;
[1679]	1215	if cbDisplayOnly.Enabled or
	1216	cbFirstLine.Enabled or
	1217	cbIndent.Enabled or
	1218	cbOneItemOnly.Enabled or
	1219	cbHideDlgItems.Enabled then
[456]	1220	gbDialogProps.Font.Color := clWindowText
	1221	else
	1222	gbDialogProps.Font.Color := clInactiveCaption;
	1223	finally
	1224	FUpdating := OldUpdating;
	1225	end;
	1226	end;
	1227
	1228	procedure TfrmTemplateEditor.pnlBoilerplateResize(Sender: TObject);
	1229	var
	1230	Max: integer;
	1231
	1232	begin
[1679]	1233	if (pnlGroupBP.Visible) and (pnlGroupBP.Height > (pnlBoilerplate.Height - 29)) then
[829]	1234	begin
[1679]	1235	pnlGroupBP.Height := pnlBoilerplate.Height - 29;
[829]	1236	end;
[456]	1237	if cbLongLines.checked then
	1238	Max := 240
	1239	else
[1679]	1240	Max := MAX_ENTRY_WIDTH - 1;
[456]	1241	LimitEditWidth(reBoil, Max);
	1242	LimitEditWidth(reNotes, MAX_ENTRY_WIDTH);
	1243	end;
	1244
	1245	procedure TfrmTemplateEditor.edtNameOldChange(Sender: TObject);
	1246	var
	1247	i: integer;
	1248	Template: TTemplate;
	1249	DoRefresh: boolean;
	1250
	1251	begin
[1679]	1252	if ((not FUpdating) and (assigned(FCurTree)) and (assigned(FCurTree.Selected))) then
[456]	1253	begin
	1254	if CanClone(FCurTree.Selected) then
	1255	begin
	1256	DoRefresh := Clone(FCurTree.Selected);
	1257	Template := TTemplate(FCurTree.Selected.Data);
	1258	if assigned(Template) and Template.CanModify then
	1259	begin
	1260	Template.PrintName := edtName.Text;
	1261	UpdateApply(Template);
[1679]	1262	for i := 0 to Template.Nodes.Count - 1 do
[456]	1263	TTreeNode(Template.Nodes.Objects[i]).Text := Template.PrintName;
[1679]	1264	if (DoRefresh) then
[456]	1265	begin
	1266	tvShared.Invalidate;
	1267	tvPersonal.Invalidate;
	1268	end;
	1269	end;
	1270	end;
	1271	end;
	1272	end;
	1273
	1274	procedure TfrmTemplateEditor.cbActiveClick(Sender: TObject);
	1275	var
	1276	i: integer;
	1277	Template: TTemplate;
	1278	Node: TTreeNode;
	1279
	1280	begin
[1679]	1281	if ((not FUpdating) and (assigned(FCurTree)) and (assigned(FCurTree.Selected))) then
[456]	1282	begin
	1283	if CanClone(FCurTree.Selected) then
	1284	begin
	1285	Clone(FCurTree.Selected);
	1286	Template := TTemplate(FCurTree.Selected.Data);
	1287	if assigned(Template) and Template.CanModify then
	1288	begin
	1289	Template.Active := cbActive.Checked;
	1290	UpdateApply(Template);
[1679]	1291	for i := 0 to Template.Nodes.Count - 1 do
[456]	1292	begin
	1293	Node := TTreeNode(Template.Nodes.Objects[i]);
	1294	Node.Cut := not Template.Active;
	1295	end;
[1679]	1296	if (FCurTree = tvShared) then
[456]	1297	begin
	1298	cbPerHideClick(Sender);
	1299	cbShHideClick(Sender);
	1300	end
	1301	else
	1302	begin
	1303	cbShHideClick(Sender);
	1304	cbPerHideClick(Sender);
	1305	end;
	1306	tvTreeChange(FCurTree, FCurTree.Selected);
	1307	EnableNavControls;
	1308	if cbActive.CanFocus then
	1309	cbActive.SetFocus;
	1310	end;
	1311	end;
	1312	end;
	1313	end;
	1314
	1315	procedure TfrmTemplateEditor.cbExcludeClick(Sender: TObject);
	1316	var
	1317	i: integer;
	1318	Template: TTemplate;
	1319	Node: TTreeNode;
	1320
	1321	begin
[1679]	1322	if ((not FUpdating) and (assigned(FCurTree)) and (assigned(FCurTree.Selected))) then
[456]	1323	begin
	1324	if CanClone(FCurTree.Selected) then
	1325	begin
	1326	Clone(FCurTree.Selected);
	1327	Template := TTemplate(FCurTree.Selected.Data);
	1328	if assigned(Template) and Template.CanModify then
	1329	begin
	1330	Template.Exclude := cbExclude.Checked;
	1331	UpdateApply(Template);
[1679]	1332	for i := 0 to Template.Nodes.Count - 1 do
[456]	1333	begin
	1334	Node := TTreeNode(Template.Nodes.Objects[i]);
	1335	Node.ImageIndex := dmodShared.ImgIdx(Node);
	1336	Node.SelectedIndex := dmodShared.ImgIdx(Node);
	1337	end;
	1338	tvShared.Invalidate;
	1339	tvPersonal.Invalidate;
	1340	end;
	1341	end;
	1342	end;
	1343	end;
	1344
	1345	procedure TfrmTemplateEditor.edtGapChange(Sender: TObject);
	1346	var
	1347	DoRefresh: boolean;
	1348	Template: TTemplate;
	1349
	1350	begin
[1679]	1351	if ((not FUpdating) and (assigned(FCurTree)) and (assigned(FCurTree.Selected))) then
[456]	1352	begin
	1353	if CanClone(FCurTree.Selected) then
	1354	begin
	1355	DoRefresh := Clone(FCurTree.Selected);
	1356	Template := TTemplate(FCurTree.Selected.Data);
	1357	if assigned(Template) and Template.CanModify then
	1358	begin
	1359	Template.Gap := StrToIntDef(edtGap.Text, 0);
	1360	UpdateApply(Template);
	1361	DisplayBoilerPlate(FCurTree.Selected);
[1679]	1362	if (DoRefresh) then
[456]	1363	begin
	1364	tvShared.Invalidate;
	1365	tvPersonal.Invalidate;
	1366	end;
	1367	end;
	1368	end;
	1369	end;
	1370	end;
	1371
	1372	function TfrmTemplateEditor.ChangeTree(NewTree: TTreeView): boolean;
	1373	var
	1374	i: TTemplateTreeControl;
	1375
	1376	begin
	1377	Result := FALSE;
	1378	tvShared.HideSelection := TRUE;
	1379	tvPersonal.HideSelection := TRUE;
[1679]	1380	if (NewTree <> FCurTree) then
[456]	1381	begin
	1382	Result := TRUE;
[1679]	1383	if (assigned(FCurTree)) then
[456]	1384	begin
	1385	for i := low(TTemplateTreeControl) to high(TTemplateTreeControl) do
	1386	FTreeControl[TTemplateTreeType(FCurTree.Tag), i].Enabled := FALSE;
	1387	end;
	1388	FCurTree := NewTree;
	1389	end;
[1679]	1390	if (assigned(FCurTree)) then
[456]	1391	begin
	1392	FCurTree.HideSelection := FALSE;
[1679]	1393	if (FCurTree = tvPersonal) and (Screen.ActiveControl = tvShared) then
[456]	1394	tvPersonal.SetFocus
	1395	else
[1679]	1396	if (FCurTree = tvShared) and (Screen.ActiveControl = tvPersonal) then
	1397	tvShared.SetFocus;
[456]	1398	end;
	1399	end;
	1400
	1401	procedure TfrmTemplateEditor.tvTreeEnter(Sender: TObject);
	1402	begin
[1679]	1403	if ((Sender is TTreeView) and (ChangeTree(TTreeView(Sender)))) then
[456]	1404	tvTreeChange(Sender, TTreeView(Sender).Selected);
	1405	end;
	1406
	1407	procedure TfrmTemplateEditor.tvTreeNodeEdited(Sender: TObject;
[1679]	1408	Node: TTreeNode; var S: string);
[456]	1409	begin
	1410	FUpdating := TRUE;
	1411	try
	1412	edtName.Text := S;
	1413	finally
	1414	FUpdating := FALSE;
	1415	end;
	1416	edtNameOldChange(edtName);
	1417	end;
	1418
	1419	procedure TfrmTemplateEditor.cbShHideClick(Sender: TObject);
	1420	var
	1421	Node: TTreeNode;
	1422
	1423	begin
	1424	Node := tvShared.Items.GetFirstNode;
	1425	while assigned(Node) do
	1426	begin
	1427	dmodShared.Resync(Node, not cbShHide.Checked, FSharedEmptyNodeCount);
	1428	Node := Node.getNextSibling;
	1429	end;
	1430	tvTreeChange(tvShared, tvShared.Selected);
	1431	EnableNavControls;
	1432	end;
	1433
	1434	procedure TfrmTemplateEditor.cbPerHideClick(Sender: TObject);
	1435	begin
	1436	dmodShared.Resync(tvPersonal.Items.GetFirstNode, not cbPerHide.Checked,
[1679]	1437	FPersonalEmptyNodeCount);
[456]	1438	tvTreeChange(tvPersonal, tvPersonal.Selected);
	1439	EnableNavControls;
	1440	end;
	1441
	1442	procedure TfrmTemplateEditor.DisplayBoilerplate(Node: TTreeNode);
	1443	var
	1444	OldUpdating, ItemOK, BPOK, LongLines: boolean;
	1445	i: integer;
	1446	TmpSL: TStringList;
	1447
	1448	begin
	1449	OldUpdating := FUpdating;
	1450	FUpdating := TRUE;
	1451	try
	1452	pnlBoilerplateResize(pnlBoilerplate);
	1453	reBoil.Clear;
	1454	ItemOK := FALSE;
	1455	BPOK := TRUE;
	1456	with Node, TTemplate(Node.Data) do
	1457	begin
[1679]	1458	if (RealType in [ttDoc, ttGroup]) then
[456]	1459	begin
	1460	TmpSL := TStringList.Create;
	1461	try
[1679]	1462	if (RealType = ttGroup) and (not reBoil.ReadOnly) then
[456]	1463	begin
	1464	ItemOK := TRUE;
	1465	TmpSL.Text := Boilerplate;
	1466	reGroupBP.Clear;
	1467	reGroupBP.SelText := FullBoilerplate;
	1468	end
	1469	else
	1470	TmpSL.Text := FullBoilerplate;
	1471	LongLines := FALSE;
[1679]	1472	for i := 0 to TmpSL.Count - 1 do
[456]	1473	begin
	1474	if length(TmpSL[i]) > MAX_ENTRY_WIDTH then
	1475	begin
	1476	LongLines := TRUE;
	1477	break;
	1478	end;
	1479	end;
	1480	cbLongLines.Checked := LongLines;
	1481	reBoil.SelText := TmpSL.Text;
	1482	finally
	1483	TmpSL.Free;
	1484	end;
	1485	end
	1486	else
	1487	begin
	1488	reBoil.ReadOnly := TRUE;
[829]	1489	UpdateReadOnlyColorScheme(reBoil, TRUE);
[456]	1490	UpdateInsertsDialogs;
	1491	end;
[829]	1492	ShowGroupBoilerplate(ItemOK);
[1679]	1493	if (not ItemOK) and (IsReminderDialog or IsCOMObject) then
[456]	1494	BPOK := FALSE;
	1495	pnlBoilerplateResize(Self);
	1496	pnlBoilerplate.Visible := BPOK;
	1497	lblBoilerplate.Visible := BPOK;
	1498	pnlCOM.Visible := (not BPOK) and IsCOMObject;
	1499	end;
	1500	finally
	1501	FUpdating := OldUpdating;
	1502	end;
	1503	end;
	1504
	1505	procedure TfrmTemplateEditor.FormDestroy(Sender: TObject);
	1506	begin
	1507	KillObj(@FConsultServices);
	1508	Application.HintHidePause := FSavePause;
[1679]	1509	if (assigned(frmTemplateObjects)) then
[456]	1510	begin
	1511	frmTemplateObjects.Free;
	1512	frmTemplateObjects := nil;
	1513	end;
[1679]	1514	if (assigned(frmTemplateFields)) then
[456]	1515	begin
	1516	frmTemplateFields.Free;
	1517	frmTemplateFields := nil;
	1518	end;
[829]	1519	//---------- CQ #8665 - RV --------
	1520	//KillObj(@FPersonalObjects);
	1521	if (assigned(uPersonalObjects)) then
	1522	begin
	1523	KillObj(@uPersonalObjects);
	1524	uPersonalObjects.Free;
	1525	uPersonalObjects := nil;
	1526	end;
	1527	// ---- end CQ #8665 -------------
[456]	1528	dmodShared.OnTemplateLock := nil;
	1529	dmodShared.InEditor := FALSE;
	1530	RemoveAllNodes;
	1531	ClearBackup;
	1532	UnlockAllTemplates;
	1533	dmodShared.Reload;
	1534	end;
	1535
	1536	procedure TfrmTemplateEditor.sbMoveUpClick(Sender: TObject);
	1537	var
	1538	idx: integer;
	1539	ChangeLevel: boolean;
	1540	ParentsParent, ParentNode, Node: TTreeNode;
	1541	NodeTemplate, ParentTemplate, Template: TTemplate;
	1542	Hide, First, ok: boolean;
	1543
	1544	begin
[1679]	1545	if ((assigned(FCurTree)) and (assigned(FCurTree.Selected)) and
	1546	(assigned(FCurTree.Selected.Parent))) then
[456]	1547	begin
	1548	Node := FCurTree.Selected;
	1549	NodeTemplate := TTemplate(Node.Data);
	1550	ParentNode := Node.Parent;
	1551	Template := TTemplate(ParentNode.Data);
	1552	idx := Template.Items.IndexOf(NodeTemplate);
	1553	ChangeLevel := (idx < 1);
[1679]	1554	if (not ChangeLevel) then
[456]	1555	begin
[1679]	1556	if (TTemplateTreeType(TBitBtn(Sender).Tag) = ttShared) then
[456]	1557	Hide := cbShHide.Checked
	1558	else
	1559	Hide := cbPerHide.Checked;
	1560	First := TRUE;
[1679]	1561	while (idx > 0) do
[456]	1562	begin
	1563	if First then
	1564	begin
	1565	ok := FALSE;
	1566	First := FALSE;
	1567	if CanClone(ParentNode) then
	1568	begin
[1679]	1569	if (Clone(ParentNode)) then
[456]	1570	Template := TTemplate(ParentNode.Data);
	1571	if Template.CanModify then
	1572	ok := TRUE;
	1573	end;
	1574	end
	1575	else
	1576	ok := TRUE;
	1577	if ok then
	1578	begin
[1679]	1579	Template.Items.Exchange(idx - 1, idx);
	1580	if (Hide and (not TTemplate(Template.Items[idx]).Active)) then
[456]	1581	begin
	1582	dec(idx);
	1583	ChangeLevel := (idx < 1);
	1584	end
	1585	else
	1586	idx := 0;
	1587	end
	1588	else
	1589	idx := 0;
	1590	end;
	1591	end;
[1679]	1592	if (ChangeLevel) then
[456]	1593	begin
	1594	ParentsParent := ParentNode.Parent;
[1679]	1595	if (assigned(ParentsParent)) then
[456]	1596	begin
	1597	ParentTemplate := TTemplate(ParentsParent.Data);
[1679]	1598	if (ParentTemplate.Items.IndexOf(NodeTemplate) >= 0) then
[456]	1599	InfoBox(ParentsParent.Text + ' already contains the ' +
	1600	NodeTemplate.PrintName + ' template.',
	1601	'Error', MB_OK or MB_ICONERROR)
	1602	else
	1603	begin
	1604	if CanClone(ParentNode) then
	1605	begin
[1679]	1606	if (Clone(ParentNode)) then
[456]	1607	Template := TTemplate(ParentNode.Data);
	1608	if Template.CanModify and CanClone(ParentsParent) then
	1609	begin
[1679]	1610	if (Clone(ParentsParent)) then
[456]	1611	ParentTemplate := TTemplate(ParentsParent.Data);
	1612	if ParentTemplate.CanModify then
	1613	begin
	1614	Template.Items.Delete(idx);
	1615	idx := ParentTemplate.Items.IndexOf(Template);
[1679]	1616	if (idx >= 0) then
[456]	1617	begin
	1618	ParentTemplate.Items.Insert(idx, NodeTemplate);
	1619	Resync([ParentTemplate, Template]);
	1620	btnApply.Enabled := TRUE;
	1621	end;
	1622	end;
	1623	end;
	1624	end;
	1625	end;
	1626	end;
	1627	end
	1628	else
	1629	begin
	1630	Resync([Template]);
	1631	btnApply.Enabled := TRUE;
	1632	end;
	1633	end;
	1634	end;
	1635
	1636	procedure TfrmTemplateEditor.sbMoveDownClick(Sender: TObject);
	1637	var
	1638	max, idx: integer;
	1639	ChangeLevel: boolean;
	1640	ParentsParent, ParentNode, Node: TTreeNode;
	1641	NodeTemplate, ParentTemplate, Template: TTemplate;
	1642	Hide, First, ok: boolean;
	1643
	1644	begin
[1679]	1645	if ((assigned(FCurTree)) and (assigned(FCurTree.Selected)) and
	1646	(assigned(FCurTree.Selected.Parent))) then
[456]	1647	begin
	1648	Node := FCurTree.Selected;
	1649	NodeTemplate := TTemplate(Node.Data);
	1650	ParentNode := Node.Parent;
	1651	Template := TTemplate(ParentNode.Data);
	1652	idx := Template.Items.IndexOf(NodeTemplate);
[1679]	1653	max := Template.Items.Count - 1;
[456]	1654	ChangeLevel := (idx >= max);
[1679]	1655	if (not ChangeLevel) then
[456]	1656	begin
[1679]	1657	if (TTemplateTreeType(TBitBtn(Sender).Tag) = ttShared) then
[456]	1658	Hide := cbShHide.Checked
	1659	else
	1660	Hide := cbPerHide.Checked;
	1661	First := TRUE;
[1679]	1662	while (idx < max) do
[456]	1663	begin
	1664	if First then
	1665	begin
	1666	ok := FALSE;
	1667	First := FALSE;
	1668	if CanClone(ParentNode) then
	1669	begin
[1679]	1670	if (Clone(ParentNode)) then
[456]	1671	Template := TTemplate(ParentNode.Data);
	1672	if Template.CanModify then
	1673	ok := TRUE;
	1674	end;
	1675	end
	1676	else
	1677	ok := TRUE;
	1678	if ok then
	1679	begin
[1679]	1680	Template.Items.Exchange(idx, idx + 1);
	1681	if (Hide and (not TTemplate(Template.Items[idx]).Active)) then
[456]	1682	begin
	1683	inc(idx);
	1684	ChangeLevel := (idx >= max);
	1685	end
	1686	else
	1687	idx := max;
	1688	end
	1689	else
	1690	idx := max;
	1691	end;
	1692	end;
[1679]	1693	if (ChangeLevel) then
[456]	1694	begin
	1695	ParentsParent := ParentNode.Parent;
[1679]	1696	if (assigned(ParentsParent)) then
[456]	1697	begin
	1698	ParentTemplate := TTemplate(ParentsParent.Data);
[1679]	1699	if (ParentTemplate.Items.IndexOf(NodeTemplate) >= 0) then
[456]	1700	InfoBox(ParentsParent.Text + ' already contains the ' +
	1701	NodeTemplate.PrintName + ' template.',
	1702	'Error', MB_OK or MB_ICONERROR)
	1703	else
	1704	begin
	1705	if CanClone(ParentNode) then
	1706	begin
[1679]	1707	if (Clone(ParentNode)) then
[456]	1708	Template := TTemplate(ParentNode.Data);
	1709	if Template.CanModify and CanClone(ParentsParent) then
	1710	begin
[1679]	1711	if (Clone(ParentsParent)) then
[456]	1712	ParentTemplate := TTemplate(ParentsParent.Data);
	1713	if ParentTemplate.CanModify then
	1714	begin
	1715	Template.Items.Delete(idx);
	1716	idx := ParentTemplate.Items.IndexOf(Template);
[1679]	1717	if (idx >= 0) then
[456]	1718	begin
[1679]	1719	if (idx = (ParentTemplate.Items.Count - 1)) then
[456]	1720	ParentTemplate.Items.Add(NodeTemplate)
	1721	else
[1679]	1722	ParentTemplate.Items.Insert(idx + 1, NodeTemplate);
[456]	1723	Resync([ParentTemplate, Template]);
	1724	btnApply.Enabled := TRUE;
	1725	end;
	1726	end;
	1727	end;
	1728	end;
	1729	end;
	1730	end;
	1731	end
	1732	else
	1733	begin
	1734	Resync([Template]);
	1735	btnApply.Enabled := TRUE;
	1736	end;
	1737	end;
	1738	end;
	1739
	1740	procedure TfrmTemplateEditor.sbDeleteClick(Sender: TObject);
	1741	var
	1742	PNode, Node: TTreeNode;
	1743	Template, Parent: TTemplate;
	1744	DoIt: boolean;
	1745	Answer: Word;
	1746
	1747	begin
[1679]	1748	if ((assigned(FCurTree)) and (assigned(FCurTree.Selected)) and
	1749	(assigned(FCurTree.Selected.Parent))) then
[456]	1750	begin
	1751	Node := FCurTree.Selected;
	1752	Template := TTemplate(Node.Data);
	1753	PNode := Node.Parent;
	1754	Parent := TTemplate(PNode.Data);
[1679]	1755	if (AutoDel(Template)) then
[456]	1756	DoIt := TRUE
	1757	else
[1679]	1758	if (Template.Active) and (cbActive.Checked) then
	1759	begin
	1760	DoIt := FALSE;
	1761	Answer := MessageDlg('Once you delete a template you may not be able to retrieve it.' + CRLF +
	1762	'Rather than deleting, you may want to inactivate a template instead.' + CRLF +
	1763	'You may inactivate this template by pressing the Ignore button now.' + CRLF +
	1764	'Are you sure you want to delete the "' + Node.Text +
	1765	'" Template?', mtConfirmation, [mbYes, mbNo, mbIgnore], 0);
	1766	if (Answer = mrYes) then
	1767	DoIt := TRUE
	1768	else
	1769	if (Answer = mrIgnore) then
	1770	cbActive.Checked := FALSE;
	1771	end
[456]	1772	else
[1679]	1773	DoIt := InfoBox('Are you sure you want to delete the "' + Node.Text +
	1774	'" Template?', 'Confirmation', MB_YESNO or MB_ICONQUESTION) = IDYES;
	1775	if (DoIt and CanClone(PNode)) then
[456]	1776	begin
[1679]	1777	if (Clone(PNode)) then
[456]	1778	Parent := TTemplate(PNode.Data);
	1779	if assigned(Parent) and Parent.CanModify then
	1780	begin
	1781	btnApply.Enabled := TRUE;
	1782	Parent.RemoveChild(Template);
	1783	MarkDeleted(Template);
	1784	Resync([Parent]);
	1785	tvTreeChange(FCurTree, FCurTree.Selected);
	1786	end;
	1787	end;
	1788	end;
	1789	end;
	1790
	1791	procedure TfrmTemplateEditor.EnableNavControls;
	1792	var
	1793	i: TTemplateTreeControl;
	1794	AllowUp, AllowDown, AllowSet: boolean;
	1795	Node: TTreeNode;
	1796	Tree: TTemplateTreeType;
	1797	Curok: boolean;
	1798	OldActiveControl: TControl;
	1799	begin
[1679]	1800	if (Assigned(FCurTree)) then
[456]	1801	begin
	1802	Tree := TTemplateTreeType(FCurTree.Tag);
	1803	Node := FCurTree.Selected;
[1679]	1804	if (Assigned(Node)) then
[456]	1805	Curok := (TTemplate(Node.Data).RealType in [ttDoc, ttGroup, ttClass])
	1806	else
	1807	Curok := FALSE;
[1679]	1808	if (Curok) then
[456]	1809	begin
	1810	OldActiveControl := ActiveControl;
	1811	FTreeControl[Tree, tcDel].Enabled := TRUE;
	1812	AllowSet := FALSE;
[1679]	1813	if (Node.Index > 0) then
[456]	1814	AllowUp := TRUE
	1815	else
	1816	begin
	1817	AllowUp := AllowMove(Node.Parent.Parent, Node);
	1818	AllowSet := TRUE;
	1819	end;
	1820	FTreeControl[Tree, tcUp].Enabled := AllowUp;
	1821	AllowDown := AllowUp;
[1679]	1822	if (Node.Index < (Node.Parent.Count - 1)) then
[456]	1823	AllowDown := TRUE
	1824	else
	1825	begin
[1679]	1826	if (not AllowSet) then
[456]	1827	AllowDown := AllowMove(Node.Parent.Parent, Node);
	1828	end;
	1829	FTreeControl[Tree, tcDown].Enabled := AllowDown;
	1830	if not AllowUp and (OldActiveControl = FTreeControl[Tree, tcUp]) then
	1831	(FTreeControl[Tree, tcDown] as TWinControl).SetFocus;
	1832	if not AllowDown and (OldActiveControl = FTreeControl[Tree, tcDown]) then
	1833	(FTreeControl[Tree, tcUp] as TWinControl).SetFocus;
[1679]	1834	FTreeControl[Tree, tcCopy].Enabled := FTreeControl[TTemplateTreeType(1 - ord(Tree)), tcDel].Visible;
	1835	if (FTreeControl[Tree, tcCopy].Enabled) then
[456]	1836	begin
[1679]	1837	if (Tree = ttShared) then
[456]	1838	Node := tvPersonal.Selected
	1839	else
	1840	Node := tvShared.Selected;
[1679]	1841	if (assigned(Node)) then
[456]	1842	begin
[1679]	1843	if (TTemplate(Node.Data).RealType = ttDoc) then
[456]	1844	Node := Node.Parent;
	1845	FTreeControl[Tree, tcCopy].Enabled := AllowMove(Node, FCurTree.Selected);
	1846	end
	1847	else
	1848	FTreeControl[Tree, tcCopy].Enabled := FALSE;
	1849	end;
	1850	FTreeControl[Tree, tcLbl].Enabled := FTreeControl[Tree, tcCopy].Enabled;
	1851	end
	1852	else
	1853	begin
	1854	for i := low(TTemplateTreeControl) to high(TTemplateTreeControl) do
	1855	FTreeControl[Tree, i].Enabled := FALSE;
	1856	end;
[1679]	1857	if (FCurTree = tvShared) and (FCanEditShared) then
[456]	1858	btnNew.Enabled := TRUE
	1859	else
[1679]	1860	if (FCurTree = tvPersonal) and (FCanEditPersonal) then
	1861	btnNew.Enabled := TRUE
	1862	else
	1863	btnNew.Enabled := FALSE;
[456]	1864	end
	1865	else
	1866	btnNew.Enabled := FALSE;
	1867	end;
	1868
	1869	procedure TfrmTemplateEditor.tvTreeDragging(Sender: TObject;
	1870	Node: TTreeNode; var CanDrag: Boolean);
	1871
	1872	begin
	1873	CanDrag := (TTemplate(Node.Data).RealType in [ttDoc, ttGroup, ttClass]);
[1679]	1874	if (CanDrag) then
[456]	1875	FDragNode := Node
	1876	else
	1877	FDragNode := nil;
	1878	end;
	1879
	1880	procedure TfrmTemplateEditor.tvTreeDragOver(Sender, Source: TObject; X,
	1881	Y: Integer; State: TDragState; var Accept: Boolean);
	1882	var
	1883	TmpNode: TTreeNode;
	1884	Tree: TTreeView;
	1885
	1886	begin
	1887	FDropNode := nil;
	1888	Accept := FALSE;
[1679]	1889	if (Source is TTreeView) and (assigned(FDragNode)) then
[456]	1890	begin
	1891	Tree := TTreeView(Sender);
[1679]	1892	FDropNode := Tree.GetNodeAt(X, Y);
	1893	if (((Tree = tvShared) and (FCanEditShared)) or
	1894	((Tree = tvPersonal) and (FCanEditPersonal))) then
[456]	1895	begin
[1679]	1896	if (assigned(FDropNode)) then
[456]	1897	begin
	1898	FDropInto := (TTemplate(FDropNode.Data).RealType in AllTemplateFolderTypes);
[1679]	1899	if (FDropInto) then
[456]	1900	TmpNode := FDropNode
	1901	else
	1902	TmpNode := FDropNode.Parent;
	1903	Accept := AllowMove(TmpNode, FDragNode);
	1904	end;
	1905	end;
	1906	end;
	1907	end;
	1908
	1909	procedure TfrmTemplateEditor.tvTreeDragDrop(Sender, Source: TObject; X,
	1910	Y: Integer);
	1911	var
	1912	Src, Template, Item: TTemplate;
	1913	SIdx, idx: integer;
	1914	TmpNode: TTreeNode;
	1915
	1916	begin
[1679]	1917	if (assigned(FDragNode)) and (assigned(FDropNode)) and (FDragNode <> FDropNode) then
[456]	1918	begin
	1919	Item := TTemplate(FDragNode.Data);
[1679]	1920	if (FDropInto) then
[456]	1921	begin
	1922	TmpNode := FDropNode;
	1923	idx := 0;
	1924	end
	1925	else
	1926	begin
	1927	TmpNode := FDropNode.Parent;
	1928	idx := TTemplate(FDropNode.Parent.Data).Items.IndexOf(FDropNode.Data);
	1929	end;
[1679]	1930	if (AllowMove(TmpNode, FDragNode) and (idx >= 0)) then
[456]	1931	begin
	1932	Template := TTemplate(TmpNode.Data);
[1679]	1933	if (Template <> FDragNode.Parent.Data) and
[456]	1934	(Template.Items.IndexOf(Item) >= 0) then
	1935	InfoBox(Template.PrintName + ' already contains the ' +
	1936	Item.PrintName + ' template.',
	1937	'Error', MB_OK or MB_ICONERROR)
	1938	else
	1939	begin
	1940	Src := TTemplate(FDragNode.Parent.Data);
	1941	Sidx := Src.Items.IndexOf(Item);
	1942	if CanClone(TmpNode) then
	1943	begin
[1679]	1944	if (Clone(TmpNode)) then
[456]	1945	Template := TTemplate(TmpNode.Data);
	1946	if assigned(Template) and Template.CanModify then
	1947	begin
[1679]	1948	if (Sidx >= 0) and (FDragNode.TreeView = FDropNode.TreeView) and
[456]	1949	(not FCopying) then // if same tree delete source
	1950	begin
	1951	if CanClone(FDragNode.Parent) then
	1952	begin
[1679]	1953	if (Clone(FDragNode.Parent)) then
[456]	1954	Src := TTemplate(FDragNode.Parent.Data);
	1955	if assigned(Src) and Src.CanModify then
	1956	begin
	1957	Src.Items.Delete(Sidx);
[1679]	1958	if (Template = Src) then
[456]	1959	Src := nil;
	1960	end
	1961	else
	1962	Src := nil;
	1963	end
	1964	else
	1965	Src := nil;
	1966	end
	1967	else
	1968	Src := nil;
[1679]	1969	if (idx > 0) then
[456]	1970	idx := TTemplate(FDropNode.Parent.Data).Items.IndexOf(FDropNode.Data);
	1971	Template.Items.Insert(idx, Item);
[1679]	1972	if (TTreeView(FDropNode.TreeView) = tvShared) then
[456]	1973	begin
	1974	Item.PersonalOwner := 0;
	1975	tvPersonal.Invalidate;
	1976	end;
	1977	TTreeView(FDragNode.TreeView).Selected := FDragNode;
	1978	TTreeView(FDragNode.TreeView).SetFocus;
	1979	Resync([Src, Template]);
	1980	btnApply.Enabled := TRUE;
	1981	end;
	1982	end;
	1983	end;
	1984	end;
	1985	end;
	1986	end;
	1987
	1988	procedure TfrmTemplateEditor.Resync(const Templates: array of TTemplate);
	1989	var
	1990	i, j: integer;
	1991	NodeList: TStringList;
	1992	TemplateList: TStringList;
	1993	Node: TTreeNode;
	1994	tmpl: TTemplate;
	1995	NodeID: string;
	1996
	1997	begin
	1998	NodeList := TStringList.Create;
	1999	try
	2000	TemplateList := TStringList.Create;
	2001	try
	2002	for i := low(Templates) to high(Templates) do
	2003	begin
	2004	tmpl := Templates[i];
[1679]	2005	if (assigned(tmpl)) then
[456]	2006	begin
[1679]	2007	for j := 0 to tmpl.Nodes.Count - 1 do
[456]	2008	begin
	2009	Node := TTreeNode(tmpl.Nodes.Objects[j]);
[1679]	2010	if (NodeList.IndexOfObject(Node) < 0) then
[456]	2011	begin
	2012	NodeID := IntToStr(Node.Level);
[1679]	2013	NodeID := copy('000', 1, 4 - length(NodeID)) + NodeID + U + tmpl.Nodes[j];
	2014	TemplateList.AddObject(NodeID, tmpl);
	2015	NodeList.AddObject(NodeId, Node);
[456]	2016	end;
	2017	end;
	2018	end;
	2019	end;
	2020
	2021	{ By Sorting by Node Level, we prevent a Resync
	2022	of nodes deeper within the heirchary }
	2023
	2024	NodeList.Sort;
	2025
[1679]	2026	for i := 0 to NodeList.Count - 1 do
[456]	2027	begin
	2028	NodeID := NodeList[i];
	2029	Node := TTreeNode(NodeList.Objects[i]);
	2030	j := TemplateList.IndexOf(NodeID);
[1679]	2031	if (j >= 0) then
[456]	2032	begin
	2033	tmpl := TTemplate(TemplateList.Objects[j]);
[1679]	2034	NodeID := Piece(NodeID, U, 2);
	2035	if (tmpl.Nodes.IndexOf(NodeID) >= 0) then
[456]	2036	begin
[1679]	2037	if (Node.TreeView = tvShared) then
[456]	2038	dmodShared.Resync(Node, not cbShHide.Checked, FSharedEmptyNodeCount)
	2039	else
[1679]	2040	if (Node.TreeView = tvPersonal) then
	2041	dmodShared.Resync(Node, not cbPerHide.Checked, FPersonalEmptyNodeCount);
[456]	2042	end;
	2043	end;
	2044	end;
	2045	finally
	2046	TemplateList.Free;
	2047	end;
	2048	finally
	2049	NodeList.Free;
	2050	end;
	2051	EnableNavControls;
[1679]	2052	if ((assigned(FCurTree)) and (assigned(FCurTree.Selected))) then
[456]	2053	tvTreeChange(FCurTree, FCurTree.Selected)
	2054	else
	2055	tvPersonal.Selected := tvPersonal.Items.GetFirstNode;
	2056	FCopyNode := nil;
	2057	end;
	2058
	2059	procedure TfrmTemplateEditor.sbCopyLeftClick(Sender: TObject);
	2060	begin
[1679]	2061	if (assigned(tvPersonal.Selected)) then
[456]	2062	begin
[1679]	2063	if (not assigned(tvShared.Selected)) then
[456]	2064	tvShared.Selected := tvShared.Items.GetFirstNode;
	2065	FDragNode := tvPersonal.Selected;
	2066	FDropNode := tvShared.Selected;
	2067	FDropInto := (TTemplate(FDropNode.Data).RealType in AllTemplateFolderTypes);
[1679]	2068	tvTreeDragDrop(tvPersonal, tvShared, 0, 0);
[456]	2069	end;
	2070	end;
	2071
	2072	procedure TfrmTemplateEditor.sbCopyRightClick(Sender: TObject);
	2073	begin
[1679]	2074	if (assigned(tvShared.Selected)) then
[456]	2075	begin
[1679]	2076	if (not assigned(tvPersonal.Selected)) then
[456]	2077	tvPersonal.Selected := tvPersonal.Items.GetFirstNode;
	2078	FDragNode := tvShared.Selected;
	2079	FDropNode := tvPersonal.Selected;
	2080	FDropInto := (TTemplate(FDropNode.Data).RealType in AllTemplateFolderTypes);
[1679]	2081	tvTreeDragDrop(tvShared, tvPersonal, 0, 0);
[456]	2082	end;
	2083	end;
	2084
[829]	2085	procedure TfrmTemplateEditor.AdjustControls4FontChange;
	2086	var
	2087	x: integer;
	2088
	2089	procedure Adjust(Control: TWinControl);
	2090	begin
	2091	x := x - Control.Width - 2;
	2092	Control.Left := x;
	2093	end;
	2094
	2095	begin
	2096	if FCanEditShared then
	2097	begin
	2098	x := pnlSharedBottom.Width;
	2099	Adjust(sbSHDelete);
	2100	Adjust(sbSHDown);
	2101	Adjust(sbSHUp);
	2102	cbSHHide.Width := x;
	2103	end;
	2104	x := pnlBottom.Width;
	2105	Adjust(btnApply);
	2106	Adjust(btnCancel);
	2107	Adjust(btnOK);
	2108	cbEditShared.Width := TextWidthByFont(cbEditShared.Font.Handle, cbEditShared.Caption) + 25;
	2109	cbNotes.Left := cbEditShared.Left + cbEditShared.Width + 60;
	2110	cbNotes.Width := TextWidthByFont(cbNotes.Font.Handle, cbNotes.Caption) + 25;
	2111	end;
	2112
[456]	2113	function TfrmTemplateEditor.AllowMove(ADropNode, ADragNode: TTreeNode): boolean;
	2114	var
	2115	i: integer;
	2116	TmpNode: TTreeNode;
	2117	DragTemplate, DropTemplate: TTemplate;
	2118
	2119	begin
[1679]	2120	if (assigned(ADropNode) and assigned(ADragNode)) then
[456]	2121	begin
	2122	DropTemplate := TTemplate(ADropNode.Data);
	2123	DragTemplate := TTemplate(ADragNode.Data);
	2124	if IsTemplateLocked(ADropNode) then
	2125	Result := FALSE
	2126	else
	2127	Result := (DragTemplate.RealType in [ttDoc, ttGroup, ttClass]);
[1679]	2128	if (Result) then
[456]	2129	begin
[1679]	2130	if (FCopying) then
[456]	2131	begin
[1679]	2132	if (DropTemplate.Items.IndexOf(DragTemplate) >= 0) then
[456]	2133	Result := FALSE;
	2134	end
	2135	else
[1679]	2136	if ((assigned(ADragNode.Parent)) and (ADropNode <> ADragNode.Parent) and
	2137	(DropTemplate.Items.IndexOf(DragTemplate) >= 0)) then
	2138	Result := FALSE;
[456]	2139	end;
[1679]	2140	if (Result) then
[456]	2141	begin
[1679]	2142	for i := 0 to DropTemplate.Nodes.Count - 1 do
[456]	2143	begin
	2144	TmpNode := TTreeNode(DropTemplate.Nodes.Objects[i]);
	2145	while (Result and (assigned(TmpNode.Parent))) do
	2146	begin
[1679]	2147	if (TmpNode.Data = DragTemplate) then
[456]	2148	Result := FALSE
	2149	else
	2150	TmpNode := TmpNode.Parent;
	2151	end;
[1679]	2152	if (not Result) then break;
[456]	2153	end;
	2154	end;
	2155	end
	2156	else
	2157	Result := FALSE;
	2158	end;
	2159
	2160	function TfrmTemplateEditor.Clone(Node: TTreeNode): boolean;
	2161	var
	2162	idx: integer;
	2163	Prnt, OldT, NewT: TTemplate;
	2164	PNode: TTreeNode;
	2165	ok: boolean;
	2166
	2167	begin
	2168	Result := FALSE;
[1679]	2169	if ((assigned(Node)) and (TTreeView(Node.TreeView) = tvPersonal)) then
[456]	2170	begin
	2171	OldT := TTemplate(Node.Data);
[1679]	2172	if (OldT.PersonalOwner <> User.DUZ) then
[456]	2173	begin
	2174	PNode := Node.Parent;
	2175	Prnt := nil;
	2176	if (assigned(PNode)) then
	2177	begin
	2178	ok := CanClone(PNode);
	2179	if ok then
	2180	begin
	2181	Clone(PNode);
	2182	Prnt := TTemplate(PNode.Data);
	2183	ok := Prnt.CanModify;
	2184	end;
	2185	end
	2186	else
	2187	ok := TRUE;
	2188	if ok then
	2189	begin
	2190	BtnApply.Enabled := TRUE;
	2191	Result := TRUE;
	2192	NewT := OldT.Clone(User.DUZ);
	2193	OldT.RemoveNode(Node);
	2194	MarkDeleted(OldT);
	2195	Node.Data := NewT;
	2196	NewT.AddNode(Node);
[1679]	2197	if (assigned(Prnt)) then
[456]	2198	begin
	2199	idx := Prnt.Items.IndexOf(OldT);
[1679]	2200	if (idx >= 0) then
[456]	2201	Prnt.Items[idx] := NewT;
	2202	end;
	2203	tvPersonal.Invalidate;
	2204	ShowTemplateType(NewT);
	2205	end;
	2206	end;
	2207	end;
	2208	end;
	2209
	2210	procedure TfrmTemplateEditor.reBoilChange(Sender: TObject);
	2211	var
	2212	DoInfo, DoRefresh: boolean;
	2213	TmpBPlate: string;
	2214	Template: TTemplate;
	2215	x: integer;
	2216
	2217	begin
[1679]	2218	if ((not FUpdating) and (assigned(FCurTree)) and (assigned(FCurTree.Selected))) then
[456]	2219	begin
	2220	Template := TTemplate(FCurTree.Selected.Data);
	2221	TmpBPlate := reBoil.Lines.Text;
[1679]	2222	if (Template.Boilerplate <> TmpBPlate) then
[456]	2223	begin
	2224	if CanClone(FCurTree.Selected) then
	2225	begin
	2226	DoRefresh := Clone(FCurTree.Selected);
[1679]	2227	if (DoRefresh) then
[456]	2228	Template := TTemplate(FCurTree.Selected.Data);
	2229	if assigned(Template) and Template.CanModify then
	2230	begin
	2231	DoInfo := FALSE;
[1679]	2232	if (Template.Boilerplate = '') or (TmpBPlate = '') then
[456]	2233	DoInfo := TRUE;
	2234	Template.Boilerplate := TmpBPlate;
	2235	TTemplate(FCurTree.Selected.Data).Gap := StrToIntDef(edtGap.Text, 0);
[1679]	2236	if (Template.RealType = ttGroup) then
[456]	2237	begin
	2238	reGroupBP.Text := Template.FullBoilerplate;
	2239	end;
[1679]	2240	if (DoRefresh) then
[456]	2241	begin
	2242	tvShared.Invalidate;
	2243	tvPersonal.Invalidate;
	2244	end;
[1679]	2245	if (DoInfo) then
[456]	2246	begin
	2247	x := reBoil.SelStart;
	2248	ShowInfo(FCurTree.Selected);
	2249	reBoil.SelStart := x;
	2250	end;
	2251	end;
	2252	end;
	2253	btnApply.Enabled := TRUE;
	2254	// reBoil.Lines.Text := Template.Boilerplate;
	2255	end;
	2256	end;
	2257	end;
	2258
	2259	procedure TfrmTemplateEditor.SharedEditing;
	2260	begin
	2261	{$IFDEF OwnerScan}
	2262	lblPerOwner.Visible := FCanEditShared;
	2263	cboOwner.Visible := FCanEditShared;
	2264	{$ELSE}
	2265	lblPerOwner.Visible := FALSE;
	2266	cboOwner.Visible := FALSE;
	2267	{$ENDIF}
	2268	sbCopyLeft.Visible := FCanEditShared;
[1679]	2269	if (not FCanEditShared) then
[456]	2270	cbShHide.Checked := TRUE;
	2271	cbShHide.Visible := FCanEditShared;
	2272	sbShDelete.Visible := FCanEditShared;
	2273	sbShUp.Visible := FCanEditShared;
	2274	sbShDown.Visible := FCanEditShared;
	2275	tvShared.ReadOnly := not FCanEditShared;
	2276	MoveCopyButtons;
	2277	tvTreeChange(FCurTree, FCurTree.Selected);
[829]	2278	if FCanEditShared then
	2279	AdjustControls4FontChange;
[456]	2280	end;
	2281
	2282	procedure TfrmTemplateEditor.cbEditSharedClick(Sender: TObject);
	2283	begin
	2284	FCanEditShared := cbEditShared.Checked;
	2285	SharedEditing;
	2286	end;
	2287
	2288	procedure TfrmTemplateEditor.popTemplatesPopup(Sender: TObject);
	2289	var
	2290	Tree: TTreeView;
	2291	Node: TTreeNode;
	2292	FindOn: boolean;
	2293	Txt: string;
	2294
	2295	begin
	2296	FFromMainMenu := FALSE;
	2297	Tree := GetTree;
	2298	Node := Tree.Selected;
	2299	Tree.Selected := Node; // This line prevents selected from changing after menu closes
	2300	mnuCollapseTree.Enabled := dmodShared.NeedsCollapsing(Tree);
[1679]	2301	if (Tree = tvShared) then
[456]	2302	begin
	2303	Txt := 'Shared';
	2304	FindOn := FFindShOn;
	2305	mnuNodeDelete.Enabled := ((sbShDelete.Visible) and (sbShDelete.Enabled));
	2306	end
	2307	else
	2308	begin
	2309	Txt := 'Personal';
	2310	FindOn := FFindPerOn;
	2311	mnuNodeDelete.Enabled := ((sbPerDelete.Visible) and (sbPerDelete.Enabled));
	2312	end;
	2313	mnuFindTemplates.Checked := FindOn;
[1679]	2314	mnuCollapseTree.Caption := 'Collapse ' + Txt + ' &Tree';
	2315	mnuFindTemplates.Caption := '&Find ' + Txt + ' Templates';
[456]	2316
[1679]	2317	if (assigned(Tree) and assigned(Tree.Selected) and assigned(Tree.Selected.Data)) then
[456]	2318	begin
	2319	mnuNodeCopy.Enabled := (TTemplate(Tree.Selected.Data).RealType in [ttDoc, ttGroup, ttClass]);
	2320	mnuNodeSort.Enabled := (TTemplate(Tree.Selected.Data).RealType in AllTemplateFolderTypes) and
[1679]	2321	(Tree.Selected.HasChildren) and
	2322	(Tree.Selected.GetFirstChild.GetNextSibling <> nil);
[456]	2323	end
	2324	else
	2325	begin
	2326	mnuNodeCopy.Enabled := FALSE;
	2327	mnuNodeSort.Enabled := FALSE;
	2328	end;
	2329	FPasteNode := Tree.Selected;
	2330	mnuNodePaste.Enabled := PasteOK;
	2331	mnuNodeNew.Enabled := btnNew.Enabled;
	2332	mnuNodeAutoGen.Enabled := btnNew.Enabled;
	2333	end;
	2334
	2335	procedure TfrmTemplateEditor.mnuCollapseTreeClick(Sender: TObject);
	2336	begin
[1679]	2337	if (GetTree = tvShared) then
[456]	2338	begin
	2339	tvShared.Selected := tvShared.Items.GetFirstNode;
	2340	tvShared.FullCollapse;
	2341	end
	2342	else
	2343	begin
	2344	tvPersonal.Selected := tvShared.Items.GetFirstNode;
	2345	tvPersonal.FullCollapse;
	2346	end;
	2347	end;
	2348
	2349	procedure TfrmTemplateEditor.mnuFindTemplatesClick(Sender: TObject);
	2350	var
	2351	Tree: TTreeView;
	2352
	2353	begin
	2354	Tree := GetTree;
[1679]	2355	if (Tree = tvShared) then
[456]	2356	begin
	2357	FFindShOn := not FFindShOn;
	2358	pnlShSearch.Visible := FFindShOn;
[1679]	2359	if (FFindShOn) then
[456]	2360	begin
	2361	edtShSearch.SetFocus;
	2362	btnShFind.Enabled := (edtShSearch.Text <> '');
	2363	end;
	2364	end
	2365	else
	2366	begin
	2367	FFindPerOn := not FFindPerOn;
	2368	pnlPerSearch.Visible := FFindPerOn;
[1679]	2369	if (FFindPerOn) then
[456]	2370	begin
	2371	edtPerSearch.SetFocus;
	2372	btnPerFind.Enabled := (edtPerSearch.Text <> '');
	2373	end;
	2374	end;
	2375	SetFindNext(Tree, FALSE);
	2376	end;
	2377
	2378	procedure TfrmTemplateEditor.ShowTemplateType(Template: TTemplate);
	2379	begin
[1679]	2380	if (Template.PersonalOwner > 0) then
[456]	2381	gbProperties.Caption := 'Personal'
	2382	else
	2383	gbProperties.Caption := 'Shared';
	2384	gbProperties.Caption := gbProperties.Caption + PropText;
	2385	end;
	2386
	2387	function TfrmTemplateEditor.GetTree: TTreeView;
	2388	begin
[1679]	2389	if (FFromMainMenu) then
[456]	2390	Result := FMainMenuTree
	2391	else
	2392	begin
[1679]	2393	if (TTemplateTreeType(PopupComponent(popTemplates, popTemplates).Tag) = ttShared) then
[456]	2394	Result := tvShared
	2395	else
	2396	Result := tvPersonal;
	2397	end;
	2398	end;
	2399
	2400	procedure TfrmTemplateEditor.btnFindClick(Sender: TObject);
	2401	var
[829]	2402	Found: TTreeNode;
[456]	2403	edtSearch: TEdit;
[829]	2404	IsNext: boolean;
[456]	2405	FindNext: boolean;
	2406	FindWholeWords: boolean;
	2407	FindCase: boolean;
	2408	Tree: TTreeView;
	2409	LastFoundNode, TmpNode: TTreeNode;
[829]	2410	// S1,S2: string;
[456]	2411
	2412	begin
[1679]	2413	if (TTemplateTreeType(TButton(Sender).Tag) = ttShared) then
[456]	2414	begin
	2415	Tree := tvShared;
	2416	edtSearch := edtShSearch;
	2417	FindNext := FFindShNext;
	2418	FindWholeWords := cbShWholeWords.Checked;
	2419	FindCase := cbShMatchCase.Checked;
	2420	LastFoundNode := FLastFoundShNode;
	2421	end
	2422	else
	2423	begin
	2424	Tree := tvPersonal;
	2425	edtSearch := edtPerSearch;
	2426	FindNext := FFindPerNext;
	2427	FindWholeWords := cbPerWholeWords.Checked;
	2428	FindCase := cbPerMatchCase.Checked;
	2429	LastFoundNode := FLastFoundPerNode;
	2430	end;
[1679]	2431	if (edtSearch.text <> '') then
[456]	2432	begin
[1679]	2433	IsNext := ((FindNext) and assigned(LastFoundNode));
[829]	2434	if IsNext then
[1679]	2435
[829]	2436	TmpNode := LastFoundNode
[456]	2437	else
	2438	TmpNode := Tree.Items.GetFirstNode;
[829]	2439	FInternalHiddenExpand := TRUE;
	2440	try
	2441	Found := FindTemplate(edtSearch.Text, Tree, Self, TmpNode,
[1679]	2442	IsNext, not FindCase, FindWholeWords);
[829]	2443	finally
	2444	FInternalHiddenExpand := FALSE;
[456]	2445	end;
[829]	2446	if Assigned(Found) then
[456]	2447	begin
[829]	2448	Tree.Selected := Found;
[1679]	2449	if (Tree = tvShared) then
[829]	2450	FLastFoundShNode := Found
[456]	2451	else
[829]	2452	FLastFoundPerNode := Found;
[456]	2453	SetFindNext(Tree, TRUE);
	2454	end;
	2455	end;
	2456	edtSearch.SetFocus;
	2457	end;
	2458
	2459	procedure TfrmTemplateEditor.edtSearchChange(Sender: TObject);
	2460	begin
[1679]	2461	if (TTemplateTreeType(TEdit(Sender).Tag) = ttShared) then
[456]	2462	begin
	2463	btnShFind.Enabled := (edtShSearch.Text <> '');
	2464	SetFindNext(tvShared, FALSE);
	2465	end
	2466	else
	2467	begin
	2468	btnPerFind.Enabled := (edtPerSearch.Text <> '');
	2469	SetFindNext(tvPersonal, FALSE);
	2470	end;
	2471	end;
	2472
	2473	procedure TfrmTemplateEditor.SetFindNext(const Tree: TTreeView; const Value: boolean);
	2474	begin
[1679]	2475	if (Tree = tvShared) then
[456]	2476	begin
[1679]	2477	if (FFindShNext <> Value) then
[456]	2478	begin
	2479	FFindShNext := Value;
[1679]	2480	if (FFindShNext) then btnShFind.Caption := 'Find Next'
[456]	2481	else btnShFind.Caption := 'Find';
	2482	end;
	2483	end
	2484	else
	2485	begin
[1679]	2486	if (FFindPerNext <> Value) then
[456]	2487	begin
	2488	FFindPerNext := Value;
[1679]	2489	if (FFindPerNext) then btnPerFind.Caption := 'Find Next'
[456]	2490	else btnPerFind.Caption := 'Find';
	2491	end;
	2492	end;
	2493	end;
	2494
	2495	procedure TfrmTemplateEditor.edtShSearchEnter(Sender: TObject);
	2496	begin
	2497	btnShFind.Default := TRUE;
	2498	end;
	2499
	2500	procedure TfrmTemplateEditor.edtShSearchExit(Sender: TObject);
	2501	begin
	2502	btnShFind.Default := FALSE;
	2503	end;
	2504
	2505	procedure TfrmTemplateEditor.edtPerSearchEnter(Sender: TObject);
	2506	begin
	2507	btnPerFind.Default := TRUE;
	2508	end;
	2509
	2510	procedure TfrmTemplateEditor.edtPerSearchExit(Sender: TObject);
	2511	begin
	2512	btnPerFind.Default := FALSE;
	2513	end;
	2514
	2515	procedure TfrmTemplateEditor.btnOKClick(Sender: TObject);
	2516	begin
[1679]	2517	if (ScanNames) then
[456]	2518	begin
[1679]	2519	if (SaveAllTemplates) then
[456]	2520	begin
	2521	FOK2Close := TRUE;
	2522	ModalResult := mrOK;
	2523	end
	2524	else
	2525	BtnApply.Enabled := BackupDiffers;
	2526	end;
	2527	end;
	2528
	2529	procedure TfrmTemplateEditor.FormShow(Sender: TObject);
	2530	begin
[1679]	2531	if (FFirstShow) then
[456]	2532	begin
	2533	FUpdating := FALSE;
	2534	FFirstShow := FALSE;
[1679]	2535	if (FFocusName) then
[456]	2536	begin
	2537	edtName.SetFocus;
	2538	edtName.SelectAll;
	2539	end;
	2540	pnlBoilerplateResize(Self);
[829]	2541	AdjustControls4FontChange;
	2542	MoveCopyButtons;
[456]	2543	end;
	2544	end;
	2545
	2546	procedure TfrmTemplateEditor.mnuBPInsertObjectClick(Sender: TObject);
	2547	var
	2548	i: integer;
	2549	DoIt: boolean;
	2550
	2551	begin
[1679]	2552	if (not assigned(frmTemplateObjects)) then
[456]	2553	begin
	2554	dmodShared.LoadTIUObjects;
	2555	frmTemplateObjects := TfrmTemplateObjects.Create(Self);
	2556	DoIt := TRUE;
	2557	if (UserTemplateAccessLevel <> taEditor) then
	2558	begin
	2559	UpdatePersonalObjects;
[1679]	2560	if uPersonalObjects.Count > 0 then // -------- CQ #8665 - RV ------------
[456]	2561	begin
	2562	DoIt := FALSE;
[1679]	2563	for i := 0 to dmodShared.TIUObjects.Count - 1 do
	2564	if uPersonalObjects.IndexOf(Piece(dmodShared.TIUObjects[i], U, 2)) >= 0 then // -------- CQ #8665 - RV ------------
[456]	2565	frmTemplateObjects.cboObjects.Items.Add(dmodShared.TIUObjects[i]);
	2566	end;
	2567	end;
	2568	if DoIt then
[829]	2569	FastAssign(dmodShared.TIUObjects, frmTemplateObjects.cboObjects.Items);
[456]	2570	frmTemplateObjects.Font := Font;
	2571	frmTemplateObjects.re := reBoil;
	2572	frmTemplateObjects.AutoLongLines := AutoLongLines;
	2573	end;
	2574	frmTemplateObjects.Show;
	2575	end;
	2576
	2577	procedure TfrmTemplateEditor.mnuBPErrorCheckClick(Sender: TObject);
	2578	begin
	2579	FBPOK := FALSE;
[1679]	2580	if (reBoil.Lines.Count > 0) then
[456]	2581	begin
[1679]	2582	if (dmodShared.TemplateOK(FCurTree.Selected.Data, 'OK')) then
[456]	2583	begin
	2584	TestBoilerplate(reBoil.Lines);
[1679]	2585	if (RPCBrokerV.Results.Count > 0) then
	2586	InfoBox('Boilerplate Contains Errors:' + CRLF + CRLF +
[456]	2587	RPCBrokerV.Results.Text, 'Error', MB_OK or MB_ICONERROR)
	2588	else
	2589	begin
	2590	FBPOK := TRUE;
[1679]	2591	if (assigned(Sender)) then
[456]	2592	InfoBox('No Errors Found in Boilerplate.', 'Information', MB_OK or MB_ICONINFORMATION);
	2593	end;
	2594	end;
	2595	end;
	2596	end;
	2597
	2598	procedure TfrmTemplateEditor.popBoilerplatePopup(Sender: TObject);
	2599	var
	2600	tryOK, ok: boolean;
	2601
	2602	begin
	2603	ok := not reBoil.ReadOnly;
	2604	mnuBPInsertObject.Enabled := ok;
	2605	mnuBPInsertField.Enabled := ok;
	2606
	2607	mnuBPPaste.Enabled := (ok and Clipboard.HasFormat(CF_TEXT));
[1679]	2608	if (ok) then
[456]	2609	ok := (reBoil.Lines.Count > 0);
	2610	tryOK := (reBoil.Lines.Count > 0) or ((pnlGroupBP.Visible) and (reGroupBP.Lines.Count > 0));
	2611	mnuBPErrorCheck.Enabled := tryOK;
	2612	mnuBPTry.Enabled := tryOK;
	2613	mnuBPSpellCheck.Enabled := ok and SpellCheckAvailable;
	2614	mnuBPCheckGrammar.Enabled := ok and SpellCheckAvailable;
	2615
	2616	mnuBPCopy.Enabled := (reBoil.SelLength > 0);
	2617	mnuBPCut.Enabled := (ok and (reBoil.SelLength > 0));
	2618	mnuBPSelectAll.Enabled := (reBoil.Lines.Count > 0);
	2619	mnuBPUndo.Enabled := (reBoil.Perform(EM_CANUNDO, 0, 0) <> 0);
	2620	end;
	2621
	2622	function TfrmTemplateEditor.ScanNames: boolean;
	2623	var
	2624	Errors: TList;
	2625	msg: string;
	2626	i: integer;
	2627	Node: TTreeNode;
	2628
	2629	procedure ScanTree(Tree: TTreeView);
	2630	begin
	2631	Node := Tree.Items.GetFirstNode;
	2632	while (assigned(Node)) do
	2633	begin
[1679]	2634	if (Node.Text <> EmptyNodeText) and (assigned(Node.Data)) then
[456]	2635	begin
[1679]	2636	if (BadTemplateName(Node.Text)) then
[456]	2637	Errors.Add(Node);
	2638	end;
	2639	Node := Node.GetNext;
	2640	end;
	2641	end;
	2642
	2643	begin
	2644	Errors := TList.Create;
	2645	try
	2646	ScanTree(tvShared);
	2647	ScanTree(tvPersonal);
[1679]	2648	if (Errors.Count > 0) then
[456]	2649	begin
[1679]	2650	if (Errors.Count > 1) then
[456]	2651	msg := IntToStr(Errors.Count) + ' Templates have invalid names'
	2652	else
	2653	msg := 'Template has an invalid name';
	2654	msg := msg + ': ';
[1679]	2655	for i := 0 to Errors.Count - 1 do
[456]	2656	begin
[1679]	2657	if (i > 0) then msg := msg + ', ';
[456]	2658	Node := TTreeNode(Errors[i]);
	2659	msg := msg + Node.Text;
	2660	Node.MakeVisible;
	2661	end;
	2662	msg := msg + '.' + BadNameText;
	2663	InfoBox(msg, 'Error', MB_OK or MB_ICONERROR);
	2664	TTreeView(Node.TreeView).Selected := TTreeNode(Errors[0]);
	2665	end;
	2666	finally
	2667	Result := (Errors.Count = 0);
	2668	Errors.Free;
	2669	end;
	2670	end;
	2671
	2672	procedure TfrmTemplateEditor.btnCancelClick(Sender: TObject);
	2673	begin
	2674	FOK2Close := TRUE;
	2675	end;
	2676
[829]	2677	procedure TfrmTemplateEditor.FormClose(Sender: TObject;
	2678	var Action: TCloseAction);
	2679	begin
	2680	SaveUserBounds(Self);
	2681	end;
	2682
[456]	2683	procedure TfrmTemplateEditor.FormCloseQuery(Sender: TObject;
	2684	var CanClose: Boolean);
	2685	var
	2686	ans: word;
	2687
	2688	begin
[1679]	2689	if (not FOK2Close) and (BackupDiffers) then
[456]	2690	begin
	2691	ans := InfoBox('Save Changes?', 'Confirmation', MB_YESNOCANCEL or MB_ICONQUESTION);
[1679]	2692	if (ans = IDCANCEL) then
[456]	2693	CanClose := FALSE
	2694	else
[1679]	2695	if (ans = IDYES) then
[456]	2696	begin
[1679]	2697	CanClose := FALSE;
	2698	if (ScanNames) then
	2699	begin
	2700	if (SaveAllTemplates) then
	2701	CanClose := TRUE
	2702	else
	2703	BtnApply.Enabled := BackupDiffers;
	2704	end;
[456]	2705	end;
	2706	end;
	2707	end;
	2708
	2709	procedure TfrmTemplateEditor.mnuBPSpellCheckClick(Sender: TObject);
	2710	begin
	2711	SpellCheckForControl(reBoil);
	2712	end;
	2713
	2714	procedure TfrmTemplateEditor.splBoilMoved(Sender: TObject);
	2715	begin
[829]	2716	if pnlBoilerplate.Visible and pnlGroupBP.Visible then
	2717	tmplEditorSplitterBoil := reBoil.Height;
	2718	if pnlNotes.Visible then
	2719	tmplEditorSplitterNotes := pnlNotes.Height;
[456]	2720	pnlBoilerplateResize(Self);
[1679]	2721	if not PnlNotes.visible and (PnlNotes.Top <= pnlGroupBP.Top - pnlGroupBP.Constraints.MinHeight) then
	2722	tmplEditorSplitterNotes := (pnlGroupBP.Height - pnlGroupBP.Constraints.MinHeight) - splNotes.Height - 10;
	2723	if not pnlGroupBP.visible and (pnlGroupBP.Top >= pnlNotes.Top + pnlGroupBP.Constraints.MinHeight) then
	2724	tmplEditorSplitterBoil := reBoil.Height - pnlGroupBP.Constraints.MinHeight - 10;
[456]	2725	end;
	2726
	2727	procedure TfrmTemplateEditor.edtGapKeyPress(Sender: TObject;
	2728	var Key: Char);
	2729	begin
[1679]	2730	if (not (Key in ['0', '1', '2', '3'])) then Key := #0;
[456]	2731	end;
	2732
	2733	procedure TfrmTemplateEditor.edtNameExit(Sender: TObject);
	2734	var
	2735	Warn: boolean;
	2736
	2737	begin
	2738	Warn := (ActiveControl <> btnCancel) and (BadTemplateName(edtName.Text));
[1679]	2739	if (Warn and ((ActiveControl = sbShDelete) or (ActiveControl = sbPerDelete))) then
[456]	2740	begin
[1679]	2741	if ((assigned(FCurTree)) and (assigned(FCurTree.Selected))) then
[456]	2742	Warn := not AutoDel(TTemplate(FCurTree.Selected.Data));
	2743	end;
[1679]	2744	if (Warn) then
[456]	2745	begin
	2746	InfoBox('Template has an invalid name: ' + edtName.Text + '.' + BadNameText, 'Error', MB_OK or MB_ICONERROR);
	2747	edtName.SetFocus;
	2748	end;
	2749	end;
	2750
	2751	procedure TfrmTemplateEditor.tmrAutoScrollTimer(Sender: TObject);
	2752	const
	2753	EdgeScroll = 16;
	2754
	2755	var
	2756	TopNode: TTreeNode;
	2757	Redraw: boolean;
	2758	TmpPt: TPoint;
	2759	ht: THitTests;
	2760	HPos, RMax: integer;
	2761
	2762	begin
[1679]	2763	if (assigned(FDropNode)) then
[456]	2764	begin
	2765	TopNode := FDropNode.TreeView.TopItem;
	2766	Redraw := FALSE;
	2767	TmpPt := FDropNode.TreeView.ScreenToClient(Mouse.CursorPos);
[1679]	2768	if (TopNode = FDropNode) and (TopNode <> TTreeView(FDropNode.TreeView).Items.GetFirstNode) then
[456]	2769	begin
	2770	FDropNode.TreeView.TopItem := TopNode.GetPrevVisible;
	2771	Redraw := TRUE;
	2772	end
	2773	else
	2774	begin
	2775	RMax := FDropNode.TreeView.ClientHeight - EdgeScroll;
[1679]	2776	if ((TmpPt.Y > RMax) and (FDropNode.GetNextVisible <> nil)) then
[456]	2777	begin
	2778	TORTreeView(FDropNode.TreeView).VertScrollPos :=
[1679]	2779	TORTreeView(FDropNode.TreeView).VertScrollPos + 1;
[456]	2780	Redraw := TRUE;
	2781	end;
	2782	end;
[1679]	2783	if (FLastDropNode <> FDropNode) then
[456]	2784	begin
[1679]	2785	if ((assigned(FDropNode)) and (FDropNode.GetNext = nil)) then
[456]	2786	Redraw := TRUE
	2787	else
[1679]	2788	if ((assigned(FLastDropNode)) and (FLastDropNode.GetNext = nil)) then
	2789	Redraw := TRUE;
[456]	2790	FLastDropNode := FDropNode;
	2791	FDragOverCount := 0;
	2792	end
	2793	else
	2794	begin
[1679]	2795	if (FDropNode.HasChildren) and (not FDropNode.Expanded) then
[456]	2796	begin
	2797	ht := FDropNode.TreeView.GetHitTestInfoAt(TmpPt.X, TmpPt.Y);
[1679]	2798	if (htOnButton in ht) then
[456]	2799	begin
	2800	inc(FDragOverCount);
[1679]	2801	if (FDragOverCount > 4) then
[456]	2802	begin
	2803	TopNode := FDropNode.TreeView.TopItem;
	2804	FDropNode.Expand(FALSE);
	2805	FDropNode.TreeView.TopItem := TopNode;
	2806	FDragOverCount := 0;
	2807	Redraw := TRUE;
	2808	end;
	2809	end
	2810	else
	2811	FDragOverCount := 0;
	2812	end;
[1679]	2813	if (not Redraw) then
[456]	2814	begin
	2815	HPos := TORTreeView(FDropNode.TreeView).HorzScrollPos;
[1679]	2816	if (HPos > 0) and (TmpPt.X < EdgeScroll) then
[456]	2817	begin
	2818	TORTreeView(FDropNode.TreeView).HorzScrollPos :=
[1679]	2819	TORTreeView(FDropNode.TreeView).HorzScrollPos - EdgeScroll;
[456]	2820	Redraw := TRUE;
	2821	end
	2822	else
	2823	begin
	2824	RMax := FDropNode.TreeView.ClientWidth - EdgeScroll;
[1679]	2825	if (TmpPt.X > RMax) then
[456]	2826	begin
	2827	TORTreeView(FDropNode.TreeView).HorzScrollPos :=
[1679]	2828	TORTreeView(FDropNode.TreeView).HorzScrollPos + EdgeScroll;
[456]	2829	Redraw := TRUE;
	2830	end;
	2831	end;
	2832	end;
	2833	end;
[1679]	2834	if (Redraw) then
[456]	2835	begin
	2836	TmpPt := Mouse.CursorPos; // Wiggling the mouse causes needed windows messages to fire
	2837	inc(TmpPt.X);
	2838	Mouse.CursorPos := TmpPt;
	2839	dec(TmpPt.X);
	2840	Mouse.CursorPos := TmpPt;
	2841	FDropNode.TreeView.Invalidate;
	2842	end;
	2843	end;
	2844	end;
	2845
	2846	procedure TfrmTemplateEditor.tvTreeStartDrag(Sender: TObject;
	2847	var DragObject: TDragObject);
	2848	begin
	2849	FDropNode := nil;
	2850	FLastDropNode := nil;
	2851	FDragOverCount := 0;
	2852	tmrAutoScroll.Enabled := TRUE;
	2853	end;
	2854
	2855	procedure TfrmTemplateEditor.tvTreeEndDrag(Sender, Target: TObject; X,
	2856	Y: Integer);
	2857	begin
	2858	tmrAutoScroll.Enabled := FALSE;
	2859	end;
	2860
	2861	procedure TfrmTemplateEditor.mnuGroupBPCopyClick(Sender: TObject);
	2862	begin
	2863	reGroupBP.CopyToClipboard;
	2864	end;
	2865
	2866	procedure TfrmTemplateEditor.popGroupPopup(Sender: TObject);
	2867	begin
	2868	mnuGroupBPCopy.Enabled := (pnlGroupBP.Visible and (reGroupBP.SelLength > 0));
	2869	mnuGroupBPSelectAll.Enabled := (pnlGroupBP.Visible and (reGroupBP.Lines.Count > 0));
	2870	end;
	2871
	2872	procedure TfrmTemplateEditor.mnuBPCutClick(Sender: TObject);
	2873	begin
	2874	reBoil.CutToClipboard;
	2875	end;
	2876
	2877	procedure TfrmTemplateEditor.mnuBPCopyClick(Sender: TObject);
	2878	begin
	2879	reBoil.CopyToClipboard;
	2880	end;
	2881
	2882	procedure TfrmTemplateEditor.mnuBPPasteClick(Sender: TObject);
	2883	begin
	2884	reBoil.SelText := Clipboard.AsText;
	2885	end;
	2886
	2887	procedure TfrmTemplateEditor.mnuGroupBPSelectAllClick(Sender: TObject);
	2888	begin
	2889	reGroupBP.SelectAll;
	2890	end;
	2891
	2892	procedure TfrmTemplateEditor.mnuBPSelectAllClick(Sender: TObject);
	2893	begin
	2894	reBoil.SelectAll;
	2895	end;
	2896
	2897	procedure TfrmTemplateEditor.mnuNodeDeleteClick(Sender: TObject);
	2898	begin
[1679]	2899	if (FCurTree = tvShared) and (sbShDelete.Visible) and (sbShDelete.Enabled) then
[456]	2900	sbDeleteClick(sbShDelete)
	2901	else
[1679]	2902	if (FCurTree = tvPersonal) and (sbPerDelete.Visible) and (sbPerDelete.Enabled) then
	2903	sbDeleteClick(sbPerDelete);
[456]	2904	end;
	2905
	2906	procedure TfrmTemplateEditor.mnuNodeCopyClick(Sender: TObject);
	2907	begin
[1679]	2908	if (assigned(FCurTree)) then
[456]	2909	FCopyNode := FCurTree.Selected
	2910	else
	2911	FCopyNode := nil;
	2912	end;
	2913
	2914	procedure TfrmTemplateEditor.mnuNodePasteClick(Sender: TObject);
	2915	begin
[1679]	2916	if (PasteOK) then
[456]	2917	begin
	2918	FDragNode := FCopyNode;
	2919	FDropNode := FPasteNode;
	2920	FDropInto := (TTemplate(FDropNode.Data).RealType in AllTemplateFolderTypes);
	2921	FCopying := TRUE;
	2922	try
	2923	tvTreeDragDrop(tvShared, tvPersonal, 0, 0);
	2924	finally
	2925	FCopying := FALSE;
	2926	end;
	2927	end;
	2928	FCopyNode := nil;
	2929	end;
	2930
	2931	function TfrmTemplateEditor.PasteOK: boolean;
	2932	var
	2933	OldCopying: boolean;
	2934	Node: TTreeNode;
	2935
	2936	begin
	2937	Result := assigned(FCopyNode) and assigned(FPasteNode);
[1679]	2938	if (Result) then
[456]	2939	Result := (FTreeControl[TTemplateTreeType(FPasteNode.TreeView.Tag), tcDel].Visible);
[1679]	2940	if (Result) then
[456]	2941	begin
	2942	OldCopying := FCopying;
	2943	FCopying := TRUE;
	2944	try
	2945	Node := FPasteNode;
[1679]	2946	if (TTemplate(Node.Data).RealType = ttDoc) then
[456]	2947	Node := Node.Parent;
	2948	Result := AllowMove(Node, FCopyNode);
	2949	finally
	2950	FCopying := OldCopying;
	2951	end;
	2952	end;
	2953	end;
	2954
	2955	procedure TfrmTemplateEditor.mnuBPUndoClick(Sender: TObject);
	2956	begin
	2957	reBoil.Perform(EM_UNDO, 0, 0);
	2958	end;
	2959
	2960	procedure TfrmTemplateEditor.tvTreeKeyDown(Sender: TObject;
	2961	var Key: Word; Shift: TShiftState);
	2962	begin
	2963
[1679]	2964	if (Key = VK_DELETE) then
[456]	2965	begin
[1679]	2966	if (Sender = tvShared) then
[456]	2967	begin
[1679]	2968	if (sbShDelete.Visible and sbShDelete.Enabled) then
[456]	2969	sbDeleteClick(sbShDelete);
	2970	end
	2971	else
	2972	begin
[1679]	2973	if (sbPerDelete.Visible and sbPerDelete.Enabled) then
[456]	2974	sbDeleteClick(sbPerDelete);
	2975	end;
	2976	end;
	2977	//Code Added to provide CTRL Key access for 508 compliance GRE 3/03
	2978	if (ssCtrl in Shift) and (Key = VK_A) then
[1679]	2979	reBoil.SelectAll
[456]	2980	else
[1679]	2981	if (ssCtrl in Shift) and (Key = VK_C) then
[456]	2982	reBoil.CopyToClipboard
[1679]	2983	else
	2984	if (ssCtrl in Shift) and (Key = VK_E) then
	2985	mnuBPErrorCheckClick(Self)
	2986	else
	2987	if (ssCtrl in Shift) and (Key = VK_F) then
	2988	mnuBPInsertFieldClick(Self)
	2989	else
	2990	if (ssCtrl in Shift) and (Key = VK_G) then
	2991	GrammarCheckForControl(reBoil)
	2992	else
	2993	if (ssCtrl in Shift) and (Key = VK_I) then
	2994	mnuBPInsertObjectClick(Self)
	2995	else
	2996	if (ssCtrl in Shift) and (Key = VK_S) then
	2997	SpellCheckForControl(reBoil)
	2998	else
	2999	if (ssCtrl in Shift) and (Key = VK_T) then
	3000	mnuBPTryClick(Self)
	3001	else
	3002	if (ssCtrl in Shift) and (Key = VK_V) then
	3003	reBoil.SelText := Clipboard.AsText
	3004	else
	3005	if (ssCtrl in Shift) and (Key = VK_X) then
	3006	reBoil.CutToClipboard
	3007	else
	3008	if (ssCtrl in Shift) and (Key = VK_Z) then
	3009	reBoil.Perform(EM_UNDO, 0, 0);
[456]	3010	//End of ---- Code Added to provide CTRL Key access for 508 compliance GRE 3/03
	3011	end;
	3012
	3013	procedure TfrmTemplateEditor.mnuEditClick(Sender: TObject);
	3014	var
	3015	tryOK, ok: boolean;
	3016
	3017	begin
	3018	if pnlBoilerplate.Visible then
	3019	begin
	3020	ok := (not reBoil.ReadOnly);
	3021	mnuInsertObject.Enabled := ok;
	3022	mnuInsertField.Enabled := ok;
	3023	mnuPaste.Enabled := (ok and Clipboard.HasFormat(CF_TEXT));
[1679]	3024	if (ok) then
[456]	3025	ok := (reBoil.Lines.Count > 0);
	3026	tryOK := (reBoil.Lines.Count > 0) or ((pnlGroupBP.Visible) and (reGroupBP.Lines.Count > 0));
	3027	mnuErrorCheck.Enabled := tryOK;
	3028	mnuTry.Enabled := tryOK;
	3029	mnuSpellCheck.Enabled := ok and SpellCheckAvailable;
	3030	mnuCheckGrammar.Enabled := ok and SpellCheckAvailable;
	3031
	3032	mnuCopy.Enabled := (reBoil.SelLength > 0);
	3033	mnuCut.Enabled := (ok and (reBoil.SelLength > 0));
	3034	mnuSelectAll.Enabled := (reBoil.Lines.Count > 0);
	3035	mnuUndo.Enabled := (reBoil.Perform(EM_CANUNDO, 0, 0) <> 0);
	3036	mnuGroupBoilerplate.Enabled := pnlGroupBP.Visible;
	3037	end
	3038	else
	3039	begin
[1679]	3040	mnuInsertObject.Enabled := FALSE;
	3041	mnuInsertField.Enabled := FALSE;
	3042	mnuPaste.Enabled := FALSE;
	3043	mnuErrorCheck.Enabled := FALSE;
	3044	mnuTry.Enabled := FALSE;
	3045	mnuSpellCheck.Enabled := FALSE;
	3046	mnuCheckGrammar.Enabled := FALSE;
	3047	mnuCopy.Enabled := FALSE;
	3048	mnuCut.Enabled := FALSE;
	3049	mnuSelectAll.Enabled := FALSE;
	3050	mnuUndo.Enabled := FALSE;
[456]	3051	mnuGroupBoilerplate.Enabled := FALSE;
	3052	end;
	3053	end;
	3054
	3055	procedure TfrmTemplateEditor.mnuGroupBoilerplateClick(Sender: TObject);
	3056	begin
	3057	mnuGroupCopy.Enabled := (pnlGroupBP.Visible and (reGroupBP.SelLength > 0));
	3058	mnuGroupSelectAll.Enabled := (pnlGroupBP.Visible and (reGroupBP.Lines.Count > 0));
	3059	end;
	3060
	3061	procedure TfrmTemplateEditor.cbShFindOptionClick(Sender: TObject);
	3062	begin
	3063	SetFindNext(tvShared, FALSE);
[1679]	3064	if (pnlShSearch.Visible) then edtShSearch.SetFocus;
[456]	3065	end;
	3066
	3067	procedure TfrmTemplateEditor.cbPerFindOptionClick(Sender: TObject);
	3068	begin
	3069	SetFindNext(tvPersonal, FALSE);
[1679]	3070	if (pnlPerSearch.Visible) then edtPerSearch.SetFocus;
[456]	3071	end;
	3072
	3073	procedure TfrmTemplateEditor.mnuTemplateClick(Sender: TObject);
	3074	var
	3075	Tree: TTreeView;
	3076
	3077	begin
	3078	FFromMainMenu := TRUE;
	3079	Tree := FCurTree;
[1679]	3080	if (assigned(Tree) and assigned(Tree.Selected)) then
[456]	3081	begin
[1679]	3082	if (Tree = tvShared) then
[456]	3083	mnuTDelete.Enabled := ((sbShDelete.Visible) and (sbShDelete.Enabled))
	3084	else
	3085	mnuTDelete.Enabled := ((sbPerDelete.Visible) and (sbPerDelete.Enabled));
[1679]	3086	if (assigned(Tree) and assigned(Tree.Selected) and assigned(Tree.Selected.Data)) then
[456]	3087	begin
	3088	mnuTCopy.Enabled := (TTemplate(Tree.Selected.Data).RealType in [ttDoc, ttGroup, ttClass]);
	3089	mnuSort.Enabled := (TTemplate(Tree.Selected.Data).RealType in AllTemplateFolderTypes) and
[1679]	3090	(Tree.Selected.HasChildren) and
	3091	(Tree.Selected.GetFirstChild.GetNextSibling <> nil);
[456]	3092	end
	3093	else
	3094	begin
	3095	mnuTCopy.Enabled := FALSE;
	3096	mnuSort.Enabled := FALSE;
	3097	end;
	3098	FPasteNode := Tree.Selected;
	3099	mnuTPaste.Enabled := PasteOK;
	3100	end
	3101	else
	3102	begin
	3103	mnuTCopy.Enabled := FALSE;
	3104	mnuTPaste.Enabled := FALSE;
	3105	mnuTDelete.Enabled := FALSE;
	3106	mnuSort.Enabled := FALSE;
	3107	end;
	3108	mnuNewTemplate.Enabled := btnNew.Enabled;
	3109	mnuAutoGen.Enabled := btnNew.Enabled;
	3110	mnuFindShared.Checked := FFindShOn;
	3111	mnuFindPersonal.Checked := FFindPerOn;
	3112	mnuShCollapse.Enabled := dmodShared.NeedsCollapsing(tvShared);
	3113	mnuPerCollapse.Enabled := dmodShared.NeedsCollapsing(tvPersonal);
	3114	end;
	3115
	3116	procedure TfrmTemplateEditor.mnuFindSharedClick(Sender: TObject);
	3117	begin
	3118	FMainMenuTree := tvShared;
	3119	mnuFindTemplatesClick(tvShared);
	3120	end;
	3121
	3122	procedure TfrmTemplateEditor.mnuFindPersonalClick(Sender: TObject);
	3123	begin
	3124	FMainMenuTree := tvPersonal;
	3125	mnuFindTemplatesClick(tvPersonal);
	3126	end;
	3127
	3128	procedure TfrmTemplateEditor.mnuShCollapseClick(Sender: TObject);
	3129	begin
	3130	FMainMenuTree := tvShared;
	3131	mnuCollapseTreeClick(tvShared);
	3132	end;
	3133
	3134	procedure TfrmTemplateEditor.mnuPerCollapseClick(Sender: TObject);
	3135	begin
	3136	FMainMenuTree := tvPersonal;
	3137	mnuCollapseTreeClick(tvPersonal);
	3138	end;
	3139
	3140	procedure TfrmTemplateEditor.pnlShSearchResize(Sender: TObject);
	3141	begin
[1679]	3142	if ((cbShMatchCase.Width + cbShWholeWords.Width) > pnlShSearch.Width) then
[456]	3143	cbShWholeWords.Left := cbShMatchCase.Width
	3144	else
	3145	cbShWholeWords.Left := pnlShSearch.Width - cbShWholeWords.Width;
	3146	end;
	3147
	3148	procedure TfrmTemplateEditor.pnlPerSearchResize(Sender: TObject);
	3149	begin
[1679]	3150	if ((cbPerMatchCase.Width + cbPerWholeWords.Width) > pnlPerSearch.Width) then
[456]	3151	cbPerWholeWords.Left := cbPerMatchCase.Width
	3152	else
	3153	cbPerWholeWords.Left := pnlPerSearch.Width - cbPerWholeWords.Width;
	3154	end;
	3155
	3156	procedure TfrmTemplateEditor.pnlPropertiesResize(Sender: TObject);
	3157	begin
	3158	btnNew.Width := pnlProperties.Width;
	3159	end;
	3160
	3161	procedure TfrmTemplateEditor.mbMainResize(Sender: TObject);
	3162	begin
[829]	3163	pnlMenu.Width := mbMain.Width + 4;
	3164	mbMain.Width := pnlMenu.Width - 3;
[456]	3165	end;
	3166
	3167	procedure TfrmTemplateEditor.mnuBPCheckGrammarClick(Sender: TObject);
	3168	begin
	3169	GrammarCheckForControl(reBoil);
	3170	end;
	3171
	3172	procedure TfrmTemplateEditor.mnuSortClick(Sender: TObject);
	3173	var
	3174	Tree: TTreeView;
	3175
	3176	begin
	3177	Tree := FCurTree;
[1679]	3178	if (assigned(Tree) and assigned(Tree.Selected) and Tree.Selected.HasChildren) then
[456]	3179	begin
	3180	TTemplate(Tree.Selected.Data).SortChildren;
	3181	Resync([TTemplate(Tree.Selected.Data)]);
	3182	btnApply.Enabled := TRUE;
	3183	end;
	3184	end;
	3185
	3186	procedure TfrmTemplateEditor.pnlBoilerplateCanResize(Sender: TObject;
	3187	var NewWidth, NewHeight: Integer; var Resize: Boolean);
	3188	begin
[1679]	3189	if (NewHeight < 40) then Resize := FALSE;
[456]	3190	end;
	3191
	3192	function TfrmTemplateEditor.AutoDel(Template: TTemplate): boolean;
	3193	begin
[1679]	3194	if (assigned(Template)) then
[456]	3195	Result := (((Template.ID = '0') or (Template.ID = '')) and
[1679]	3196	(Template.PrintName = NewTemplateName) and
	3197	(Template.Boilerplate = ''))
[456]	3198	else
[1679]	3199	Result := FALSE;
[456]	3200	end;
	3201
	3202	procedure TfrmTemplateEditor.mnuBPTryClick(Sender: TObject);
	3203	var
	3204	R: TRect;
	3205	Move: boolean;
	3206	tmpl: TTemplate;
[1679]	3207	txt: string;
[456]	3208
	3209	begin
	3210	mnuBPErrorCheckClick(nil);
[1679]	3211	if (FBPOK) or (reBoil.Lines.Count = 0) then
[456]	3212	begin
	3213	Move := assigned(frmTemplateView);
[1679]	3214	if (Move) then
[456]	3215	begin
	3216	R := frmTemplateView.BoundsRect;
	3217	frmTemplateView.Free;
	3218	frmTemplateView := nil;
	3219	end;
	3220	tmpl := TTemplate(FCurTree.Selected.Data);
	3221	tmpl.TemplatePreviewMode := TRUE; // Prevents "Are you sure?" dialog when canceling
	3222	txt := tmpl.Text;
[1679]	3223	if (not tmpl.DialogAborted) then
	3224	ShowTemplateData(Self, tmpl.PrintName, txt);
	3225	if (Move) then
[456]	3226	frmTemplateView.BoundsRect := R;
	3227	tmpl.TemplatePreviewMode := FALSE;
	3228	end;
	3229	end;
	3230
	3231	procedure TfrmTemplateEditor.mnuAutoGenClick(Sender: TObject);
	3232	var
	3233	AName, AText: string;
	3234
	3235	begin
	3236	dmodShared.LoadTIUObjects;
	3237	UpdatePersonalObjects;
[1679]	3238	GetAutoGenText(AName, AText, uPersonalObjects); // -------- CQ #8665 - RV ------------
	3239	if (AName <> '') and (AText <> '') then
[456]	3240	begin
	3241	btnNewClick(Self);
	3242	TTemplate(FBtnNewNode.Data).PrintName := AName;
	3243	TTemplate(FBtnNewNode.Data).Boilerplate := AText;
	3244	ShowInfo(FBtnNewNode);
	3245	edtNameOldChange(Self);
	3246	end;
	3247	end;
	3248
	3249	procedure TfrmTemplateEditor.reNotesChange(Sender: TObject);
	3250	var
	3251	Template: TTemplate;
	3252	DoRefresh: boolean;
	3253
	3254	begin
[1679]	3255	if ((not FUpdating) and (assigned(FCurTree)) and (assigned(FCurTree.Selected))) then
[456]	3256	begin
	3257	if CanClone(FCurTree.Selected) then
	3258	begin
	3259	DoRefresh := Clone(FCurTree.Selected);
	3260	Template := TTemplate(FCurTree.Selected.Data);
	3261	if assigned(Template) and Template.CanModify then
	3262	begin
	3263	Template.Description := reNotes.Lines.Text;
	3264	UpdateApply(Template);
[1679]	3265	if (DoRefresh) then
[456]	3266	begin
	3267	tvShared.Invalidate;
	3268	tvPersonal.Invalidate;
	3269	end;
	3270	end;
	3271	end;
	3272	btnApply.Enabled := TRUE;
	3273	// reNotes.Lines.Text := Template.Description;
	3274	end;
	3275	end;
	3276
	3277	procedure TfrmTemplateEditor.mnuNotesUndoClick(Sender: TObject);
	3278	begin
	3279	reNotes.Perform(EM_UNDO, 0, 0);
	3280	end;
	3281
	3282	procedure TfrmTemplateEditor.mnuNotesCutClick(Sender: TObject);
	3283	begin
	3284	reNotes.CutToClipboard;
	3285	end;
	3286
	3287	procedure TfrmTemplateEditor.mnuNotesCopyClick(Sender: TObject);
	3288	begin
	3289	reNotes.CopyToClipboard;
	3290	end;
	3291
	3292	procedure TfrmTemplateEditor.mnuNotesPasteClick(Sender: TObject);
	3293	begin
	3294	reNotes.SelText := Clipboard.AsText;
	3295	end;
	3296
	3297	procedure TfrmTemplateEditor.mnuNotesSelectAllClick(Sender: TObject);
	3298	begin
	3299	reNotes.SelectAll;
	3300	end;
	3301
	3302	procedure TfrmTemplateEditor.mnuNotesGrammarClick(Sender: TObject);
	3303	begin
	3304	GrammarCheckForControl(reNotes);
	3305	end;
	3306
	3307	procedure TfrmTemplateEditor.mnuNotesSpellingClick(Sender: TObject);
	3308	begin
	3309	SpellCheckForControl(reNotes);
	3310	end;
	3311
	3312	procedure TfrmTemplateEditor.popNotesPopup(Sender: TObject);
	3313	var
	3314	ok: boolean;
	3315
	3316	begin
	3317	ok := not reNotes.ReadOnly;
	3318	mnuNotesPaste.Enabled := (ok and Clipboard.HasFormat(CF_TEXT));
[1679]	3319	if (ok) then
[456]	3320	ok := (reNotes.Lines.Count > 0);
	3321	mnuNotesSpelling.Enabled := ok and SpellCheckAvailable;
	3322	mnuNotesGrammar.Enabled := ok and SpellCheckAvailable;
	3323	mnuNotesCopy.Enabled := (reNotes.SelLength > 0);
	3324	mnuNotesCut.Enabled := (ok and (reNotes.SelLength > 0));
	3325	mnuNotesSelectAll.Enabled := (reNotes.Lines.Count > 0);
	3326	mnuNotesUndo.Enabled := (reNotes.Perform(EM_CANUNDO, 0, 0) <> 0);
	3327	end;
	3328
	3329	procedure TfrmTemplateEditor.cbNotesClick(Sender: TObject);
[1679]	3330	var
	3331	ScreenPoint: TPoint;
	3332	NewHeight: Integer;
[456]	3333	begin
	3334	pnlNotes.Visible := cbNotes.Checked;
	3335	splNotes.Visible := cbNotes.Checked;
[829]	3336	if cbNotes.Checked then
	3337	begin
	3338	pnlNotes.Height := tmplEditorSplitterNotes;
	3339	pnlNotes.Top := pnlBottom.Top - pnlNotes.Height;
[1679]	3340	splNotes.Top := pnlNotes.Top - 3;
	3341	if pnlGroupBP.Height <= pnlGroupBP.Constraints.MinHeight then begin
	3342	//Clear the points
	3343	ScreenPoint.Y := 0;
	3344	ScreenPoint.X := 0;
	3345	if pnlNotes.ClientToScreen(ScreenPoint).Y + 30 > pnlBottom.Top then begin
	3346	if pnlNotes.ClientToScreen(ScreenPoint).Y > pnlBottom.Top then
	3347	NewHeight := pnlNotes.Height + (pnlNotes.ClientToScreen(ScreenPoint).Y - pnlBottom.Top)
	3348	else
	3349	NewHeight := pnlNotes.Height - (pnlNotes.ClientToScreen(ScreenPoint).Y - pnlBottom.Top);
	3350	Reboil.Height := Reboil.Height - (NewHeight + 10);
	3351	PnlNotes.Constraints.MinHeight := 30;
	3352	pnlNotes.Height := PnlNotes.Constraints.MinHeight;
	3353	if reboil.Height = reboil.Constraints.MinHeight then
	3354	PnlTop.height := PnlTop.height - 100;
	3355	end;
	3356	end;
	3357	end else begin
	3358	pnlNotes.Constraints.MinHeight := 1;
	3359	pnlNotes.Height := 1;
[829]	3360	end;
[456]	3361	pnlBoilerplateResize(Self);
	3362	end;
	3363
	3364	procedure TfrmTemplateEditor.cbDisplayOnlyClick(Sender: TObject);
	3365	begin
	3366	cbClick(TCheckBox(Sender), BPDisplayOnlyFld);
	3367	end;
	3368
	3369	procedure TfrmTemplateEditor.cbFirstLineClick(Sender: TObject);
	3370	begin
	3371	cbClick(TCheckBox(Sender), BPFirstLineFld);
	3372	end;
	3373
	3374	procedure TfrmTemplateEditor.cbOneItemOnlyClick(Sender: TObject);
	3375	begin
	3376	cbClick(TCheckBox(Sender), BPOneItemOnlyFld);
	3377	end;
	3378
	3379	procedure TfrmTemplateEditor.cbHideDlgItemsClick(Sender: TObject);
	3380	begin
	3381	cbClick(TCheckBox(Sender), BPHideDlgItemsFld);
	3382	end;
	3383
	3384	procedure TfrmTemplateEditor.cbHideItemsClick(Sender: TObject);
	3385	begin
	3386	cbClick(TCheckBox(Sender), BPHideItemsFld);
	3387	end;
	3388
	3389	procedure TfrmTemplateEditor.cbClick(Sender: TCheckBox; Index: integer);
	3390	var
	3391	Template: TTemplate;
[1679]	3392
[456]	3393	begin
[1679]	3394	if ((not FUpdating) and (assigned(FCurTree)) and (assigned(FCurTree.Selected))) then
[456]	3395	begin
	3396	if CanClone(FCurTree.Selected) then
	3397	begin
	3398	Clone(FCurTree.Selected);
	3399	Template := TTemplate(FCurTree.Selected.Data);
	3400	if assigned(Template) and Template.CanModify then
	3401	begin
	3402	case Index of
[1679]	3403	BPDisplayOnlyFld: Template.DisplayOnly := Sender.Checked;
	3404	BPFirstLineFld: Template.FirstLine := Sender.Checked;
	3405	BPOneItemOnlyFld: Template.OneItemOnly := Sender.Checked;
	3406	BPHideDlgItemsFld: Template.HideDlgItems := Sender.Checked;
	3407	BPHideItemsFld: Template.HideItems := Sender.Checked;
	3408	BPIndentFld: Template.IndentItems := Sender.Checked;
	3409	BPLockFld: Template.Lock := Sender.Checked;
[456]	3410	end;
	3411	UpdateApply(Template);
	3412	end;
	3413	end;
	3414	end;
	3415	end;
	3416
	3417	procedure TfrmTemplateEditor.cbIndentClick(Sender: TObject);
	3418	begin
	3419	cbClick(TCheckBox(Sender), BPIndentFld);
	3420	end;
	3421
	3422	procedure TfrmTemplateEditor.mnuToolsClick(Sender: TObject);
	3423	begin
	3424	mnuEditTemplateFields.Enabled := CanEditTemplateFields;
	3425	mnuImportTemplate.Enabled := btnNew.Enabled;
	3426	mnuExportTemplate.Enabled := (assigned(FCurTree) and assigned(FCurTree.Selected) and
[1679]	3427	assigned(FCurTree.Selected.Data));
[456]	3428	end;
	3429
	3430	procedure TfrmTemplateEditor.mnuEditTemplateFieldsClick(Sender: TObject);
	3431	begin
	3432	if assigned(frmTemplateObjects) then
	3433	frmTemplateObjects.Hide;
	3434	if assigned(frmTemplateFields) then
	3435	frmTemplateFields.Hide;
	3436	if EditDialogFields and assigned(frmTemplateFields) then
	3437	FreeAndNil(frmTemplateFields);
	3438	end;
	3439
	3440	procedure TfrmTemplateEditor.mnuBPInsertFieldClick(Sender: TObject);
	3441	begin
[1679]	3442	if (not assigned(frmTemplateFields)) then
[456]	3443	begin
	3444	frmTemplateFields := TfrmTemplateFields.Create(Self);
	3445	frmTemplateFields.Font := Font;
	3446	frmTemplateFields.re := reBoil;
	3447	frmTemplateFields.AutoLongLines := AutoLongLines;
	3448	end;
	3449	frmTemplateFields.Show;
	3450	end;
	3451
	3452	procedure TfrmTemplateEditor.UpdateInsertsDialogs;
	3453	begin
	3454	if assigned(frmTemplateObjects) then
	3455	frmTemplateObjects.UpdateStatus;
	3456	if assigned(frmTemplateFields) then
	3457	frmTemplateFields.UpdateStatus;
	3458	end;
	3459
	3460	procedure TfrmTemplateEditor.mnuExportTemplateClick(Sender: TObject);
	3461	var
	3462	Tmpl, Flds: TStringList;
	3463	i: integer;
	3464	XMLDoc: IXMLDOMDocument;
	3465	err: boolean;
	3466
	3467	begin
	3468	err := FALSE;
[1679]	3469	if (assigned(FCurTree) and assigned(FCurTree.Selected) and assigned(FCurTree.Selected.Data)) then
[456]	3470	begin
	3471	dlgExport.FileName := ValidFileName(TTemplate(FCurTree.Selected.Data).PrintName);
	3472	if dlgExport.Execute then
	3473	begin
	3474	Tmpl := TStringList.Create;
	3475	try
	3476	Flds := TStringList.Create;
	3477	try
[1679]	3478	Tmpl.Add('<' + XMLHeader + '>');
[456]	3479	if TTemplate(FCurTree.Selected.Data).CanExportXML(Tmpl, Flds, 2) then
	3480	begin
	3481	if (Flds.Count > 0) then begin
	3482	ExpandEmbeddedFields(Flds);
[829]	3483	FastAssign(ExportTemplateFields(Flds), Flds);
[1679]	3484	for i := 0 to Flds.Count - 1 do
[456]	3485	Flds[i] := ' ' + Flds[i];
[829]	3486	FastAddStrings(Flds, Tmpl);
[456]	3487	end; {if}
[1679]	3488	Tmpl.Add('</' + XMLHeader + '>');
[456]	3489	try
	3490	XMLDoc := CoDOMDocument.Create;
	3491	try
	3492	XMLDoc.preserveWhiteSpace := TRUE;
	3493	XMLDoc.LoadXML(Tmpl.Text);
	3494	XMLDoc.Save(dlgExport.FileName);
	3495	finally
	3496	XMLDoc := nil;
	3497	end;
	3498	except
	3499	InfoBox(Format(NoIE5, ['Export']), NoIE5Header, MB_OK);
	3500	err := TRUE;
	3501	end;
	3502	if not err then
	3503	InfoBox('Template ' + TTemplate(FCurTree.Selected.Data).PrintName +
[1679]	3504	' Exported.', 'Template Exported', MB_OK);
[456]	3505	end;
	3506	finally
	3507	Flds.Free;
	3508	end;
	3509	finally
	3510	Tmpl.Free;
	3511	end;
	3512	end;
	3513	end;
	3514	end;
	3515
	3516	procedure TfrmTemplateEditor.mnuImportTemplateClick(Sender: TObject);
	3517	const
	3518	Filter1 = 'Template Files\|*.txml';
	3519	WordFilter = '\|Word Documents\|.doc;.dot';
	3520	Filter2 = '\|XML Files\|.xml\|All Files\|.*';
	3521
	3522	var
	3523	XMLDoc: IXMLDOMDocument;
	3524	RootElement: IXMLDOMElement;
	3525	ImportedTemplate: TTemplate;
	3526	AppData, Flds, ResultSet: TStringList;
[1679]	3527	tmp, j, p3: string;
[456]	3528	err, ok, changes, xmlerr: boolean;
	3529	i: integer;
	3530	choice: word;
	3531
	3532	procedure ClearFields;
	3533	begin
	3534	Flds.Text := '';
	3535	ResultSet.Text := '';
	3536	end;
	3537
	3538	begin
	3539	tmp := Filter1;
	3540	err := FALSE;
	3541	if WordImportActive then
	3542	tmp := tmp + WordFilter;
	3543	tmp := tmp + Filter2;
	3544	dlgImport.Filter := tmp;
	3545	if btnNew.Enabled and dlgImport.Execute then
	3546	begin
	3547	tmp := ExtractFileExt(dlgImport.FileName);
[1679]	3548	if (WordImportActive and ((CompareText(tmp, '.doc') = 0) or
	3549	(CompareText(tmp, '.dot') = 0))) then
[456]	3550	AppData := TStringList.Create
	3551	else
	3552	AppData := nil;
	3553	try
	3554	try
	3555	XMLDoc := CoDOMDocument.Create;
	3556	except
	3557	InfoBox(Format(NoIE5, ['Import']), NoIE5Header, MB_OK);
	3558	exit;
	3559	end;
	3560	try
	3561	if assigned(AppData) then
	3562	begin
	3563	try
	3564	ok := GetXMLFromWord(dlgImport.FileName, AppData);
	3565	except
	3566	ok := FALSE;
	3567	err := TRUE;
	3568	end;
	3569	end
	3570	else
	3571	ok := TRUE;
	3572	if ok and assigned(XMLDoc) then
	3573	begin
	3574	XMLDoc.preserveWhiteSpace := TRUE;
	3575	if assigned(AppData) then
	3576	XMLDoc.LoadXML(AppData.Text)
	3577	else
	3578	XMLDoc.Load(dlgImport.FileName);
	3579	RootElement := XMLDoc.DocumentElement;
	3580	if not assigned(RootElement) then
	3581	XMLImportError(0);
	3582	try
[1679]	3583	if (RootElement.tagName <> XMLHeader) then
[456]	3584	XMLImportError(0)
	3585	else
	3586	begin
	3587	ImportedTemplate := nil;
	3588	FXMLTemplateElement := FindXMLElement(RootElement, XMLTemplateTag);
	3589	if assigned(FXMLTemplateElement) then
	3590	begin
	3591	FXMLFieldElement := FindXMLElement(RootElement, XMLTemplateFieldsTag);
[1679]	3592	if (assigned(FXMLFieldElement)) then
[456]	3593	begin
	3594	Flds := TStringList.Create;
	3595	ResultSet := TStringList.Create;
	3596	try
	3597	Flds.Text := FXMLFieldElement.Get_XML;
	3598	choice := IDOK;
	3599	changes := FALSE;
	3600	Application.ProcessMessages;
[1679]	3601	if not BuildTemplateFields(Flds) then //Calls RPC to transfer all field XML
	3602	choice := IDCANCEL; //for processing
[456]	3603	Flds.Text := '';
	3604	Application.ProcessMessages;
	3605	if choice = IDOK then
	3606	CheckTemplateFields(Flds);
	3607	if Flds.Count > 0 then
[1679]	3608	begin
	3609	for i := 1 to Flds.Count do
[456]	3610	begin
[1679]	3611	j := piece(Flds[i - 1], U, 2);
	3612	if (j = '0') or (j = '2') then
	3613	begin
	3614	p3 := piece(Flds[i - 1], U, 3);
	3615	if p3 = 'XML FORMAT ERROR' then
	3616	choice := IDCANCEL;
	3617	changes := TRUE;
	3618	if j = '2' then begin
	3619	j := Flds[i - 1];
	3620	SetPiece(j, U, 2, '1');
	3621	Flds[i - 1] := j
[456]	3622	end;
[1679]	3623	end;
	3624	end;
	3625	end
[456]	3626	else
	3627	choice := IDCANCEL;
	3628	if choice <> IDOK then
[1679]	3629	InfoBox(iMessage2 + iMessage3, 'Error', MB_OK or MB_ICONERROR)
[456]	3630	else
[1679]	3631	if (not CanEditTemplateFields) and
	3632	changes {(there is at least one new field)} then
	3633	begin
	3634	choice := InfoBox(iMessage, 'Warning', MB_OKCANCEL or MB_ICONWARNING);
	3635	Flds.Text := '';
	3636	end;
[456]	3637	if choice <> IDCANCEL then
[1679]	3638	begin
[456]	3639	FImportingFromXML := TRUE;
	3640	try
	3641	btnNewClick(Self);
	3642	ImportedTemplate := TTemplate(FBtnNewNode.Data);
	3643	finally
	3644	FImportingFromXML := FALSE;
	3645	end; {try}
	3646	Application.ProcessMessages;
	3647	if assigned(ImportedTemplate) and (Flds.Count > 0) then
	3648	if not ImportLoadedFields(ResultSet) then begin
[1679]	3649	InfoBox(iMessage2 + iMessage3, 'Error', MB_OK or MB_ICONERROR);
[456]	3650	ClearFields;
	3651	choice := IDCANCEL;
[1679]	3652	end; //if
[456]	3653	if Flds.Count = 0 then
	3654	choice := IDCANCEL;
[1679]	3655	end {if choice <> mrCancel}
[456]	3656	else
	3657	ClearFields;
	3658
	3659	xmlerr := FALSE;
	3660	if (Flds.Count > 0) and
[1679]	3661	(ResultSet.Count > 0) and
	3662	(Flds.Count = ResultSet.Count) then
	3663	for i := 0 to Flds.Count - 1 do begin
	3664	if piece(ResultSet[i], U, 2) = '0' then begin
	3665	j := piece(Flds[i], U, 1) + U + '0' + U + piece(ResultSet[i], U, 3);
[456]	3666	Flds[i] := j;
	3667	end
	3668	end
	3669	else
	3670	xmlerr := TRUE;
	3671
	3672	if xmlerr and (choice <> IDCANCEL) then begin
	3673	InfoBox(iMessage2, 'Warning', MB_OK or MB_ICONWARNING);
	3674	ClearFields;
	3675	end;
	3676
	3677	i := 0;
	3678	while (i < Flds.Count) do begin
	3679	if Piece(Flds[i], U, 2) <> '0' then
	3680	Flds.Delete(i)
	3681	else
	3682	inc(i);
[1679]	3683	end; //while
	3684	if (Flds.Count > 0) then
[456]	3685	begin
	3686	if assigned(frmTemplateFields) then
	3687	FreeAndNil(frmTemplateFields);
	3688	ImportedTemplate.UpdateImportedFieldNames(Flds);
	3689	if not assigned(AppData) then
	3690	begin
[1679]	3691	for i := 0 to Flds.Count - 1 do
	3692	Flds[i] := ' Field "' + Piece(Flds[i], U, 1) + '" has been renamed to "' +
	3693	Piece(Flds[i], U, 3) + '"';
[456]	3694	if Flds.Count = 1 then
	3695	tmp := 'A template field has'
	3696	else
	3697	tmp := IntToStr(Flds.Count) + ' template fields have';
[1679]	3698	Flds.Insert(0, tmp + ' been imported with the same name as');
	3699	Flds.Insert(1, 'existing template fields, but with different field definitions.');
	3700	Flds.Insert(2, 'These imported template fields have been renamed as follows:');
	3701	Flds.Insert(3, '');
[456]	3702	InfoBox(Flds.Text, 'Information', MB_OK or MB_ICONINFORMATION);
	3703	end;
	3704	end;
	3705	finally
	3706	Flds.Free;
	3707	ResultSet.Free;
	3708	end;
	3709	end
	3710	else {There are no fields to consider...}
	3711	begin
	3712	FImportingFromXML := TRUE;
	3713	try
	3714	btnNewClick(Self);
	3715	ImportedTemplate := TTemplate(FBtnNewNode.Data);
	3716	finally
	3717	FImportingFromXML := FALSE;
	3718	end; {try}
	3719	end;
	3720	end;
	3721	if assigned(ImportedTemplate) then
	3722	ShowInfo(FBtnNewNode);
	3723	end;
	3724	finally
	3725	RootElement := nil;
	3726	end;
	3727	end;
	3728	finally
	3729	XMLDoc := nil;
	3730	end;
	3731	finally
	3732	if assigned(AppData) then
	3733	begin
	3734	AppData.Free;
	3735	if err then
[1679]	3736	InfoBox('An error occured while Importing Word Document. Make sure Word is closed and try again.', 'Import Error', MB_OK);
[456]	3737	end;
	3738	end;
	3739	end;
	3740	end;
	3741
	3742	procedure TfrmTemplateEditor.cbxTypeDrawItem(Control: TWinControl;
	3743	Index: Integer; Rect: TRect; State: TOwnerDrawState);
	3744	var
	3745	ImgIdx: integer;
	3746
	3747	begin
	3748	cbxType.Canvas.FillRect(Rect);
	3749	case IdxForced[FForceContainer, Index] of
	3750	tiTemplate: ImgIdx := 4;
[1679]	3751	tiFolder: ImgIdx := 3;
	3752	tiGroup: ImgIdx := 5;
	3753	tiDialog: ImgIdx := 23;
	3754	tiRemDlg: ImgIdx := 27;
	3755	tiCOMObj: ImgIdx := 28;
	3756	else
	3757	ImgIdx := ord(tiNone);
[456]	3758	end;
	3759	if ImgIdx >= 0 then
[1679]	3760	dmodShared.imgTemplates.Draw(cbxType.Canvas, Rect.Left + 1, Rect.Top + 1, ImgIdx);
[456]	3761	if Index >= 0 then
[1679]	3762	cbxType.Canvas.TextOut(Rect.Left + 21, Rect.Top + 2, cbxType.Items[Index]);
[456]	3763	end;
	3764
	3765	procedure TfrmTemplateEditor.cbxTypeChange(Sender: TObject);
	3766	var
[1679]	3767	i, tg: integer;
[456]	3768	Template: TTemplate;
	3769	ttyp: TTemplateType;
	3770	Node: TTreeNode;
	3771	idx: TTypeIndex;
	3772
	3773	begin
[1679]	3774	if ((not FUpdating) and (assigned(FCurTree)) and (assigned(FCurTree.Selected))) then
[456]	3775	begin
	3776	tg := cbxType.ItemIndex;
	3777	if tg >= 0 then
	3778	begin
	3779	if CanClone(FCurTree.Selected) then
	3780	begin
	3781	idx := IdxForced[FForceContainer, tg];
[1679]	3782	if (idx = tiRemDlg) and (not (GetLinkType(FCurTree.Selected) in [ltNone, ltTitle])) then
[456]	3783	begin
	3784	FUpdating := TRUE;
	3785	try
	3786	cbxType.ItemIndex := ord(tiTemplate);
	3787	finally
	3788	FUpdating := FALSE;
	3789	end;
[829]	3790	ShowMsg('Can not assign a Reminder Dialog to a Reason for Request');
[456]	3791	end
	3792	else
	3793	begin
	3794	Clone(FCurTree.Selected);
	3795	Template := TTemplate(FCurTree.Selected.Data);
	3796	if assigned(Template) and Template.CanModify then
	3797	begin
	3798	ttyp := TypeTag[idx];
[1679]	3799	if (not FForceContainer) or (not (idx in [tiTemplate, tiRemDlg])) then
[456]	3800	begin
[1679]	3801	if (ttyp = ttDialog) then
[456]	3802	begin
	3803	Template.Dialog := TRUE;
	3804	ttyp := ttGroup;
	3805	end
	3806	else
	3807	Template.Dialog := FALSE;
	3808	Template.RealType := ttyp;
[1679]	3809	if (Template.RealType = ttDoc) and (idx = tiRemDlg) then
[456]	3810	Template.IsReminderDialog := TRUE
	3811	else
	3812	Template.IsReminderDialog := FALSE;
[1679]	3813	if (Template.RealType = ttDoc) and (idx = tiCOMObj) then
[456]	3814	Template.IsCOMObject := TRUE
	3815	else
	3816	Template.IsCOMObject := FALSE;
	3817	UpdateApply(Template);
	3818	end;
[1679]	3819	for i := 0 to Template.Nodes.Count - 1 do
[456]	3820	begin
	3821	Node := TTreeNode(Template.Nodes.Objects[i]);
	3822	Node.ImageIndex := dmodShared.ImgIdx(Node);
	3823	Node.SelectedIndex := dmodShared.ImgIdx(Node);
	3824	end;
	3825	tvShared.Invalidate;
	3826	tvPersonal.Invalidate;
	3827	Node := FCurTree.Selected;
	3828	tvTreeChange(TTreeView(Node.TreeView), Node);
	3829	end;
	3830	end;
	3831	end;
	3832	end;
	3833	end;
	3834	end;
	3835
	3836	procedure TfrmTemplateEditor.cbxRemDlgsChange(Sender: TObject);
	3837	var
	3838	Template: TTemplate;
	3839
	3840	begin
[1679]	3841	if ((not FUpdating) and (assigned(FCurTree)) and (assigned(FCurTree.Selected)) and
	3842	FCanDoReminders) then
[456]	3843	begin
	3844	if CanClone(FCurTree.Selected) then
	3845	begin
	3846	Clone(FCurTree.Selected);
	3847	Template := TTemplate(FCurTree.Selected.Data);
	3848	if assigned(Template) and Template.CanModify then
	3849	begin
	3850	if cbxRemDlgs.ItemIndex < 0 then
	3851	Template.ReminderDialog := ''
	3852	else
	3853	Template.ReminderDialog := cbxRemDlgs.Items[cbxRemDlgs.ItemIndex];
	3854	UpdateApply(Template);
	3855	end;
	3856	end;
	3857	end;
	3858	end;
	3859
	3860	procedure TfrmTemplateEditor.mnuTemplateIconLegendClick(Sender: TObject);
	3861	begin
	3862	ShowIconLegend(ilTemplates, TRUE);
	3863	end;
	3864
	3865	procedure TfrmTemplateEditor.cbLongLinesClick(Sender: TObject);
	3866	begin
	3867	pnlBoilerplateResize(Self);
	3868	pnlBoilerplateResize(Self); // Second Call is Needed!
	3869	end;
	3870
	3871	procedure TfrmTemplateEditor.AutoLongLines(Sender: TObject);
	3872	begin
	3873	cbLongLines.Checked := TRUE;
	3874	end;
	3875
[829]	3876	(*procedure TfrmTemplateEditor.UpdatePersonalObjects;
[456]	3877	var
	3878	i: integer;
	3879
	3880	begin
	3881	if not assigned(FPersonalObjects) then
	3882	begin
	3883	FPersonalObjects := TStringList.Create;
	3884	GetAllowedPersonalObjects;
	3885	for i := 0 to RPCBrokerV.Results.Count-1 do
	3886	FPersonalObjects.Add(Piece(RPCBrokerV.Results[i],U,1));
	3887	FPersonalObjects.Sorted := TRUE;
	3888	end;
[829]	3889	end;*)
[456]	3890
	3891	(*function TfrmTemplateEditor.ModifyAllowed(const Node: TTreeNode): boolean;
	3892	var
	3893	tmpl: TTemplate;
	3894
	3895	function GetFirstPersonalNode(Node: TTreeNode): TTreeNode;
	3896	begin
	3897	Result := Node;
	3898	if assigned(Node.Parent) and (TTemplate(Node.Data).PersonalOwner <> User.DUZ) then
	3899	Result := GetFirstPersonalNode(Node.Parent);
	3900	end;
	3901
	3902	begin
	3903	if(assigned(Node)) then
	3904	begin
	3905	if (TTreeView(Node.TreeView) = tvPersonal) then
	3906	Result := TTemplate(GetFirstPersonalNode(Node).Data).CanModify
	3907	else
	3908	Result := TRUE;
	3909	end
	3910	else
	3911	Result := FALSE;
	3912	if Result then
	3913	begin
	3914	tmpl := TTemplate(Node.Data);
	3915	if (tmpl.PersonalOwner = 0) or (tmpl.PersonalOwner = User.DUZ) then
	3916	Result := tmpl.CanModify;
	3917	end;
	3918	end;
	3919	*)
	3920
	3921	{ Returns TRUE if Cloning is not needed or if Cloning is needed and
	3922	the top personal Node in the tree is locked. }
[1679]	3923
[456]	3924	function TfrmTemplateEditor.CanClone(const Node: TTreeNode): boolean;
	3925	var
	3926	Template: TTemplate;
	3927
	3928	function GetFirstPersonalNode(Node: TTreeNode): TTreeNode;
	3929	begin
	3930	Result := Node;
	3931	if assigned(Node.Parent) and (TTemplate(Node.Data).PersonalOwner <> User.DUZ) then
	3932	Result := GetFirstPersonalNode(Node.Parent);
	3933	end;
	3934
	3935	begin
[1679]	3936	if (assigned(Node)) and assigned(Node.Data) then
[456]	3937	begin
	3938	if (TTreeView(Node.TreeView) = tvPersonal) then
	3939	begin
	3940	Template := TTemplate(Node.Data);
	3941	if Template.IsCOMObject or (Template.FileLink <> '') then
	3942	Result := FALSE
	3943	else
	3944	Result := TTemplate(GetFirstPersonalNode(Node).Data).CanModify
	3945	end
	3946	else
	3947	Result := TRUE;
	3948	end
	3949	else
	3950	Result := FALSE;
	3951	end;
	3952
	3953	procedure TfrmTemplateEditor.UpdateApply(Template: TTemplate);
	3954	begin
[1679]	3955	if (not btnApply.Enabled) then
[456]	3956	btnApply.Enabled := Template.Changed;
	3957	end;
	3958
	3959	procedure TfrmTemplateEditor.TemplateLocked(Sender: TObject);
	3960	begin
	3961	Resync([TTemplate(Sender)]);
[829]	3962	ShowMsg(Format(TemplateLockedText, [TTemplate(Sender).PrintName]));
[456]	3963	end;
	3964
	3965	procedure TfrmTemplateEditor.cbLockClick(Sender: TObject);
	3966	begin
	3967	cbClick(TCheckBox(Sender), BPLockFLD);
	3968	end;
	3969
	3970	procedure TfrmTemplateEditor.mnuRefreshClick(Sender: TObject);
	3971	begin
	3972	if btnApply.Enabled then
	3973	begin
	3974	if InfoBox('All changes must be saved before you can Refresh. Save Changes?',
[1679]	3975	'Confirmation', MB_YESNO or MB_ICONQUESTION) <> IDYES then
[456]	3976	exit;
	3977	end;
	3978	btnApplyClick(Sender);
	3979	if BtnApply.Enabled then
	3980	InfoBox('Save not completed - unable to refresh.', 'Error', MB_OK or MB_ICONERROR)
	3981	else
	3982	RefreshData;
	3983	end;
	3984
	3985	procedure TfrmTemplateEditor.RefreshData;
	3986	var
	3987	exp1, exp2, s1, s2, t1, t2: string;
	3988	focus: TWinControl;
	3989
	3990	begin
	3991	focus := FCurTree;
	3992	exp1 := tvShared.GetExpandedIDStr(1, ';');
	3993	exp2 := tvPersonal.GetExpandedIDStr(1, ';');
[1679]	3994	s1 := tvShared.GetNodeID(TORTreeNode(tvShared.Selected), 1, ';');
	3995	s2 := tvPersonal.GetNodeID(TORTreeNode(tvPersonal.Selected), 1, ';');
	3996	t1 := tvShared.GetNodeID(TORTreeNode(tvShared.TopItem), 1, ';');
	3997	t2 := tvPersonal.GetNodeID(TORTreeNode(tvPersonal.TopItem), 1, ';');
[456]	3998	tvPersonal.Items.BeginUpdate;
	3999	try
	4000	tvShared.Items.BeginUpdate;
	4001	try
	4002	ReleaseTemplates;
	4003	tvPersonal.Items.Clear;
	4004	tvShared.Items.Clear;
	4005	InitTrees;
	4006	tvShared.SetExpandedIDStr(1, ';', exp1);
[1679]	4007	tvShared.TopItem := tvShared.FindPieceNode(t1, 1, ';');
	4008	tvShared.Selected := tvShared.FindPieceNode(s1, 1, ';');
[456]	4009	tvPersonal.SetExpandedIDStr(1, ';', exp2);
[1679]	4010	tvPersonal.TopItem := tvPersonal.FindPieceNode(t2, 1, ';');
	4011	tvPersonal.Selected := tvPersonal.FindPieceNode(s2, 1, ';');
[456]	4012	finally
	4013	tvShared.Items.EndUpdate;
	4014	end;
	4015	finally
	4016	tvPersonal.Items.EndUpdate;
	4017	end;
	4018	ActiveControl := focus;
	4019	end;
	4020
	4021	procedure TfrmTemplateEditor.InitTrees;
	4022	begin
	4023	LoadTemplateData;
[1679]	4024	if (not assigned(RootTemplate)) then
	4025	SaveTemplate(AddTemplate('0^R^A^Shared Templates'), -1);
	4026	if (not assigned(MyTemplate)) then
	4027	AddTemplate('0^P^A^My Templates^^^' + IntToStr(User.DUZ));
[456]	4028	dmodShared.AddTemplateNode(tvPersonal, FPersonalEmptyNodeCount, MyTemplate);
	4029	dmodShared.AddTemplateNode(tvShared, FSharedEmptyNodeCount, RootTemplate);
	4030	if (UserTemplateAccessLevel = taEditor) then
	4031	begin
	4032	if CanEditLinkType(ttTitles) then
	4033	dmodShared.AddTemplateNode(tvShared, FSharedEmptyNodeCount, TitlesTemplate);
	4034	if CanEditLinkType(ttConsults) then
	4035	dmodShared.AddTemplateNode(tvShared, FSharedEmptyNodeCount, ConsultsTemplate);
	4036	if CanEditLinkType(ttProcedures) then
	4037	dmodShared.AddTemplateNode(tvShared, FSharedEmptyNodeCount, ProceduresTemplate);
	4038	end;
	4039	end;
	4040
	4041	procedure TfrmTemplateEditor.reResizeRequest(Sender: TObject;
	4042	Rect: TRect);
	4043	var
	4044	R: TRect;
	4045
	4046	begin
	4047	R := TRichEdit(Sender).ClientRect;
	4048	if (FLastRect.Right <> R.Right) or
[1679]	4049	(FLastRect.Bottom <> R.Bottom) or
	4050	(FLastRect.Left <> R.Left) or
	4051	(FLastRect.Top <> R.Top) then
[456]	4052	begin
	4053	FLastRect := R;
	4054	pnlBoilerplateResize(Self);
	4055	end;
	4056	end;
	4057
	4058	procedure TfrmTemplateEditor.reBoilSelectionChange(Sender: TObject);
	4059	begin
	4060	UpdateXY(reBoil, lblBoilCol, lblBoilRow);
	4061	end;
	4062
	4063	procedure TfrmTemplateEditor.reGroupBPSelectionChange(Sender: TObject);
	4064	begin
	4065	UpdateXY(reGroupBP, lblGroupCol, lblGroupRow);
	4066	end;
	4067
	4068	procedure TfrmTemplateEditor.UpdateXY(re: TRichEdit; lblX, lblY: TLabel);
	4069	var
	4070	p: TPoint;
	4071
	4072	begin
	4073	p := re.CaretPos;
	4074	lblY.Caption := 'Line: ' + inttostr(p.y + 1);
	4075	lblX.Caption := 'Column: ' + inttostr(p.x + 1);
	4076	end;
	4077
	4078	procedure TfrmTemplateEditor.cbxCOMObjChange(Sender: TObject);
	4079	var
	4080	Template: TTemplate;
	4081
	4082	begin
[1679]	4083	if ((not FUpdating) and (assigned(FCurTree)) and (assigned(FCurTree.Selected)) and
	4084	FCanDoCOMObjects and (FCurTree = tvShared)) then
[456]	4085	begin
	4086	Template := TTemplate(FCurTree.Selected.Data);
	4087	if assigned(Template) and Template.CanModify then
	4088	begin
	4089	if cbxCOMObj.ItemIndex < 0 then
	4090	Template.COMObject := 0
	4091	else
	4092	Template.COMObject := cbxCOMObj.ItemID;
	4093	UpdateApply(Template);
	4094	end;
	4095	end;
	4096	end;
	4097
	4098	procedure TfrmTemplateEditor.edtCOMParamChange(Sender: TObject);
	4099	var
	4100	Template: TTemplate;
	4101
	4102	begin
[1679]	4103	if ((not FUpdating) and (assigned(FCurTree)) and (assigned(FCurTree.Selected)) and
	4104	FCanDoCOMObjects and (FCurTree = tvShared)) then
[456]	4105	begin
	4106	Template := TTemplate(FCurTree.Selected.Data);
	4107	if assigned(Template) and Template.CanModify then
	4108	begin
	4109	Template.COMParam := edtCOMParam.Text;
	4110	UpdateApply(Template);
	4111	end;
	4112	end;
	4113	end;
	4114
	4115	function TfrmTemplateEditor.GetLinkType(const ANode: TTreeNode): TTemplateLinkType;
	4116	var
	4117	Node: TTreeNode;
	4118
	4119	begin
	4120	Result := ltNone;
	4121	if assigned(ANode) then
	4122	begin
[1679]	4123	if (not assigned(ANode.Data)) or (TTemplate(ANode.Data).RealType <> ttClass) then
[456]	4124	begin
	4125	Node := ANode.Parent;
	4126	repeat
	4127	if assigned(Node) and assigned(Node.Data) then
	4128	begin
	4129	if (TTemplate(Node.Data).FileLink <> '') then
	4130	Node := nil
	4131	else
[1679]	4132	if (TTemplate(Node.Data).RealType in AllTemplateLinkTypes) then
	4133	begin
	4134	case TTemplate(Node.Data).RealType of
	4135	ttTitles: Result := ltTitle;
	4136	ttConsults: Result := ltConsult;
	4137	ttProcedures: Result := ltProcedure;
	4138	end;
	4139	end
	4140	else
	4141	Node := Node.Parent;
[456]	4142	end
	4143	else
	4144	Node := nil;
[1679]	4145	until (Result <> ltNone) or (not assigned(Node));
[456]	4146	end;
	4147	end;
	4148	end;
	4149
	4150	procedure TfrmTemplateEditor.cbxLinkNeedData(Sender: TObject;
[1679]	4151	const StartFrom: string; Direction, InsertAt: Integer);
[456]	4152	var
	4153	tmpSL: TStringList;
	4154	i: integer;
	4155	tmp: string;
	4156
	4157	begin
	4158	tmpSL := TStringList.Create;
	4159	try
	4160	case TTemplateLinkType(pnlLink.Tag) of
[1679]	4161	ltTitle: FastAssign(SubSetOfAllTitles(StartFrom, Direction), tmpSL);
[456]	4162	// ltConsult:
	4163	ltProcedure:
	4164	begin
[829]	4165	FastAssign(SubSetOfProcedures(StartFrom, Direction), tmpSL);
[1679]	4166	for i := 0 to tmpSL.Count - 1 do
[456]	4167	begin
	4168	tmp := tmpSL[i];
[1679]	4169	setpiece(tmp, U, 1, piece(piece(tmp, U, 4), ';', 1));
[456]	4170	tmpSL[i] := tmp;
	4171	end;
	4172	end;
	4173	end;
	4174	cbxLink.ForDataUse(tmpSL);
	4175	finally
	4176	tmpSL.Free;
	4177	end;
	4178	end;
	4179
[1679]	4180	procedure TfrmTemplateEditor.cbxLinkExit(Sender: TObject);
[456]	4181	var
[1679]	4182	Template, LinkTemplate: TTemplate;
[829]	4183	update: boolean;
[456]	4184
	4185	begin
[1679]	4186	if ((not FUpdating) and (assigned(FCurTree)) and (assigned(FCurTree.Selected)) and
	4187	(FCurTree = tvShared)) then
[456]	4188	begin
	4189	Template := TTemplate(FCurTree.Selected.Data);
	4190	if assigned(Template) and Template.CanModify then
	4191	begin
[829]	4192	update := true;
[456]	4193	if cbxLink.ItemIEN > 0 then
	4194	begin
	4195	LinkTemplate := GetLinkedTemplate(cbxLink.ItemID, TTemplateLinkType(pnlLink.tag));
	4196	if (assigned(LinkTemplate) and (LinkTemplate <> Template)) then
	4197	begin
[829]	4198	ShowMsg(GetLinkName(cbxLink.ItemID, TTemplateLinkType(pnlLink.tag)) +
[1679]	4199	' is already assigned to another template.');
	4200	cbxLink.SetFocus;
[829]	4201	cbxLink.SelectByID(Template.LinkIEN);
	4202	update := False;
	4203	end
	4204	else
	4205	begin
	4206	Template.FileLink := ConvertFileLink(cbxLink.ItemID, TTemplateLinkType(pnlLink.tag));
	4207	if Template.LinkName <> '' then
[1679]	4208	edtName.Text := copy(Template.LinkName, 1, edtName.MaxLength);
[456]	4209	end;
	4210	end
	4211	else
	4212	Template.FileLink := '';
[829]	4213	if update then
	4214	UpdateApply(Template);
[456]	4215	end;
	4216	end;
	4217	end;
	4218
	4219	procedure TfrmTemplateEditor.reBoilKeyUp(Sender: TObject; var Key: Word;
	4220	Shift: TShiftState);
	4221	begin
	4222	if FNavigatingTab then
	4223	begin
	4224	if ssShift in Shift then
	4225	FindNextControl(Sender as TWinControl, False, True, False).SetFocus //previous control
[1679]	4226	else if ssCtrl in Shift then
[456]	4227	FindNextControl(Sender as TWinControl, True, True, False).SetFocus; //next control
	4228	FNavigatingTab := False;
	4229	end;
	4230	if (key = VK_ESCAPE) then begin
	4231	FindNextControl(Sender as TWinControl, False, True, False).SetFocus; //previous control
	4232	key := 0;
	4233	end;
	4234	end;
	4235
	4236	procedure TfrmTemplateEditor.reBoilKeyPress(Sender: TObject;
	4237	var Key: Char);
	4238	begin
	4239	if FNavigatingTab then
[1679]	4240	Key := #0; //Disable shift-tab processinend;
[456]	4241	end;
	4242
	4243	procedure TfrmTemplateEditor.reBoilKeyDown(Sender: TObject; var Key: Word;
	4244	Shift: TShiftState);
	4245	begin
	4246	//The navigating tab controls were inadvertantently adding tab characters
	4247	//This should fix it
[1679]	4248	FNavigatingTab := (Key = VK_TAB) and ([ssShift, ssCtrl] * Shift <> []);
[456]	4249	if FNavigatingTab then
	4250	Key := 0;
	4251	end;
	4252
	4253	end.
	4254

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

Context Navigation

source: cprs/trunk/CPRS-Chart/Templates/fTemplateEditor.pas@ 1803

Download in other formats: