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

Codetools: Support Codecompletion inside "with begin end" block. May fix other cases, too. Issue #0023782, patch from jefferywa.

Browse Source 
git-svn-id: trunk@62470 -
This commit is contained in:
juha 2019-12-30 13:59:12 +00:00
parent 56b70571c9
commit 29d750ae6a
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/codetools/finddeclarationtool.pas
View File

@ -7490,6 +7490,7 @@ function TFindDeclarationTool.FindAncestorOfClassInheritance(
var var
InheritanceNode: TCodeTreeNode; InheritanceNode: TCodeTreeNode;
ClassNode: TCodeTreeNode; ClassNode: TCodeTreeNode;
SpecializeNode : TCodeTreeNode;
AncestorContext: TFindContext; AncestorContext: TFindContext;
AncestorStartPos: LongInt; AncestorStartPos: LongInt;
ExprType: TExpressionType; ExprType: TExpressionType;
@ -7569,9 +7570,14 @@ begin
if (AncestorContext.Node.Desc in [ctnTypeDefinition,ctnGenericType]) then if (AncestorContext.Node.Desc in [ctnTypeDefinition,ctnGenericType]) then
begin begin
Params:=TFindDeclarationParams.Create; Params:=TFindDeclarationParams.Create;
if IdentifierNode.Desc=ctnSpecialize then begin
SpecializeNode:=IdentifierNode;
Params.SetGenericParamValues(Self, SpecializeNode);
end;
try try
Params.Flags:=fdfDefaultForExpressions+[fdfFindChildren]; Params.Flags:=fdfDefaultForExpressions+[fdfFindChildren];
AncestorContext:=AncestorContext.Tool.FindBaseTypeOfNode(Params,AncestorContext.Node); AncestorContext:=AncestorContext.Tool.FindBaseTypeOfNode(Params,AncestorContext.Node);
ResultParams.GenParams:=Params.GenParams;
finally finally
Params.Free; Params.Free;
end; end;