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

codetools: code completion: fixed finding existing method declarations in class interfaces

Browse Source 
git-svn-id: trunk@13340 -
This commit is contained in:
mattias 2007-12-15 13:10:23 +00:00
parent c436ebb4f4
commit 1253f0d3a0
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/codetools/codecompletiontool.pas
View File

@ -317,7 +317,10 @@ begin
FreeClassInsertionList;
FCodeCompleteClassNode:=AClassNode;
BuildSubTreeForClass(FCodeCompleteClassNode);
FCompletingStartNode:=FCodeCompleteClassNode.FirstChild;
if FCodeCompleteClassNode.Desc=ctnClassInterface then
FCompletingStartNode:=FCodeCompleteClassNode
else
FCompletingStartNode:=FCodeCompleteClassNode.FirstChild;
while (FCompletingStartNode<>nil) and (FCompletingStartNode.FirstChild=nil) do
FCompletingStartNode:=FCompletingStartNode.NextBrother;
if FCompletingStartNode<>nil then