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

codetools: fixed wrong tool context in FindClassNodeForLFMObject

Browse Source 
git-svn-id: trunk@13598 -
This commit is contained in:
mattias 2008-01-02 23:35:25 +00:00
parent 0c7e0c2a9b
commit a7dbaa80d2
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/codetools/stdcodetools.pas
View File

@ -1750,7 +1750,7 @@ var
Params.SetIdentifier(StartTool,Identifier,nil); Params.SetIdentifier(StartTool,Identifier,nil);
try try
Params.Save(OldInput); Params.Save(OldInput);
if FindIdentifierInContext(Params) then begin if StartTool.FindIdentifierInContext(Params) then begin
Params.Load(OldInput,true); Params.Load(OldInput,true);
Result:=Params.NewCodeTool.FindBaseTypeOfNode(Params,Params.NewNode); Result:=Params.NewCodeTool.FindBaseTypeOfNode(Params,Params.NewNode);
if (Result.Node=nil) or (Result.Node.Desc<>ctnClass) then if (Result.Node=nil) or (Result.Node.Desc<>ctnClass) then