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

codetools: go to real class declaration for fsfSkipClassForward. Issue #29515

Browse Source 
git-svn-id: trunk@51423 -
This commit is contained in:
ondrej 2016-01-26 18:19:34 +00:00
parent 61dcce50a6
commit f2bfc63670
1 changed files with 24 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
components/codetools/finddeclarationtool.pas
View File

@ -1910,16 +1910,25 @@ var
Params: TFindDeclarationParams;
DirectSearch, SkipChecks, SearchForward: boolean;
procedure CheckIfCursorOnAForwardDefinedClass;
function CheckIfNodeIsForwardDefinedClass(ANode: TCodeTreeNode;
ATool: TFindDeclarationTool): Boolean;
var
TypeNode: TCodeTreeNode;
begin
if SkipChecks then exit;
if not (CursorNode.Desc in [ctnTypeDefinition,ctnGenericType]) then exit;
TypeNode:=FindTypeNodeOfDefinition(CursorNode);
Result := False;
if not (ANode.Desc in [ctnTypeDefinition,ctnGenericType]) then exit;
TypeNode:=ATool.FindTypeNodeOfDefinition(ANode);
if (TypeNode<>nil)
and (TypeNode.Desc in AllClasses)
and ((TypeNode.SubDesc and ctnsForwardDeclaration)>0) then
and ((TypeNode.SubDesc and ctnsForwardDeclaration)>0)
then
Result := True;
end;
procedure CheckIfCursorOnAForwardDefinedClass;
begin
if SkipChecks then exit;
if CheckIfNodeIsForwardDefinedClass(CursorNode, Self) then
begin
DirectSearch:=true;
SearchForward:=true;
@ -1927,13 +1936,6 @@ var
end;
end;
procedure CheckIfCursorInTypeNode;
begin
if (CursorNode.Desc in AllIdentifierDefinitions)
and (fsfSkipClassForward in SearchSmartFlags) then
Exclude(SearchSmartFlags,fsfSkipClassForward);
end;
procedure CheckIfCursorInClassNode;
begin
if SkipChecks then exit;
@ -2083,6 +2085,7 @@ var
CursorAtIdentifier: boolean;
IdentifierStart: PChar;
LineRange: TLineRange;
ForwardXY: TCodeXYPosition;
begin
Result:=false;
NewExprType:=CleanExpressionType;
@ -2226,7 +2229,6 @@ begin
SearchForward:=false;
CheckIfCursorOnAForwardDefinedClass;
CheckIfCursorInClassNode;
CheckIfCursorInTypeNode;
CheckIfCursorInProcNode;
CheckIfCursorInPropertyNode;
// set cursor on identifier
@ -2263,6 +2265,15 @@ begin
Result:=FindIdentifierInContext(Params);
if Result then
begin
// if we skip forward class definitions and we found one -> proceed search!
if (fsfSkipClassForward in SearchSmartFlags)
and CheckIfNodeIsForwardDefinedClass(Params.NewNode, Params.NewCodeTool)
and Params.NewCodeTool.CleanPosToCaret(Params.NewNode.StartPos, ForwardXY)
and Params.NewCodeTool.FindDeclaration(ForwardXY, SearchSmartFlags-[fsfSkipClassForward],
NewExprType, NewPos, NewTopLine)
then
Exit(True);
NewExprType.Desc:=xtContext;
NewExprType.Context.Node:=Params.NewNode;
NewExprType.Context.Tool:=Params.NewCodeTool;