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

codetools: fixed identifier completion in top level node

Browse Source 
git-svn-id: trunk@19797 -
This commit is contained in:
mattias 2009-05-04 11:47:10 +00:00
parent b41d00e4e3
commit 9f6417e73c
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/codetools/identcompletiontool.pas
View File

@ -1410,7 +1410,9 @@ begin
GatherContext.Node:=GatherContext.Node.Parent;
end
else if (GatherContext.Node.Desc=ctnClassInheritance)
or (GatherContext.Node.Parent.Desc=ctnClassInheritance) then begin
or ((GatherContext.Node.Parent<>nil)
and (GatherContext.Node.Parent.Desc=ctnClassInheritance))
then begin
while not (GatherContext.Node.Desc in [ctnClass,ctnClassInterface]) do
GatherContext.Node:=GatherContext.Node.Parent;
GatherContext.Node:=GatherContext.Node.Parent;