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

IDE: code explorer: jump to proc header

Browse Source 
git-svn-id: trunk@26322 -
This commit is contained in:
mattias 2010-06-29 13:47:48 +00:00
parent ffcf94d184
commit bdc25905ce
1 changed files with 14 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
ide/codeexplorer.pas
View File

@ -572,7 +572,7 @@ begin
if CurNode.StartPos>0 then begin
case CurrentPage of
cepCode:
if (CurNode.Desc in AllIdentifierDefinitions)
if (CurNode.Desc in AllIdentifierDefinitions+[ctnProcedure])
and (CurItem.GetNextMultiSelected=nil) then
CanRename:=true;
cepDirectives:
@ -772,7 +772,7 @@ begin
ShowNode:=false;
ShowChilds:=false;
end;
// category mode: put nodes in categories
Category:=cecNone;
if ShowNode
@ -1891,6 +1891,8 @@ var
ACodeTool: TCodeTool;
CurTreeView: TCustomTreeView;
SrcEdit: TSourceEditorInterface;
NewNode: TCodeTreeNode;
p: LongInt;
begin
Result:=false;
CurTreeView:=GetCurrentTreeView;
@ -1911,7 +1913,16 @@ begin
ACodeTool:=nil;
CodeToolBoss.Explore(CodeBuffer,ACodeTool,false);
if ACodeTool=nil then exit;
if not ACodeTool.CleanPosToCaretAndTopLine(CurNode.StartPos,Caret,NewTopLine)
p:=CurNode.StartPos;
NewNode:=ACodeTool.FindDeepestNodeAtPos(p,false);
if NewNode<>nil then begin
if (NewNode.Desc=ctnProcedure)
and (NewNode.FirstChild<>nil)
and (NewNode.FirstChild.Desc=ctnProcedureHead)
and (NewNode.FirstChild.StartPos>p) then
p:=NewNode.FirstChild.StartPos;
end;
if not ACodeTool.CleanPosToCaretAndTopLine(p,Caret,NewTopLine)
then exit;
end;
cepDirectives: