paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-01 18:53:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: findreferences: when on proc body search proc interface

Browse Source 
git-svn-id: trunk@41133 -
This commit is contained in:
mattias 2013-05-11 19:29:04 +00:00
parent d3fc959f04
commit 186067a9f8
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
components/codetools/finddeclarationtool.pas
View File

@ -1504,6 +1504,15 @@ begin
else
NewNode:=CursorNode;
end;
if (CursorNode.Desc=ctnProcedureHead)
and (NodeIsMethodBody(CursorNode.Parent)) then begin
// if this is a procedure body, try to find the corresponding declaration
NewNode:=FindCorrespondingProcNode(CursorNode.Parent);
if (NewNode<>nil) and (NewNode.StartPos<CursorNode.StartPos) then
CleanCursorPos:=NewNode.StartPos
else
NewNode:=CursorNode;
end;
Result:=JumpToCleanPos(CleanCursorPos,CleanCursorPos,CleanCursorPos,
NewPos,NewTopLine,false);