paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-11 04:48:03 +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
InheritanceNode: TCodeTreeNode;
ClassNode: TCodeTreeNode;
SpecializeNode : TCodeTreeNode;
AncestorContext: TFindContext;
AncestorStartPos: LongInt;
ExprType: TExpressionType;
@ -7569,9 +7570,14 @@ begin
if (AncestorContext.Node.Desc in [ctnTypeDefinition,ctnGenericType]) then
begin
Params:=TFindDeclarationParams.Create;
if IdentifierNode.Desc=ctnSpecialize then begin
SpecializeNode:=IdentifierNode;
Params.SetGenericParamValues(Self, SpecializeNode);
end;
try
Params.Flags:=fdfDefaultForExpressions+[fdfFindChildren];
AncestorContext:=AncestorContext.Tool.FindBaseTypeOfNode(Params,AncestorContext.Node);
ResultParams.GenParams:=Params.GenParams;
finally
Params.Free;
end;