paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-22 23:19:17 +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

3
components/codetools/codecompletiontool.pas
View File

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