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

codetools: fixed FindMethodNodeInImplementation for program

Browse Source 
git-svn-id: trunk@36969 -
This commit is contained in:
mattias 2012-04-22 10:13:34 +00:00
parent c7543c32cb
commit ca20fbb994
1 changed files with 27 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/codetools/eventcodetool.pas
View File

@ -483,8 +483,9 @@ begin
if (AMethodName='') or (AClassName='') then exit;
if BuildTreeBefore then BuildTree(lsrEnd);
// find implementation node
SectionNode:=FindImplementationNode;
if SectionNode=nil then exit;
SectionNode:=Tree.Root;
while SectionNode<>nil do begin
if SectionNode.Desc in [ctnProgram,ctnImplementation] then begin
ANode:=SectionNode.FirstChild;
{$IFDEF CTDEBUG}
DebugLn('[TEventsCodeTool.FindMethodNodeInImplementation] A AMethodName=',AClassName,'.',AMethodName);
@ -511,6 +512,9 @@ begin
ANode:=ANode.NextBrother;
end;
end;
SectionNode:=SectionNode.NextBrother;
end;
end;
function TEventsCodeTool.FindMethodTypeInfo(ATypeInfo: PTypeInfo;
const AStartUnitName: string): TFindContext;