paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-07 13:37:32 +01:00
Code Issues Packages Projects Releases Wiki Activity

codetools: fixed find nested ancestor of nested class

Browse Source 
git-svn-id: trunk@48537 -
This commit is contained in:
mattias 2015-03-30 16:23:22 +00:00
parent 7ccc5ec2cf
commit ca91821012
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/finddeclarationtool.pas
View File

@ -5842,7 +5842,7 @@ begin
Params:=TFindDeclarationParams.Create; Params:=TFindDeclarationParams.Create;
try try
Params.Flags:=fdfDefaultForExpressions-[fdfSearchInAncestors]; Params.Flags:=fdfDefaultForExpressions;
Params.ContextNode:=IdentifierNode; Params.ContextNode:=IdentifierNode;
if CurPos.Flag in [cafRoundBracketClose,cafComma] then begin if CurPos.Flag in [cafRoundBracketClose,cafComma] then begin
// simple identifier // simple identifier