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,
|
---|
20 | uTemplates, Menus, ImgList, Clipbrd, ToolWin, MenuBar, TypInfo, MSXML_TLB, fBase508Form,
|
---|
21 | VA508AccessibilityManager, VA508ImageListLabeler;
|
---|
22 |
|
---|
23 | type
|
---|
24 | TTemplateTreeControl = (tcDel, tcUp, tcDown, tcLbl, tcCopy);
|
---|
25 | TTemplateTreeType = (ttShared, ttPersonal);
|
---|
26 |
|
---|
27 | TfrmTemplateEditor = class(TfrmBase508Form)
|
---|
28 | splMain: TSplitter;
|
---|
29 | pnlBottom: TPanel;
|
---|
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;
|
---|
194 | imgLblTemplates: TVA508ImageListLabeler;
|
---|
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;
|
---|
214 | procedure btnNewClick(Sender: TObject);
|
---|
215 | procedure btnApplyClick(Sender: TObject);
|
---|
216 | procedure FormCreate(Sender: TObject);
|
---|
217 | procedure cboOwnerNeedData(Sender: TObject; const StartFrom: string;
|
---|
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;
|
---|
235 | var S: string);
|
---|
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);
|
---|
341 | procedure cbxLinkNeedData(Sender: TObject; const StartFrom: string;
|
---|
342 | Direction, InsertAt: Integer);
|
---|
343 | procedure cbxLinkExit(Sender: TObject);
|
---|
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);
|
---|
349 | procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
---|
350 | procedure splMainCanResize(Sender: TObject; var NewSize: Integer;
|
---|
351 | var Accept: Boolean);
|
---|
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;
|
---|
371 | FInternalHiddenExpand: boolean;
|
---|
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;
|
---|
392 | //FPersonalObjects: TStringList;
|
---|
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);
|
---|
422 | //procedure UpdatePersonalObjects;
|
---|
423 | procedure UpdateApply(Template: TTemplate);
|
---|
424 | procedure TemplateLocked(Sender: TObject);
|
---|
425 | procedure InitTrees;
|
---|
426 | procedure AdjustControls4FontChange;
|
---|
427 | procedure ShowGroupBoilerplate(Visible: boolean);
|
---|
428 | function GetLinkType(const ANode: TTreeNode): TTemplateLinkType;
|
---|
429 | end;
|
---|
430 |
|
---|
431 | procedure EditTemplates(Form: TForm; NewTemplate: boolean = FALSE; CopiedText: string = ''; Shared: boolean = FALSE);
|
---|
432 |
|
---|
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 |
|
---|
444 | implementation
|
---|
445 |
|
---|
446 | {$R *.DFM}
|
---|
447 |
|
---|
448 | uses dShared, uCore, rTemplates, fTemplateObjects, uSpell, fTemplateView,
|
---|
449 | fTemplateAutoGen, fDrawers, fTemplateFieldEditor, fTemplateFields, XMLUtils,
|
---|
450 | fIconLegend, uReminders, uConst, rCore, rEventHooks, rConsults, VAUtils,
|
---|
451 | rMisc, fFindingTemplates;
|
---|
452 |
|
---|
453 | const
|
---|
454 | PropText = ' Template Properties ';
|
---|
455 | // GroupTag = 5;
|
---|
456 | BPDisplayOnlyFld = 0;
|
---|
457 | BPFirstLineFld = 1;
|
---|
458 | BPOneItemOnlyFld = 2;
|
---|
459 | BPHideDlgItemsFld = 3;
|
---|
460 | BPHideItemsFld = 4;
|
---|
461 | BPIndentFld = 5;
|
---|
462 | BPLockFld = 6;
|
---|
463 | NoIE5 = 'You must have Internet Explorer 5 or better installed to %s Templates';
|
---|
464 | NoIE5Header = 'Need Internet Explorer 5';
|
---|
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');
|
---|
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);
|
---|
486 | ForcedIdx: array[boolean, TTypeIndex] of integer = ((0, 1, 2, 3, 4, 5), (-1, 0, 1, 2, -1, -1));
|
---|
487 | IdxForced: array[boolean, 0..5] of TTypeIndex = ((tiTemplate, tiFolder, tiGroup, tiDialog, tiRemDlg, tiCOMObj),
|
---|
488 | (tiFolder, tiGroup, tiDialog, tiNone, tiNone, tiNone));
|
---|
489 | iMessage = 'This template has one or more new fields, and you are not authorized to create new fields. ' +
|
---|
490 | 'If you continue, the program will import the new template without the new fields. Do you wish ' +
|
---|
491 | 'to do this?';
|
---|
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;
|
---|
500 | CopiedText: string = ''; Shared: boolean = FALSE);
|
---|
501 | var
|
---|
502 | frmTemplateEditor: TfrmTemplateEditor;
|
---|
503 | Drawers: TFrmDrawers;
|
---|
504 | ExpandStr, SelectStr: string;
|
---|
505 | SelNode: TTreeNode;
|
---|
506 | SelShared: boolean;
|
---|
507 |
|
---|
508 | begin
|
---|
509 | if (UserTemplateAccessLevel in [taReadOnly, taNone]) then exit;
|
---|
510 |
|
---|
511 | ExpandStr := '';
|
---|
512 | SelectStr := '';
|
---|
513 | Drawers := nil;
|
---|
514 | if (not NewTemplate) and (CopiedText = '') then
|
---|
515 | begin
|
---|
516 | if Form is TfrmDrawers then
|
---|
517 | Drawers := TFrmDrawers(Form)
|
---|
518 | else
|
---|
519 | if IsPublishedProp(Form, DrawersProperty) then
|
---|
520 | Drawers := TFrmDrawers(GetOrdProp(Form, DrawersProperty));
|
---|
521 | end;
|
---|
522 |
|
---|
523 | if assigned(Drawers) then
|
---|
524 | begin
|
---|
525 | ExpandStr := Drawers.tvTemplates.GetExpandedIDStr(1, ';');
|
---|
526 | SelectStr := Drawers.tvTemplates.GetNodeID(TORTreeNode(Drawers.tvTemplates.Selected), 1, ';');
|
---|
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);
|
---|
538 | SelNode := tvShared.FindPieceNode(SelectStr, 1, ';');
|
---|
539 | SelShared := assigned(SelNode);
|
---|
540 | dmodShared.ExpandTree(tvPersonal, ExpandStr, FPersonalEmptyNodeCount);
|
---|
541 | if not SelShared then
|
---|
542 | SelNode := tvPersonal.FindPieceNode(SelectStr, 1, ';');
|
---|
543 |
|
---|
544 | if (SelShared and (not Shared)) then
|
---|
545 | Shared := TRUE;
|
---|
546 |
|
---|
547 | if (Shared and (UserTemplateAccessLevel = taEditor)) then
|
---|
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
|
---|
557 | if (not SelShared) and (assigned(SelNode)) then
|
---|
558 | tvPersonal.Selected := SelNode;
|
---|
559 | if (NewTemplate) then
|
---|
560 | begin
|
---|
561 | btnNewClick(frmTemplateEditor);
|
---|
562 | if (CopiedText <> '') then
|
---|
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
|
---|
585 | if ((assigned(FCurTree)) and (assigned(FCurTree.Selected))) then
|
---|
586 | begin
|
---|
587 | if (FCurTree = tvShared) and (FCanEditShared) then
|
---|
588 | ok := TRUE
|
---|
589 | else
|
---|
590 | if (FCurTree = tvPersonal) and (FCanEditPersonal) then
|
---|
591 | ok := TRUE
|
---|
592 | else
|
---|
593 | ok := FALSE;
|
---|
594 | if (ok) then
|
---|
595 | begin
|
---|
596 | Node := FCurTree.Selected;
|
---|
597 | PNode := Node;
|
---|
598 | if (TTemplate(Node.Data).RealType = ttDoc) then
|
---|
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;
|
---|
610 | if (FCurTree = tvShared) then
|
---|
611 | begin
|
---|
612 | ownr := '';
|
---|
613 | ACheckBox := cbShHide;
|
---|
614 | end
|
---|
615 | else
|
---|
616 | begin
|
---|
617 | ownr := IntToStr(User.DUZ);
|
---|
618 | ACheckBox := cbPerHide;
|
---|
619 | end;
|
---|
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
|
---|
627 | Tmp := TTemplate.Create('0^T^A^' + NewTemplateName + '^^^' + ownr);
|
---|
628 | Tmp.BackupItems;
|
---|
629 | Templates.AddObject(Tmp.ID, Tmp);
|
---|
630 | end;
|
---|
631 | btnApply.Enabled := TRUE;
|
---|
632 | if (idx >= Owner.Items.Count) then
|
---|
633 | Owner.Items.Add(Tmp)
|
---|
634 | else
|
---|
635 | Owner.Items.Insert(idx, Tmp);
|
---|
636 | Resync([Owner]);
|
---|
637 | Node := FCurTree.Selected;
|
---|
638 | if (Node.Data <> Tmp) then
|
---|
639 | begin
|
---|
640 | if (TTemplate(Node.Data).RealType = ttDoc) then
|
---|
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;
|
---|
650 | if (FFirstShow) then
|
---|
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
|
---|
665 | if (ScanNames) then
|
---|
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
|
---|
676 | SetFormPosition(Self);
|
---|
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;
|
---|
687 | Application.HintHidePause := FSavePause * 2;
|
---|
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 |
|
---|
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;
|
---|
709 | FTreeControl[ttPersonal, tcDown] := sbPerDown;
|
---|
710 | FTreeControl[ttPersonal, tcLbl] := lblCopy;
|
---|
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;
|
---|
745 | //SetFormPosition(Self);
|
---|
746 | end;
|
---|
747 |
|
---|
748 | procedure TfrmTemplateEditor.HideControls;
|
---|
749 | begin
|
---|
750 | sbCopyRight.Visible := FCanEditPersonal;
|
---|
751 | if (not FCanEditPersonal) then
|
---|
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;
|
---|
762 | const StartFrom: string; Direction, InsertAt: Integer);
|
---|
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);
|
---|
779 | if (FCanEditPersonal <> NewEdit) then
|
---|
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,
|
---|
790 | FPersonalEmptyNodeCount, not cbPerHide.Checked);
|
---|
791 | if (AllowExpansion and FInternalHiddenExpand) then
|
---|
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,
|
---|
799 | FSharedEmptyNodeCount, not cbShHide.Checked);
|
---|
800 | if (AllowExpansion and FInternalHiddenExpand) then
|
---|
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;
|
---|
819 |
|
---|
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
|
---|
828 | if (Template.PersonalOwner = 0) then
|
---|
829 | begin
|
---|
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;
|
---|
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
|
---|
858 | if (Sender = tvPersonal) then
|
---|
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);
|
---|
881 | if (ok and Root) then
|
---|
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);
|
---|
895 | UpdateReadOnlyColorScheme(reNotes, reNotes.ReadOnly);
|
---|
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;
|
---|
913 | UpdateReadOnlyColorScheme(reBoil, not ok);
|
---|
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;
|
---|
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);
|
---|
936 | tmpHeight := (tmpHeight div 2) + tvShared.Top;
|
---|
937 | lblCopy.Top := tmpHeight;
|
---|
938 | inc(tmpHeight, lblCopy.height + 5);
|
---|
939 | if (sbCopyLeft.Visible) then
|
---|
940 | begin
|
---|
941 | sbCopyLeft.Top := tmpHeight;
|
---|
942 | inc(tmpHeight, sbCopyLeft.Height + 5);
|
---|
943 | end;
|
---|
944 | if (sbCopyRight.Visible) then
|
---|
945 | sbCopyRight.Top := tmpHeight;
|
---|
946 | end;
|
---|
947 |
|
---|
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 |
|
---|
959 | procedure TfrmTemplateEditor.splMainMoved(Sender: TObject);
|
---|
960 | begin
|
---|
961 | MoveCopyButtons;
|
---|
962 | end;
|
---|
963 |
|
---|
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;
|
---|
979 | pnlNotes.Constraints.MaxHeight := 0;
|
---|
980 | end;
|
---|
981 | end;
|
---|
982 |
|
---|
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
|
---|
995 | if (assigned(Node)) then
|
---|
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);
|
---|
1005 | if (lt = ltNone) or (IsReminderDialog and (not (lt in [ltNone, ltTitle]))) then
|
---|
1006 | pnlLink.Visible := FALSE
|
---|
1007 | else
|
---|
1008 | begin
|
---|
1009 | pnlLink.Visible := TRUE;
|
---|
1010 | pnlLink.Tag := ord(lt);
|
---|
1011 | case lt of
|
---|
1012 | ltTitle: lts := 'Title';
|
---|
1013 | ltConsult: lts := 'Consult Service';
|
---|
1014 | ltProcedure: lts := 'Procedure';
|
---|
1015 | else lts := '';
|
---|
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;
|
---|
1024 | FastAssign(LoadServiceListWithSynonyms(1), FConsultServices);
|
---|
1025 | SortByPiece(FConsultServices, U, 2);
|
---|
1026 | end;
|
---|
1027 | FastAssign(FConsultServices, cbxLink.Items);
|
---|
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;
|
---|
1042 | if (PersonalOwner = 0) and (FCurTree = tvShared) and (cbEditShared.Checked) then
|
---|
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);
|
---|
1054 | if (RealType in AllTemplateRootTypes) then
|
---|
1055 | begin
|
---|
1056 | ClearRB := TRUE;
|
---|
1057 | ClearAll := TRUE;
|
---|
1058 | end
|
---|
1059 | else
|
---|
1060 | begin
|
---|
1061 | case RealType of
|
---|
1062 | ttDoc: begin
|
---|
1063 | if IsReminderDialog then
|
---|
1064 | Idx := tiRemDlg
|
---|
1065 | else
|
---|
1066 | if IsCOMObject then
|
---|
1067 | Idx := tiCOMObj
|
---|
1068 | else
|
---|
1069 | Idx := tiTemplate;
|
---|
1070 | end;
|
---|
1071 | ttGroup: begin
|
---|
1072 | if (Dialog) then
|
---|
1073 | Idx := tiDialog
|
---|
1074 | else
|
---|
1075 | Idx := tiGroup;
|
---|
1076 | end;
|
---|
1077 | ttClass: Idx := tiFolder;
|
---|
1078 | else Idx := tiNone;
|
---|
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
|
---|
1089 | if (FCanDoReminders or CanDoCOM) then
|
---|
1090 | cbxType.Items.Add('Reminder Dialog');
|
---|
1091 | if (CanDoCOM) then
|
---|
1092 | cbxType.Items.Add('COM Object');
|
---|
1093 | end;
|
---|
1094 | cbxType.ItemIndex := ForcedIdx[FForceContainer, Idx];
|
---|
1095 | if (Idx = tiRemDlg) and FCanDoReminders then
|
---|
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;
|
---|
1116 | if (RealType in [ttClass, ttGroup]) then
|
---|
1117 | cbHideItems.Checked := HideItems
|
---|
1118 | else
|
---|
1119 | begin
|
---|
1120 | cbHideItems.Checked := FALSE;
|
---|
1121 | cbHideItems.Enabled := FALSE;
|
---|
1122 | end;
|
---|
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
|
---|
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;
|
---|
1144 | if (RealType in [ttGroup, ttClass]) and (Children <> tcNone) and
|
---|
1145 | (dmodShared.InDialog(Node)) then
|
---|
1146 | begin
|
---|
1147 | cbOneItemOnly.Checked := OneItemOnly;
|
---|
1148 | cbIndent.Checked := IndentItems;
|
---|
1149 | if (RealType = ttGroup) and (Boilerplate <> '') then
|
---|
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;
|
---|
1168 | if (RealType = ttGroup) then
|
---|
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;
|
---|
1189 | if (ClearName) then
|
---|
1190 | begin
|
---|
1191 | edtName.Text := '';
|
---|
1192 | reNotes.Clear;
|
---|
1193 | end;
|
---|
1194 | if (ClearRB) then
|
---|
1195 | begin
|
---|
1196 | cbxType.ItemIndex := Ord(tiNone);
|
---|
1197 | end;
|
---|
1198 | if (ClearAll) then
|
---|
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;
|
---|
1210 | ShowGroupBoilerplate(False);
|
---|
1211 | pnlBoilerplateResize(Self);
|
---|
1212 | pnlCOM.Visible := FALSE;
|
---|
1213 | pnlLink.Visible := FALSE;
|
---|
1214 | end;
|
---|
1215 | if cbDisplayOnly.Enabled or
|
---|
1216 | cbFirstLine.Enabled or
|
---|
1217 | cbIndent.Enabled or
|
---|
1218 | cbOneItemOnly.Enabled or
|
---|
1219 | cbHideDlgItems.Enabled then
|
---|
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
|
---|
1233 | if (pnlGroupBP.Visible) and (pnlGroupBP.Height > (pnlBoilerplate.Height - 29)) then
|
---|
1234 | begin
|
---|
1235 | pnlGroupBP.Height := pnlBoilerplate.Height - 29;
|
---|
1236 | end;
|
---|
1237 | if cbLongLines.checked then
|
---|
1238 | Max := 240
|
---|
1239 | else
|
---|
1240 | Max := MAX_ENTRY_WIDTH - 1;
|
---|
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
|
---|
1252 | if ((not FUpdating) and (assigned(FCurTree)) and (assigned(FCurTree.Selected))) then
|
---|
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);
|
---|
1262 | for i := 0 to Template.Nodes.Count - 1 do
|
---|
1263 | TTreeNode(Template.Nodes.Objects[i]).Text := Template.PrintName;
|
---|
1264 | if (DoRefresh) then
|
---|
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
|
---|
1281 | if ((not FUpdating) and (assigned(FCurTree)) and (assigned(FCurTree.Selected))) then
|
---|
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);
|
---|
1291 | for i := 0 to Template.Nodes.Count - 1 do
|
---|
1292 | begin
|
---|
1293 | Node := TTreeNode(Template.Nodes.Objects[i]);
|
---|
1294 | Node.Cut := not Template.Active;
|
---|
1295 | end;
|
---|
1296 | if (FCurTree = tvShared) then
|
---|
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
|
---|
1322 | if ((not FUpdating) and (assigned(FCurTree)) and (assigned(FCurTree.Selected))) then
|
---|
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);
|
---|
1332 | for i := 0 to Template.Nodes.Count - 1 do
|
---|
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
|
---|
1351 | if ((not FUpdating) and (assigned(FCurTree)) and (assigned(FCurTree.Selected))) then
|
---|
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);
|
---|
1362 | if (DoRefresh) then
|
---|
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;
|
---|
1380 | if (NewTree <> FCurTree) then
|
---|
1381 | begin
|
---|
1382 | Result := TRUE;
|
---|
1383 | if (assigned(FCurTree)) then
|
---|
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;
|
---|
1390 | if (assigned(FCurTree)) then
|
---|
1391 | begin
|
---|
1392 | FCurTree.HideSelection := FALSE;
|
---|
1393 | if (FCurTree = tvPersonal) and (Screen.ActiveControl = tvShared) then
|
---|
1394 | tvPersonal.SetFocus
|
---|
1395 | else
|
---|
1396 | if (FCurTree = tvShared) and (Screen.ActiveControl = tvPersonal) then
|
---|
1397 | tvShared.SetFocus;
|
---|
1398 | end;
|
---|
1399 | end;
|
---|
1400 |
|
---|
1401 | procedure TfrmTemplateEditor.tvTreeEnter(Sender: TObject);
|
---|
1402 | begin
|
---|
1403 | if ((Sender is TTreeView) and (ChangeTree(TTreeView(Sender)))) then
|
---|
1404 | tvTreeChange(Sender, TTreeView(Sender).Selected);
|
---|
1405 | end;
|
---|
1406 |
|
---|
1407 | procedure TfrmTemplateEditor.tvTreeNodeEdited(Sender: TObject;
|
---|
1408 | Node: TTreeNode; var S: string);
|
---|
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,
|
---|
1437 | FPersonalEmptyNodeCount);
|
---|
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
|
---|
1458 | if (RealType in [ttDoc, ttGroup]) then
|
---|
1459 | begin
|
---|
1460 | TmpSL := TStringList.Create;
|
---|
1461 | try
|
---|
1462 | if (RealType = ttGroup) and (not reBoil.ReadOnly) then
|
---|
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;
|
---|
1472 | for i := 0 to TmpSL.Count - 1 do
|
---|
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;
|
---|
1489 | UpdateReadOnlyColorScheme(reBoil, TRUE);
|
---|
1490 | UpdateInsertsDialogs;
|
---|
1491 | end;
|
---|
1492 | ShowGroupBoilerplate(ItemOK);
|
---|
1493 | if (not ItemOK) and (IsReminderDialog or IsCOMObject) then
|
---|
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;
|
---|
1509 | if (assigned(frmTemplateObjects)) then
|
---|
1510 | begin
|
---|
1511 | frmTemplateObjects.Free;
|
---|
1512 | frmTemplateObjects := nil;
|
---|
1513 | end;
|
---|
1514 | if (assigned(frmTemplateFields)) then
|
---|
1515 | begin
|
---|
1516 | frmTemplateFields.Free;
|
---|
1517 | frmTemplateFields := nil;
|
---|
1518 | end;
|
---|
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 -------------
|
---|
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
|
---|
1545 | if ((assigned(FCurTree)) and (assigned(FCurTree.Selected)) and
|
---|
1546 | (assigned(FCurTree.Selected.Parent))) then
|
---|
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);
|
---|
1554 | if (not ChangeLevel) then
|
---|
1555 | begin
|
---|
1556 | if (TTemplateTreeType(TBitBtn(Sender).Tag) = ttShared) then
|
---|
1557 | Hide := cbShHide.Checked
|
---|
1558 | else
|
---|
1559 | Hide := cbPerHide.Checked;
|
---|
1560 | First := TRUE;
|
---|
1561 | while (idx > 0) do
|
---|
1562 | begin
|
---|
1563 | if First then
|
---|
1564 | begin
|
---|
1565 | ok := FALSE;
|
---|
1566 | First := FALSE;
|
---|
1567 | if CanClone(ParentNode) then
|
---|
1568 | begin
|
---|
1569 | if (Clone(ParentNode)) then
|
---|
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
|
---|
1579 | Template.Items.Exchange(idx - 1, idx);
|
---|
1580 | if (Hide and (not TTemplate(Template.Items[idx]).Active)) then
|
---|
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;
|
---|
1592 | if (ChangeLevel) then
|
---|
1593 | begin
|
---|
1594 | ParentsParent := ParentNode.Parent;
|
---|
1595 | if (assigned(ParentsParent)) then
|
---|
1596 | begin
|
---|
1597 | ParentTemplate := TTemplate(ParentsParent.Data);
|
---|
1598 | if (ParentTemplate.Items.IndexOf(NodeTemplate) >= 0) then
|
---|
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
|
---|
1606 | if (Clone(ParentNode)) then
|
---|
1607 | Template := TTemplate(ParentNode.Data);
|
---|
1608 | if Template.CanModify and CanClone(ParentsParent) then
|
---|
1609 | begin
|
---|
1610 | if (Clone(ParentsParent)) then
|
---|
1611 | ParentTemplate := TTemplate(ParentsParent.Data);
|
---|
1612 | if ParentTemplate.CanModify then
|
---|
1613 | begin
|
---|
1614 | Template.Items.Delete(idx);
|
---|
1615 | idx := ParentTemplate.Items.IndexOf(Template);
|
---|
1616 | if (idx >= 0) then
|
---|
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
|
---|
1645 | if ((assigned(FCurTree)) and (assigned(FCurTree.Selected)) and
|
---|
1646 | (assigned(FCurTree.Selected.Parent))) then
|
---|
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);
|
---|
1653 | max := Template.Items.Count - 1;
|
---|
1654 | ChangeLevel := (idx >= max);
|
---|
1655 | if (not ChangeLevel) then
|
---|
1656 | begin
|
---|
1657 | if (TTemplateTreeType(TBitBtn(Sender).Tag) = ttShared) then
|
---|
1658 | Hide := cbShHide.Checked
|
---|
1659 | else
|
---|
1660 | Hide := cbPerHide.Checked;
|
---|
1661 | First := TRUE;
|
---|
1662 | while (idx < max) do
|
---|
1663 | begin
|
---|
1664 | if First then
|
---|
1665 | begin
|
---|
1666 | ok := FALSE;
|
---|
1667 | First := FALSE;
|
---|
1668 | if CanClone(ParentNode) then
|
---|
1669 | begin
|
---|
1670 | if (Clone(ParentNode)) then
|
---|
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
|
---|
1680 | Template.Items.Exchange(idx, idx + 1);
|
---|
1681 | if (Hide and (not TTemplate(Template.Items[idx]).Active)) then
|
---|
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;
|
---|
1693 | if (ChangeLevel) then
|
---|
1694 | begin
|
---|
1695 | ParentsParent := ParentNode.Parent;
|
---|
1696 | if (assigned(ParentsParent)) then
|
---|
1697 | begin
|
---|
1698 | ParentTemplate := TTemplate(ParentsParent.Data);
|
---|
1699 | if (ParentTemplate.Items.IndexOf(NodeTemplate) >= 0) then
|
---|
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
|
---|
1707 | if (Clone(ParentNode)) then
|
---|
1708 | Template := TTemplate(ParentNode.Data);
|
---|
1709 | if Template.CanModify and CanClone(ParentsParent) then
|
---|
1710 | begin
|
---|
1711 | if (Clone(ParentsParent)) then
|
---|
1712 | ParentTemplate := TTemplate(ParentsParent.Data);
|
---|
1713 | if ParentTemplate.CanModify then
|
---|
1714 | begin
|
---|
1715 | Template.Items.Delete(idx);
|
---|
1716 | idx := ParentTemplate.Items.IndexOf(Template);
|
---|
1717 | if (idx >= 0) then
|
---|
1718 | begin
|
---|
1719 | if (idx = (ParentTemplate.Items.Count - 1)) then
|
---|
1720 | ParentTemplate.Items.Add(NodeTemplate)
|
---|
1721 | else
|
---|
1722 | ParentTemplate.Items.Insert(idx + 1, NodeTemplate);
|
---|
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
|
---|
1748 | if ((assigned(FCurTree)) and (assigned(FCurTree.Selected)) and
|
---|
1749 | (assigned(FCurTree.Selected.Parent))) then
|
---|
1750 | begin
|
---|
1751 | Node := FCurTree.Selected;
|
---|
1752 | Template := TTemplate(Node.Data);
|
---|
1753 | PNode := Node.Parent;
|
---|
1754 | Parent := TTemplate(PNode.Data);
|
---|
1755 | if (AutoDel(Template)) then
|
---|
1756 | DoIt := TRUE
|
---|
1757 | else
|
---|
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
|
---|
1772 | else
|
---|
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
|
---|
1776 | begin
|
---|
1777 | if (Clone(PNode)) then
|
---|
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
|
---|
1800 | if (Assigned(FCurTree)) then
|
---|
1801 | begin
|
---|
1802 | Tree := TTemplateTreeType(FCurTree.Tag);
|
---|
1803 | Node := FCurTree.Selected;
|
---|
1804 | if (Assigned(Node)) then
|
---|
1805 | Curok := (TTemplate(Node.Data).RealType in [ttDoc, ttGroup, ttClass])
|
---|
1806 | else
|
---|
1807 | Curok := FALSE;
|
---|
1808 | if (Curok) then
|
---|
1809 | begin
|
---|
1810 | OldActiveControl := ActiveControl;
|
---|
1811 | FTreeControl[Tree, tcDel].Enabled := TRUE;
|
---|
1812 | AllowSet := FALSE;
|
---|
1813 | if (Node.Index > 0) then
|
---|
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;
|
---|
1822 | if (Node.Index < (Node.Parent.Count - 1)) then
|
---|
1823 | AllowDown := TRUE
|
---|
1824 | else
|
---|
1825 | begin
|
---|
1826 | if (not AllowSet) then
|
---|
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;
|
---|
1834 | FTreeControl[Tree, tcCopy].Enabled := FTreeControl[TTemplateTreeType(1 - ord(Tree)), tcDel].Visible;
|
---|
1835 | if (FTreeControl[Tree, tcCopy].Enabled) then
|
---|
1836 | begin
|
---|
1837 | if (Tree = ttShared) then
|
---|
1838 | Node := tvPersonal.Selected
|
---|
1839 | else
|
---|
1840 | Node := tvShared.Selected;
|
---|
1841 | if (assigned(Node)) then
|
---|
1842 | begin
|
---|
1843 | if (TTemplate(Node.Data).RealType = ttDoc) then
|
---|
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;
|
---|
1857 | if (FCurTree = tvShared) and (FCanEditShared) then
|
---|
1858 | btnNew.Enabled := TRUE
|
---|
1859 | else
|
---|
1860 | if (FCurTree = tvPersonal) and (FCanEditPersonal) then
|
---|
1861 | btnNew.Enabled := TRUE
|
---|
1862 | else
|
---|
1863 | btnNew.Enabled := FALSE;
|
---|
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]);
|
---|
1874 | if (CanDrag) then
|
---|
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;
|
---|
1889 | if (Source is TTreeView) and (assigned(FDragNode)) then
|
---|
1890 | begin
|
---|
1891 | Tree := TTreeView(Sender);
|
---|
1892 | FDropNode := Tree.GetNodeAt(X, Y);
|
---|
1893 | if (((Tree = tvShared) and (FCanEditShared)) or
|
---|
1894 | ((Tree = tvPersonal) and (FCanEditPersonal))) then
|
---|
1895 | begin
|
---|
1896 | if (assigned(FDropNode)) then
|
---|
1897 | begin
|
---|
1898 | FDropInto := (TTemplate(FDropNode.Data).RealType in AllTemplateFolderTypes);
|
---|
1899 | if (FDropInto) then
|
---|
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
|
---|
1917 | if (assigned(FDragNode)) and (assigned(FDropNode)) and (FDragNode <> FDropNode) then
|
---|
1918 | begin
|
---|
1919 | Item := TTemplate(FDragNode.Data);
|
---|
1920 | if (FDropInto) then
|
---|
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;
|
---|
1930 | if (AllowMove(TmpNode, FDragNode) and (idx >= 0)) then
|
---|
1931 | begin
|
---|
1932 | Template := TTemplate(TmpNode.Data);
|
---|
1933 | if (Template <> FDragNode.Parent.Data) and
|
---|
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
|
---|
1944 | if (Clone(TmpNode)) then
|
---|
1945 | Template := TTemplate(TmpNode.Data);
|
---|
1946 | if assigned(Template) and Template.CanModify then
|
---|
1947 | begin
|
---|
1948 | if (Sidx >= 0) and (FDragNode.TreeView = FDropNode.TreeView) and
|
---|
1949 | (not FCopying) then // if same tree delete source
|
---|
1950 | begin
|
---|
1951 | if CanClone(FDragNode.Parent) then
|
---|
1952 | begin
|
---|
1953 | if (Clone(FDragNode.Parent)) then
|
---|
1954 | Src := TTemplate(FDragNode.Parent.Data);
|
---|
1955 | if assigned(Src) and Src.CanModify then
|
---|
1956 | begin
|
---|
1957 | Src.Items.Delete(Sidx);
|
---|
1958 | if (Template = Src) then
|
---|
1959 | Src := nil;
|
---|
1960 | end
|
---|
1961 | else
|
---|
1962 | Src := nil;
|
---|
1963 | end
|
---|
1964 | else
|
---|
1965 | Src := nil;
|
---|
1966 | end
|
---|
1967 | else
|
---|
1968 | Src := nil;
|
---|
1969 | if (idx > 0) then
|
---|
1970 | idx := TTemplate(FDropNode.Parent.Data).Items.IndexOf(FDropNode.Data);
|
---|
1971 | Template.Items.Insert(idx, Item);
|
---|
1972 | if (TTreeView(FDropNode.TreeView) = tvShared) then
|
---|
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];
|
---|
2005 | if (assigned(tmpl)) then
|
---|
2006 | begin
|
---|
2007 | for j := 0 to tmpl.Nodes.Count - 1 do
|
---|
2008 | begin
|
---|
2009 | Node := TTreeNode(tmpl.Nodes.Objects[j]);
|
---|
2010 | if (NodeList.IndexOfObject(Node) < 0) then
|
---|
2011 | begin
|
---|
2012 | NodeID := IntToStr(Node.Level);
|
---|
2013 | NodeID := copy('000', 1, 4 - length(NodeID)) + NodeID + U + tmpl.Nodes[j];
|
---|
2014 | TemplateList.AddObject(NodeID, tmpl);
|
---|
2015 | NodeList.AddObject(NodeId, Node);
|
---|
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 |
|
---|
2026 | for i := 0 to NodeList.Count - 1 do
|
---|
2027 | begin
|
---|
2028 | NodeID := NodeList[i];
|
---|
2029 | Node := TTreeNode(NodeList.Objects[i]);
|
---|
2030 | j := TemplateList.IndexOf(NodeID);
|
---|
2031 | if (j >= 0) then
|
---|
2032 | begin
|
---|
2033 | tmpl := TTemplate(TemplateList.Objects[j]);
|
---|
2034 | NodeID := Piece(NodeID, U, 2);
|
---|
2035 | if (tmpl.Nodes.IndexOf(NodeID) >= 0) then
|
---|
2036 | begin
|
---|
2037 | if (Node.TreeView = tvShared) then
|
---|
2038 | dmodShared.Resync(Node, not cbShHide.Checked, FSharedEmptyNodeCount)
|
---|
2039 | else
|
---|
2040 | if (Node.TreeView = tvPersonal) then
|
---|
2041 | dmodShared.Resync(Node, not cbPerHide.Checked, FPersonalEmptyNodeCount);
|
---|
2042 | end;
|
---|
2043 | end;
|
---|
2044 | end;
|
---|
2045 | finally
|
---|
2046 | TemplateList.Free;
|
---|
2047 | end;
|
---|
2048 | finally
|
---|
2049 | NodeList.Free;
|
---|
2050 | end;
|
---|
2051 | EnableNavControls;
|
---|
2052 | if ((assigned(FCurTree)) and (assigned(FCurTree.Selected))) then
|
---|
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
|
---|
2061 | if (assigned(tvPersonal.Selected)) then
|
---|
2062 | begin
|
---|
2063 | if (not assigned(tvShared.Selected)) then
|
---|
2064 | tvShared.Selected := tvShared.Items.GetFirstNode;
|
---|
2065 | FDragNode := tvPersonal.Selected;
|
---|
2066 | FDropNode := tvShared.Selected;
|
---|
2067 | FDropInto := (TTemplate(FDropNode.Data).RealType in AllTemplateFolderTypes);
|
---|
2068 | tvTreeDragDrop(tvPersonal, tvShared, 0, 0);
|
---|
2069 | end;
|
---|
2070 | end;
|
---|
2071 |
|
---|
2072 | procedure TfrmTemplateEditor.sbCopyRightClick(Sender: TObject);
|
---|
2073 | begin
|
---|
2074 | if (assigned(tvShared.Selected)) then
|
---|
2075 | begin
|
---|
2076 | if (not assigned(tvPersonal.Selected)) then
|
---|
2077 | tvPersonal.Selected := tvPersonal.Items.GetFirstNode;
|
---|
2078 | FDragNode := tvShared.Selected;
|
---|
2079 | FDropNode := tvPersonal.Selected;
|
---|
2080 | FDropInto := (TTemplate(FDropNode.Data).RealType in AllTemplateFolderTypes);
|
---|
2081 | tvTreeDragDrop(tvShared, tvPersonal, 0, 0);
|
---|
2082 | end;
|
---|
2083 | end;
|
---|
2084 |
|
---|
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 |
|
---|
2113 | function TfrmTemplateEditor.AllowMove(ADropNode, ADragNode: TTreeNode): boolean;
|
---|
2114 | var
|
---|
2115 | i: integer;
|
---|
2116 | TmpNode: TTreeNode;
|
---|
2117 | DragTemplate, DropTemplate: TTemplate;
|
---|
2118 |
|
---|
2119 | begin
|
---|
2120 | if (assigned(ADropNode) and assigned(ADragNode)) then
|
---|
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]);
|
---|
2128 | if (Result) then
|
---|
2129 | begin
|
---|
2130 | if (FCopying) then
|
---|
2131 | begin
|
---|
2132 | if (DropTemplate.Items.IndexOf(DragTemplate) >= 0) then
|
---|
2133 | Result := FALSE;
|
---|
2134 | end
|
---|
2135 | else
|
---|
2136 | if ((assigned(ADragNode.Parent)) and (ADropNode <> ADragNode.Parent) and
|
---|
2137 | (DropTemplate.Items.IndexOf(DragTemplate) >= 0)) then
|
---|
2138 | Result := FALSE;
|
---|
2139 | end;
|
---|
2140 | if (Result) then
|
---|
2141 | begin
|
---|
2142 | for i := 0 to DropTemplate.Nodes.Count - 1 do
|
---|
2143 | begin
|
---|
2144 | TmpNode := TTreeNode(DropTemplate.Nodes.Objects[i]);
|
---|
2145 | while (Result and (assigned(TmpNode.Parent))) do
|
---|
2146 | begin
|
---|
2147 | if (TmpNode.Data = DragTemplate) then
|
---|
2148 | Result := FALSE
|
---|
2149 | else
|
---|
2150 | TmpNode := TmpNode.Parent;
|
---|
2151 | end;
|
---|
2152 | if (not Result) then break;
|
---|
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;
|
---|
2169 | if ((assigned(Node)) and (TTreeView(Node.TreeView) = tvPersonal)) then
|
---|
2170 | begin
|
---|
2171 | OldT := TTemplate(Node.Data);
|
---|
2172 | if (OldT.PersonalOwner <> User.DUZ) then
|
---|
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);
|
---|
2197 | if (assigned(Prnt)) then
|
---|
2198 | begin
|
---|
2199 | idx := Prnt.Items.IndexOf(OldT);
|
---|
2200 | if (idx >= 0) then
|
---|
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
|
---|
2218 | if ((not FUpdating) and (assigned(FCurTree)) and (assigned(FCurTree.Selected))) then
|
---|
2219 | begin
|
---|
2220 | Template := TTemplate(FCurTree.Selected.Data);
|
---|
2221 | TmpBPlate := reBoil.Lines.Text;
|
---|
2222 | if (Template.Boilerplate <> TmpBPlate) then
|
---|
2223 | begin
|
---|
2224 | if CanClone(FCurTree.Selected) then
|
---|
2225 | begin
|
---|
2226 | DoRefresh := Clone(FCurTree.Selected);
|
---|
2227 | if (DoRefresh) then
|
---|
2228 | Template := TTemplate(FCurTree.Selected.Data);
|
---|
2229 | if assigned(Template) and Template.CanModify then
|
---|
2230 | begin
|
---|
2231 | DoInfo := FALSE;
|
---|
2232 | if (Template.Boilerplate = '') or (TmpBPlate = '') then
|
---|
2233 | DoInfo := TRUE;
|
---|
2234 | Template.Boilerplate := TmpBPlate;
|
---|
2235 | TTemplate(FCurTree.Selected.Data).Gap := StrToIntDef(edtGap.Text, 0);
|
---|
2236 | if (Template.RealType = ttGroup) then
|
---|
2237 | begin
|
---|
2238 | reGroupBP.Text := Template.FullBoilerplate;
|
---|
2239 | end;
|
---|
2240 | if (DoRefresh) then
|
---|
2241 | begin
|
---|
2242 | tvShared.Invalidate;
|
---|
2243 | tvPersonal.Invalidate;
|
---|
2244 | end;
|
---|
2245 | if (DoInfo) then
|
---|
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;
|
---|
2269 | if (not FCanEditShared) then
|
---|
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);
|
---|
2278 | if FCanEditShared then
|
---|
2279 | AdjustControls4FontChange;
|
---|
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);
|
---|
2301 | if (Tree = tvShared) then
|
---|
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;
|
---|
2314 | mnuCollapseTree.Caption := 'Collapse ' + Txt + ' &Tree';
|
---|
2315 | mnuFindTemplates.Caption := '&Find ' + Txt + ' Templates';
|
---|
2316 |
|
---|
2317 | if (assigned(Tree) and assigned(Tree.Selected) and assigned(Tree.Selected.Data)) then
|
---|
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
|
---|
2321 | (Tree.Selected.HasChildren) and
|
---|
2322 | (Tree.Selected.GetFirstChild.GetNextSibling <> nil);
|
---|
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
|
---|
2337 | if (GetTree = tvShared) then
|
---|
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;
|
---|
2355 | if (Tree = tvShared) then
|
---|
2356 | begin
|
---|
2357 | FFindShOn := not FFindShOn;
|
---|
2358 | pnlShSearch.Visible := FFindShOn;
|
---|
2359 | if (FFindShOn) then
|
---|
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;
|
---|
2369 | if (FFindPerOn) then
|
---|
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
|
---|
2380 | if (Template.PersonalOwner > 0) then
|
---|
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
|
---|
2389 | if (FFromMainMenu) then
|
---|
2390 | Result := FMainMenuTree
|
---|
2391 | else
|
---|
2392 | begin
|
---|
2393 | if (TTemplateTreeType(PopupComponent(popTemplates, popTemplates).Tag) = ttShared) then
|
---|
2394 | Result := tvShared
|
---|
2395 | else
|
---|
2396 | Result := tvPersonal;
|
---|
2397 | end;
|
---|
2398 | end;
|
---|
2399 |
|
---|
2400 | procedure TfrmTemplateEditor.btnFindClick(Sender: TObject);
|
---|
2401 | var
|
---|
2402 | Found: TTreeNode;
|
---|
2403 | edtSearch: TEdit;
|
---|
2404 | IsNext: boolean;
|
---|
2405 | FindNext: boolean;
|
---|
2406 | FindWholeWords: boolean;
|
---|
2407 | FindCase: boolean;
|
---|
2408 | Tree: TTreeView;
|
---|
2409 | LastFoundNode, TmpNode: TTreeNode;
|
---|
2410 | // S1,S2: string;
|
---|
2411 |
|
---|
2412 | begin
|
---|
2413 | if (TTemplateTreeType(TButton(Sender).Tag) = ttShared) then
|
---|
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;
|
---|
2431 | if (edtSearch.text <> '') then
|
---|
2432 | begin
|
---|
2433 | IsNext := ((FindNext) and assigned(LastFoundNode));
|
---|
2434 | if IsNext then
|
---|
2435 |
|
---|
2436 | TmpNode := LastFoundNode
|
---|
2437 | else
|
---|
2438 | TmpNode := Tree.Items.GetFirstNode;
|
---|
2439 | FInternalHiddenExpand := TRUE;
|
---|
2440 | try
|
---|
2441 | Found := FindTemplate(edtSearch.Text, Tree, Self, TmpNode,
|
---|
2442 | IsNext, not FindCase, FindWholeWords);
|
---|
2443 | finally
|
---|
2444 | FInternalHiddenExpand := FALSE;
|
---|
2445 | end;
|
---|
2446 | if Assigned(Found) then
|
---|
2447 | begin
|
---|
2448 | Tree.Selected := Found;
|
---|
2449 | if (Tree = tvShared) then
|
---|
2450 | FLastFoundShNode := Found
|
---|
2451 | else
|
---|
2452 | FLastFoundPerNode := Found;
|
---|
2453 | SetFindNext(Tree, TRUE);
|
---|
2454 | end;
|
---|
2455 | end;
|
---|
2456 | edtSearch.SetFocus;
|
---|
2457 | end;
|
---|
2458 |
|
---|
2459 | procedure TfrmTemplateEditor.edtSearchChange(Sender: TObject);
|
---|
2460 | begin
|
---|
2461 | if (TTemplateTreeType(TEdit(Sender).Tag) = ttShared) then
|
---|
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
|
---|
2475 | if (Tree = tvShared) then
|
---|
2476 | begin
|
---|
2477 | if (FFindShNext <> Value) then
|
---|
2478 | begin
|
---|
2479 | FFindShNext := Value;
|
---|
2480 | if (FFindShNext) then btnShFind.Caption := 'Find Next'
|
---|
2481 | else btnShFind.Caption := 'Find';
|
---|
2482 | end;
|
---|
2483 | end
|
---|
2484 | else
|
---|
2485 | begin
|
---|
2486 | if (FFindPerNext <> Value) then
|
---|
2487 | begin
|
---|
2488 | FFindPerNext := Value;
|
---|
2489 | if (FFindPerNext) then btnPerFind.Caption := 'Find Next'
|
---|
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
|
---|
2517 | if (ScanNames) then
|
---|
2518 | begin
|
---|
2519 | if (SaveAllTemplates) then
|
---|
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
|
---|
2531 | if (FFirstShow) then
|
---|
2532 | begin
|
---|
2533 | FUpdating := FALSE;
|
---|
2534 | FFirstShow := FALSE;
|
---|
2535 | if (FFocusName) then
|
---|
2536 | begin
|
---|
2537 | edtName.SetFocus;
|
---|
2538 | edtName.SelectAll;
|
---|
2539 | end;
|
---|
2540 | pnlBoilerplateResize(Self);
|
---|
2541 | AdjustControls4FontChange;
|
---|
2542 | MoveCopyButtons;
|
---|
2543 | end;
|
---|
2544 | end;
|
---|
2545 |
|
---|
2546 | procedure TfrmTemplateEditor.mnuBPInsertObjectClick(Sender: TObject);
|
---|
2547 | var
|
---|
2548 | i: integer;
|
---|
2549 | DoIt: boolean;
|
---|
2550 |
|
---|
2551 | begin
|
---|
2552 | if (not assigned(frmTemplateObjects)) then
|
---|
2553 | begin
|
---|
2554 | dmodShared.LoadTIUObjects;
|
---|
2555 | frmTemplateObjects := TfrmTemplateObjects.Create(Self);
|
---|
2556 | DoIt := TRUE;
|
---|
2557 | if (UserTemplateAccessLevel <> taEditor) then
|
---|
2558 | begin
|
---|
2559 | UpdatePersonalObjects;
|
---|
2560 | if uPersonalObjects.Count > 0 then // -------- CQ #8665 - RV ------------
|
---|
2561 | begin
|
---|
2562 | DoIt := FALSE;
|
---|
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 ------------
|
---|
2565 | frmTemplateObjects.cboObjects.Items.Add(dmodShared.TIUObjects[i]);
|
---|
2566 | end;
|
---|
2567 | end;
|
---|
2568 | if DoIt then
|
---|
2569 | FastAssign(dmodShared.TIUObjects, frmTemplateObjects.cboObjects.Items);
|
---|
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;
|
---|
2580 | if (reBoil.Lines.Count > 0) then
|
---|
2581 | begin
|
---|
2582 | if (dmodShared.TemplateOK(FCurTree.Selected.Data, 'OK')) then
|
---|
2583 | begin
|
---|
2584 | TestBoilerplate(reBoil.Lines);
|
---|
2585 | if (RPCBrokerV.Results.Count > 0) then
|
---|
2586 | InfoBox('Boilerplate Contains Errors:' + CRLF + CRLF +
|
---|
2587 | RPCBrokerV.Results.Text, 'Error', MB_OK or MB_ICONERROR)
|
---|
2588 | else
|
---|
2589 | begin
|
---|
2590 | FBPOK := TRUE;
|
---|
2591 | if (assigned(Sender)) then
|
---|
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));
|
---|
2608 | if (ok) then
|
---|
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
|
---|
2634 | if (Node.Text <> EmptyNodeText) and (assigned(Node.Data)) then
|
---|
2635 | begin
|
---|
2636 | if (BadTemplateName(Node.Text)) then
|
---|
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);
|
---|
2648 | if (Errors.Count > 0) then
|
---|
2649 | begin
|
---|
2650 | if (Errors.Count > 1) then
|
---|
2651 | msg := IntToStr(Errors.Count) + ' Templates have invalid names'
|
---|
2652 | else
|
---|
2653 | msg := 'Template has an invalid name';
|
---|
2654 | msg := msg + ': ';
|
---|
2655 | for i := 0 to Errors.Count - 1 do
|
---|
2656 | begin
|
---|
2657 | if (i > 0) then msg := msg + ', ';
|
---|
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 |
|
---|
2677 | procedure TfrmTemplateEditor.FormClose(Sender: TObject;
|
---|
2678 | var Action: TCloseAction);
|
---|
2679 | begin
|
---|
2680 | SaveUserBounds(Self);
|
---|
2681 | end;
|
---|
2682 |
|
---|
2683 | procedure TfrmTemplateEditor.FormCloseQuery(Sender: TObject;
|
---|
2684 | var CanClose: Boolean);
|
---|
2685 | var
|
---|
2686 | ans: word;
|
---|
2687 |
|
---|
2688 | begin
|
---|
2689 | if (not FOK2Close) and (BackupDiffers) then
|
---|
2690 | begin
|
---|
2691 | ans := InfoBox('Save Changes?', 'Confirmation', MB_YESNOCANCEL or MB_ICONQUESTION);
|
---|
2692 | if (ans = IDCANCEL) then
|
---|
2693 | CanClose := FALSE
|
---|
2694 | else
|
---|
2695 | if (ans = IDYES) then
|
---|
2696 | begin
|
---|
2697 | CanClose := FALSE;
|
---|
2698 | if (ScanNames) then
|
---|
2699 | begin
|
---|
2700 | if (SaveAllTemplates) then
|
---|
2701 | CanClose := TRUE
|
---|
2702 | else
|
---|
2703 | BtnApply.Enabled := BackupDiffers;
|
---|
2704 | end;
|
---|
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
|
---|
2716 | if pnlBoilerplate.Visible and pnlGroupBP.Visible then
|
---|
2717 | tmplEditorSplitterBoil := reBoil.Height;
|
---|
2718 | if pnlNotes.Visible then
|
---|
2719 | tmplEditorSplitterNotes := pnlNotes.Height;
|
---|
2720 | pnlBoilerplateResize(Self);
|
---|
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;
|
---|
2725 | end;
|
---|
2726 |
|
---|
2727 | procedure TfrmTemplateEditor.edtGapKeyPress(Sender: TObject;
|
---|
2728 | var Key: Char);
|
---|
2729 | begin
|
---|
2730 | if (not (Key in ['0', '1', '2', '3'])) then Key := #0;
|
---|
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));
|
---|
2739 | if (Warn and ((ActiveControl = sbShDelete) or (ActiveControl = sbPerDelete))) then
|
---|
2740 | begin
|
---|
2741 | if ((assigned(FCurTree)) and (assigned(FCurTree.Selected))) then
|
---|
2742 | Warn := not AutoDel(TTemplate(FCurTree.Selected.Data));
|
---|
2743 | end;
|
---|
2744 | if (Warn) then
|
---|
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
|
---|
2763 | if (assigned(FDropNode)) then
|
---|
2764 | begin
|
---|
2765 | TopNode := FDropNode.TreeView.TopItem;
|
---|
2766 | Redraw := FALSE;
|
---|
2767 | TmpPt := FDropNode.TreeView.ScreenToClient(Mouse.CursorPos);
|
---|
2768 | if (TopNode = FDropNode) and (TopNode <> TTreeView(FDropNode.TreeView).Items.GetFirstNode) then
|
---|
2769 | begin
|
---|
2770 | FDropNode.TreeView.TopItem := TopNode.GetPrevVisible;
|
---|
2771 | Redraw := TRUE;
|
---|
2772 | end
|
---|
2773 | else
|
---|
2774 | begin
|
---|
2775 | RMax := FDropNode.TreeView.ClientHeight - EdgeScroll;
|
---|
2776 | if ((TmpPt.Y > RMax) and (FDropNode.GetNextVisible <> nil)) then
|
---|
2777 | begin
|
---|
2778 | TORTreeView(FDropNode.TreeView).VertScrollPos :=
|
---|
2779 | TORTreeView(FDropNode.TreeView).VertScrollPos + 1;
|
---|
2780 | Redraw := TRUE;
|
---|
2781 | end;
|
---|
2782 | end;
|
---|
2783 | if (FLastDropNode <> FDropNode) then
|
---|
2784 | begin
|
---|
2785 | if ((assigned(FDropNode)) and (FDropNode.GetNext = nil)) then
|
---|
2786 | Redraw := TRUE
|
---|
2787 | else
|
---|
2788 | if ((assigned(FLastDropNode)) and (FLastDropNode.GetNext = nil)) then
|
---|
2789 | Redraw := TRUE;
|
---|
2790 | FLastDropNode := FDropNode;
|
---|
2791 | FDragOverCount := 0;
|
---|
2792 | end
|
---|
2793 | else
|
---|
2794 | begin
|
---|
2795 | if (FDropNode.HasChildren) and (not FDropNode.Expanded) then
|
---|
2796 | begin
|
---|
2797 | ht := FDropNode.TreeView.GetHitTestInfoAt(TmpPt.X, TmpPt.Y);
|
---|
2798 | if (htOnButton in ht) then
|
---|
2799 | begin
|
---|
2800 | inc(FDragOverCount);
|
---|
2801 | if (FDragOverCount > 4) then
|
---|
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;
|
---|
2813 | if (not Redraw) then
|
---|
2814 | begin
|
---|
2815 | HPos := TORTreeView(FDropNode.TreeView).HorzScrollPos;
|
---|
2816 | if (HPos > 0) and (TmpPt.X < EdgeScroll) then
|
---|
2817 | begin
|
---|
2818 | TORTreeView(FDropNode.TreeView).HorzScrollPos :=
|
---|
2819 | TORTreeView(FDropNode.TreeView).HorzScrollPos - EdgeScroll;
|
---|
2820 | Redraw := TRUE;
|
---|
2821 | end
|
---|
2822 | else
|
---|
2823 | begin
|
---|
2824 | RMax := FDropNode.TreeView.ClientWidth - EdgeScroll;
|
---|
2825 | if (TmpPt.X > RMax) then
|
---|
2826 | begin
|
---|
2827 | TORTreeView(FDropNode.TreeView).HorzScrollPos :=
|
---|
2828 | TORTreeView(FDropNode.TreeView).HorzScrollPos + EdgeScroll;
|
---|
2829 | Redraw := TRUE;
|
---|
2830 | end;
|
---|
2831 | end;
|
---|
2832 | end;
|
---|
2833 | end;
|
---|
2834 | if (Redraw) then
|
---|
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
|
---|
2899 | if (FCurTree = tvShared) and (sbShDelete.Visible) and (sbShDelete.Enabled) then
|
---|
2900 | sbDeleteClick(sbShDelete)
|
---|
2901 | else
|
---|
2902 | if (FCurTree = tvPersonal) and (sbPerDelete.Visible) and (sbPerDelete.Enabled) then
|
---|
2903 | sbDeleteClick(sbPerDelete);
|
---|
2904 | end;
|
---|
2905 |
|
---|
2906 | procedure TfrmTemplateEditor.mnuNodeCopyClick(Sender: TObject);
|
---|
2907 | begin
|
---|
2908 | if (assigned(FCurTree)) then
|
---|
2909 | FCopyNode := FCurTree.Selected
|
---|
2910 | else
|
---|
2911 | FCopyNode := nil;
|
---|
2912 | end;
|
---|
2913 |
|
---|
2914 | procedure TfrmTemplateEditor.mnuNodePasteClick(Sender: TObject);
|
---|
2915 | begin
|
---|
2916 | if (PasteOK) then
|
---|
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);
|
---|
2938 | if (Result) then
|
---|
2939 | Result := (FTreeControl[TTemplateTreeType(FPasteNode.TreeView.Tag), tcDel].Visible);
|
---|
2940 | if (Result) then
|
---|
2941 | begin
|
---|
2942 | OldCopying := FCopying;
|
---|
2943 | FCopying := TRUE;
|
---|
2944 | try
|
---|
2945 | Node := FPasteNode;
|
---|
2946 | if (TTemplate(Node.Data).RealType = ttDoc) then
|
---|
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 |
|
---|
2964 | if (Key = VK_DELETE) then
|
---|
2965 | begin
|
---|
2966 | if (Sender = tvShared) then
|
---|
2967 | begin
|
---|
2968 | if (sbShDelete.Visible and sbShDelete.Enabled) then
|
---|
2969 | sbDeleteClick(sbShDelete);
|
---|
2970 | end
|
---|
2971 | else
|
---|
2972 | begin
|
---|
2973 | if (sbPerDelete.Visible and sbPerDelete.Enabled) then
|
---|
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
|
---|
2979 | reBoil.SelectAll
|
---|
2980 | else
|
---|
2981 | if (ssCtrl in Shift) and (Key = VK_C) then
|
---|
2982 | reBoil.CopyToClipboard
|
---|
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);
|
---|
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));
|
---|
3024 | if (ok) then
|
---|
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
|
---|
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;
|
---|
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);
|
---|
3064 | if (pnlShSearch.Visible) then edtShSearch.SetFocus;
|
---|
3065 | end;
|
---|
3066 |
|
---|
3067 | procedure TfrmTemplateEditor.cbPerFindOptionClick(Sender: TObject);
|
---|
3068 | begin
|
---|
3069 | SetFindNext(tvPersonal, FALSE);
|
---|
3070 | if (pnlPerSearch.Visible) then edtPerSearch.SetFocus;
|
---|
3071 | end;
|
---|
3072 |
|
---|
3073 | procedure TfrmTemplateEditor.mnuTemplateClick(Sender: TObject);
|
---|
3074 | var
|
---|
3075 | Tree: TTreeView;
|
---|
3076 |
|
---|
3077 | begin
|
---|
3078 | FFromMainMenu := TRUE;
|
---|
3079 | Tree := FCurTree;
|
---|
3080 | if (assigned(Tree) and assigned(Tree.Selected)) then
|
---|
3081 | begin
|
---|
3082 | if (Tree = tvShared) then
|
---|
3083 | mnuTDelete.Enabled := ((sbShDelete.Visible) and (sbShDelete.Enabled))
|
---|
3084 | else
|
---|
3085 | mnuTDelete.Enabled := ((sbPerDelete.Visible) and (sbPerDelete.Enabled));
|
---|
3086 | if (assigned(Tree) and assigned(Tree.Selected) and assigned(Tree.Selected.Data)) then
|
---|
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
|
---|
3090 | (Tree.Selected.HasChildren) and
|
---|
3091 | (Tree.Selected.GetFirstChild.GetNextSibling <> nil);
|
---|
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
|
---|
3142 | if ((cbShMatchCase.Width + cbShWholeWords.Width) > pnlShSearch.Width) then
|
---|
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
|
---|
3150 | if ((cbPerMatchCase.Width + cbPerWholeWords.Width) > pnlPerSearch.Width) then
|
---|
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
|
---|
3163 | pnlMenu.Width := mbMain.Width + 4;
|
---|
3164 | mbMain.Width := pnlMenu.Width - 3;
|
---|
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;
|
---|
3178 | if (assigned(Tree) and assigned(Tree.Selected) and Tree.Selected.HasChildren) then
|
---|
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
|
---|
3189 | if (NewHeight < 40) then Resize := FALSE;
|
---|
3190 | end;
|
---|
3191 |
|
---|
3192 | function TfrmTemplateEditor.AutoDel(Template: TTemplate): boolean;
|
---|
3193 | begin
|
---|
3194 | if (assigned(Template)) then
|
---|
3195 | Result := (((Template.ID = '0') or (Template.ID = '')) and
|
---|
3196 | (Template.PrintName = NewTemplateName) and
|
---|
3197 | (Template.Boilerplate = ''))
|
---|
3198 | else
|
---|
3199 | Result := FALSE;
|
---|
3200 | end;
|
---|
3201 |
|
---|
3202 | procedure TfrmTemplateEditor.mnuBPTryClick(Sender: TObject);
|
---|
3203 | var
|
---|
3204 | R: TRect;
|
---|
3205 | Move: boolean;
|
---|
3206 | tmpl: TTemplate;
|
---|
3207 | txt: string;
|
---|
3208 |
|
---|
3209 | begin
|
---|
3210 | mnuBPErrorCheckClick(nil);
|
---|
3211 | if (FBPOK) or (reBoil.Lines.Count = 0) then
|
---|
3212 | begin
|
---|
3213 | Move := assigned(frmTemplateView);
|
---|
3214 | if (Move) then
|
---|
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;
|
---|
3223 | if (not tmpl.DialogAborted) then
|
---|
3224 | ShowTemplateData(Self, tmpl.PrintName, txt);
|
---|
3225 | if (Move) then
|
---|
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;
|
---|
3238 | GetAutoGenText(AName, AText, uPersonalObjects); // -------- CQ #8665 - RV ------------
|
---|
3239 | if (AName <> '') and (AText <> '') then
|
---|
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
|
---|
3255 | if ((not FUpdating) and (assigned(FCurTree)) and (assigned(FCurTree.Selected))) then
|
---|
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);
|
---|
3265 | if (DoRefresh) then
|
---|
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));
|
---|
3319 | if (ok) then
|
---|
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);
|
---|
3330 | var
|
---|
3331 | ScreenPoint: TPoint;
|
---|
3332 | NewHeight: Integer;
|
---|
3333 | begin
|
---|
3334 | pnlNotes.Visible := cbNotes.Checked;
|
---|
3335 | splNotes.Visible := cbNotes.Checked;
|
---|
3336 | if cbNotes.Checked then
|
---|
3337 | begin
|
---|
3338 | pnlNotes.Height := tmplEditorSplitterNotes;
|
---|
3339 | pnlNotes.Top := pnlBottom.Top - pnlNotes.Height;
|
---|
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;
|
---|
3360 | end;
|
---|
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;
|
---|
3392 |
|
---|
3393 | begin
|
---|
3394 | if ((not FUpdating) and (assigned(FCurTree)) and (assigned(FCurTree.Selected))) then
|
---|
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
|
---|
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;
|
---|
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
|
---|
3427 | assigned(FCurTree.Selected.Data));
|
---|
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
|
---|
3442 | if (not assigned(frmTemplateFields)) then
|
---|
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;
|
---|
3469 | if (assigned(FCurTree) and assigned(FCurTree.Selected) and assigned(FCurTree.Selected.Data)) then
|
---|
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
|
---|
3478 | Tmpl.Add('<' + XMLHeader + '>');
|
---|
3479 | if TTemplate(FCurTree.Selected.Data).CanExportXML(Tmpl, Flds, 2) then
|
---|
3480 | begin
|
---|
3481 | if (Flds.Count > 0) then begin
|
---|
3482 | ExpandEmbeddedFields(Flds);
|
---|
3483 | FastAssign(ExportTemplateFields(Flds), Flds);
|
---|
3484 | for i := 0 to Flds.Count - 1 do
|
---|
3485 | Flds[i] := ' ' + Flds[i];
|
---|
3486 | FastAddStrings(Flds, Tmpl);
|
---|
3487 | end; {if}
|
---|
3488 | Tmpl.Add('</' + XMLHeader + '>');
|
---|
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 +
|
---|
3504 | ' Exported.', 'Template Exported', MB_OK);
|
---|
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;
|
---|
3527 | tmp, j, p3: string;
|
---|
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);
|
---|
3548 | if (WordImportActive and ((CompareText(tmp, '.doc') = 0) or
|
---|
3549 | (CompareText(tmp, '.dot') = 0))) then
|
---|
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
|
---|
3583 | if (RootElement.tagName <> XMLHeader) then
|
---|
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);
|
---|
3592 | if (assigned(FXMLFieldElement)) then
|
---|
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;
|
---|
3601 | if not BuildTemplateFields(Flds) then //Calls RPC to transfer all field XML
|
---|
3602 | choice := IDCANCEL; //for processing
|
---|
3603 | Flds.Text := '';
|
---|
3604 | Application.ProcessMessages;
|
---|
3605 | if choice = IDOK then
|
---|
3606 | CheckTemplateFields(Flds);
|
---|
3607 | if Flds.Count > 0 then
|
---|
3608 | begin
|
---|
3609 | for i := 1 to Flds.Count do
|
---|
3610 | begin
|
---|
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
|
---|
3622 | end;
|
---|
3623 | end;
|
---|
3624 | end;
|
---|
3625 | end
|
---|
3626 | else
|
---|
3627 | choice := IDCANCEL;
|
---|
3628 | if choice <> IDOK then
|
---|
3629 | InfoBox(iMessage2 + iMessage3, 'Error', MB_OK or MB_ICONERROR)
|
---|
3630 | else
|
---|
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;
|
---|
3637 | if choice <> IDCANCEL then
|
---|
3638 | begin
|
---|
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
|
---|
3649 | InfoBox(iMessage2 + iMessage3, 'Error', MB_OK or MB_ICONERROR);
|
---|
3650 | ClearFields;
|
---|
3651 | choice := IDCANCEL;
|
---|
3652 | end; //if
|
---|
3653 | if Flds.Count = 0 then
|
---|
3654 | choice := IDCANCEL;
|
---|
3655 | end {if choice <> mrCancel}
|
---|
3656 | else
|
---|
3657 | ClearFields;
|
---|
3658 |
|
---|
3659 | xmlerr := FALSE;
|
---|
3660 | if (Flds.Count > 0) and
|
---|
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);
|
---|
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);
|
---|
3683 | end; //while
|
---|
3684 | if (Flds.Count > 0) then
|
---|
3685 | begin
|
---|
3686 | if assigned(frmTemplateFields) then
|
---|
3687 | FreeAndNil(frmTemplateFields);
|
---|
3688 | ImportedTemplate.UpdateImportedFieldNames(Flds);
|
---|
3689 | if not assigned(AppData) then
|
---|
3690 | begin
|
---|
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) + '"';
|
---|
3694 | if Flds.Count = 1 then
|
---|
3695 | tmp := 'A template field has'
|
---|
3696 | else
|
---|
3697 | tmp := IntToStr(Flds.Count) + ' template fields have';
|
---|
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, '');
|
---|
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
|
---|
3736 | InfoBox('An error occured while Importing Word Document. Make sure Word is closed and try again.', 'Import Error', MB_OK);
|
---|
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;
|
---|
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);
|
---|
3758 | end;
|
---|
3759 | if ImgIdx >= 0 then
|
---|
3760 | dmodShared.imgTemplates.Draw(cbxType.Canvas, Rect.Left + 1, Rect.Top + 1, ImgIdx);
|
---|
3761 | if Index >= 0 then
|
---|
3762 | cbxType.Canvas.TextOut(Rect.Left + 21, Rect.Top + 2, cbxType.Items[Index]);
|
---|
3763 | end;
|
---|
3764 |
|
---|
3765 | procedure TfrmTemplateEditor.cbxTypeChange(Sender: TObject);
|
---|
3766 | var
|
---|
3767 | i, tg: integer;
|
---|
3768 | Template: TTemplate;
|
---|
3769 | ttyp: TTemplateType;
|
---|
3770 | Node: TTreeNode;
|
---|
3771 | idx: TTypeIndex;
|
---|
3772 |
|
---|
3773 | begin
|
---|
3774 | if ((not FUpdating) and (assigned(FCurTree)) and (assigned(FCurTree.Selected))) then
|
---|
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];
|
---|
3782 | if (idx = tiRemDlg) and (not (GetLinkType(FCurTree.Selected) in [ltNone, ltTitle])) then
|
---|
3783 | begin
|
---|
3784 | FUpdating := TRUE;
|
---|
3785 | try
|
---|
3786 | cbxType.ItemIndex := ord(tiTemplate);
|
---|
3787 | finally
|
---|
3788 | FUpdating := FALSE;
|
---|
3789 | end;
|
---|
3790 | ShowMsg('Can not assign a Reminder Dialog to a Reason for Request');
|
---|
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];
|
---|
3799 | if (not FForceContainer) or (not (idx in [tiTemplate, tiRemDlg])) then
|
---|
3800 | begin
|
---|
3801 | if (ttyp = ttDialog) then
|
---|
3802 | begin
|
---|
3803 | Template.Dialog := TRUE;
|
---|
3804 | ttyp := ttGroup;
|
---|
3805 | end
|
---|
3806 | else
|
---|
3807 | Template.Dialog := FALSE;
|
---|
3808 | Template.RealType := ttyp;
|
---|
3809 | if (Template.RealType = ttDoc) and (idx = tiRemDlg) then
|
---|
3810 | Template.IsReminderDialog := TRUE
|
---|
3811 | else
|
---|
3812 | Template.IsReminderDialog := FALSE;
|
---|
3813 | if (Template.RealType = ttDoc) and (idx = tiCOMObj) then
|
---|
3814 | Template.IsCOMObject := TRUE
|
---|
3815 | else
|
---|
3816 | Template.IsCOMObject := FALSE;
|
---|
3817 | UpdateApply(Template);
|
---|
3818 | end;
|
---|
3819 | for i := 0 to Template.Nodes.Count - 1 do
|
---|
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
|
---|
3841 | if ((not FUpdating) and (assigned(FCurTree)) and (assigned(FCurTree.Selected)) and
|
---|
3842 | FCanDoReminders) then
|
---|
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 |
|
---|
3876 | (*procedure TfrmTemplateEditor.UpdatePersonalObjects;
|
---|
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;
|
---|
3889 | end;*)
|
---|
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. }
|
---|
3923 |
|
---|
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
|
---|
3936 | if (assigned(Node)) and assigned(Node.Data) then
|
---|
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
|
---|
3955 | if (not btnApply.Enabled) then
|
---|
3956 | btnApply.Enabled := Template.Changed;
|
---|
3957 | end;
|
---|
3958 |
|
---|
3959 | procedure TfrmTemplateEditor.TemplateLocked(Sender: TObject);
|
---|
3960 | begin
|
---|
3961 | Resync([TTemplate(Sender)]);
|
---|
3962 | ShowMsg(Format(TemplateLockedText, [TTemplate(Sender).PrintName]));
|
---|
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?',
|
---|
3975 | 'Confirmation', MB_YESNO or MB_ICONQUESTION) <> IDYES then
|
---|
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, ';');
|
---|
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, ';');
|
---|
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);
|
---|
4007 | tvShared.TopItem := tvShared.FindPieceNode(t1, 1, ';');
|
---|
4008 | tvShared.Selected := tvShared.FindPieceNode(s1, 1, ';');
|
---|
4009 | tvPersonal.SetExpandedIDStr(1, ';', exp2);
|
---|
4010 | tvPersonal.TopItem := tvPersonal.FindPieceNode(t2, 1, ';');
|
---|
4011 | tvPersonal.Selected := tvPersonal.FindPieceNode(s2, 1, ';');
|
---|
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;
|
---|
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));
|
---|
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
|
---|
4049 | (FLastRect.Bottom <> R.Bottom) or
|
---|
4050 | (FLastRect.Left <> R.Left) or
|
---|
4051 | (FLastRect.Top <> R.Top) then
|
---|
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
|
---|
4083 | if ((not FUpdating) and (assigned(FCurTree)) and (assigned(FCurTree.Selected)) and
|
---|
4084 | FCanDoCOMObjects and (FCurTree = tvShared)) then
|
---|
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
|
---|
4103 | if ((not FUpdating) and (assigned(FCurTree)) and (assigned(FCurTree.Selected)) and
|
---|
4104 | FCanDoCOMObjects and (FCurTree = tvShared)) then
|
---|
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
|
---|
4123 | if (not assigned(ANode.Data)) or (TTemplate(ANode.Data).RealType <> ttClass) then
|
---|
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
|
---|
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;
|
---|
4142 | end
|
---|
4143 | else
|
---|
4144 | Node := nil;
|
---|
4145 | until (Result <> ltNone) or (not assigned(Node));
|
---|
4146 | end;
|
---|
4147 | end;
|
---|
4148 | end;
|
---|
4149 |
|
---|
4150 | procedure TfrmTemplateEditor.cbxLinkNeedData(Sender: TObject;
|
---|
4151 | const StartFrom: string; Direction, InsertAt: Integer);
|
---|
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
|
---|
4161 | ltTitle: FastAssign(SubSetOfAllTitles(StartFrom, Direction), tmpSL);
|
---|
4162 | // ltConsult:
|
---|
4163 | ltProcedure:
|
---|
4164 | begin
|
---|
4165 | FastAssign(SubSetOfProcedures(StartFrom, Direction), tmpSL);
|
---|
4166 | for i := 0 to tmpSL.Count - 1 do
|
---|
4167 | begin
|
---|
4168 | tmp := tmpSL[i];
|
---|
4169 | setpiece(tmp, U, 1, piece(piece(tmp, U, 4), ';', 1));
|
---|
4170 | tmpSL[i] := tmp;
|
---|
4171 | end;
|
---|
4172 | end;
|
---|
4173 | end;
|
---|
4174 | cbxLink.ForDataUse(tmpSL);
|
---|
4175 | finally
|
---|
4176 | tmpSL.Free;
|
---|
4177 | end;
|
---|
4178 | end;
|
---|
4179 |
|
---|
4180 | procedure TfrmTemplateEditor.cbxLinkExit(Sender: TObject);
|
---|
4181 | var
|
---|
4182 | Template, LinkTemplate: TTemplate;
|
---|
4183 | update: boolean;
|
---|
4184 |
|
---|
4185 | begin
|
---|
4186 | if ((not FUpdating) and (assigned(FCurTree)) and (assigned(FCurTree.Selected)) and
|
---|
4187 | (FCurTree = tvShared)) then
|
---|
4188 | begin
|
---|
4189 | Template := TTemplate(FCurTree.Selected.Data);
|
---|
4190 | if assigned(Template) and Template.CanModify then
|
---|
4191 | begin
|
---|
4192 | update := true;
|
---|
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
|
---|
4198 | ShowMsg(GetLinkName(cbxLink.ItemID, TTemplateLinkType(pnlLink.tag)) +
|
---|
4199 | ' is already assigned to another template.');
|
---|
4200 | cbxLink.SetFocus;
|
---|
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
|
---|
4208 | edtName.Text := copy(Template.LinkName, 1, edtName.MaxLength);
|
---|
4209 | end;
|
---|
4210 | end
|
---|
4211 | else
|
---|
4212 | Template.FileLink := '';
|
---|
4213 | if update then
|
---|
4214 | UpdateApply(Template);
|
---|
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
|
---|
4226 | else if ssCtrl in Shift then
|
---|
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
|
---|
4240 | Key := #0; //Disable shift-tab processinend;
|
---|
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
|
---|
4248 | FNavigatingTab := (Key = VK_TAB) and ([ssShift, ssCtrl] * Shift <> []);
|
---|
4249 | if FNavigatingTab then
|
---|
4250 | Key := 0;
|
---|
4251 | end;
|
---|
4252 |
|
---|
4253 | end.
|
---|
4254 |
|
---|