paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-04 09:24:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: named CTTemplateExpander

Browse Source 
git-svn-id: trunk@45467 -
This commit is contained in:
mattias 2014-06-10 17:11:32 +00:00
parent b6f04cc60c
commit a98eb2b2f4
3 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/codetools/codecompletiontemplater.pas
View File

@ -131,7 +131,7 @@ type
end;
var
Expander : TTemplateExpander; // will be set by CodeToolBoss
CTTemplateExpander : TTemplateExpander; // will be set by CodeToolBoss
implementation

2
components/codetools/codecompletiontool.pas
View File

@ -84,7 +84,7 @@ uses
Classes, SysUtils, FileProcs, CodeToolsStrConsts, CodeTree, CodeAtom,
CodeCache, CustomCodeTool, PascalParserTool, MethodJumpTool,
FindDeclarationTool, KeywordFuncLists, CodeToolsStructs, BasicCodeTools,
LinkScanner, SourceChanger, CodeGraph, AVL_Tree, codecompletiontemplater;
LinkScanner, SourceChanger, CodeGraph, AVL_Tree, CodeCompletionTemplater;
type
TNewClassPart = (ncpPrivateProcs, ncpPrivateVars,

12
components/codetools/codetoolmanager.pas
View File

@ -46,7 +46,7 @@ uses
EventCodeTool, CodeTree, CodeAtom, SourceChanger, DefineTemplates, CodeCache,
ExprEval, LinkScanner, KeywordFuncLists, FindOverloads, CodeBeautifier,
FindDeclarationCache, DirectoryCacher, AVL_Tree,
PPUCodeTools, LFMTrees, DirectivesTree, codecompletiontemplater,
PPUCodeTools, LFMTrees, DirectivesTree, CodeCompletionTemplater,
PascalParserTool, CodeToolsConfig, CustomCodeTool, FindDeclarationTool,
IdentCompletionTool, StdCodeTools, ResourceCodeTool, CodeToolsStructs,
CTUnitGraph, CodeTemplatesTool, ExtractProcTool;
@ -5745,11 +5745,11 @@ begin
else
Code:=nil;
if Code<>nil then begin
if Expander=nil then
Expander:=TTemplateExpander.Create;
Expander.Code:=Code;
if CTTemplateExpander=nil then
CTTemplateExpander:=TTemplateExpander.Create;
CTTemplateExpander.Code:=Code;
end else begin
FreeAndNil(Expander);
FreeAndNil(CTTemplateExpander);
end;
end;
@ -6346,7 +6346,7 @@ finalization
OnFindOwnerOfCodeTreeNode:=nil;
CodeToolBoss.Free;
CodeToolBoss:=nil;
FreeAndNil(Expander);
FreeAndNil(CTTemplateExpander);
{$IFDEF CTDEBUG}
DebugLn('codetoolmanager.pas - finalization finished');
{$ENDIF}