mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-17 15:39:30 +02:00
codetools: identifier completion: do not show protected member when gather context is in another unit, more Delphi compatible, patch #18888
git-svn-id: trunk@29744 -
This commit is contained in:
parent
672a743b6d
commit
a43c70c21f
@ -2021,12 +2021,12 @@ begin
|
|||||||
end else if CursorNode.Desc in AllSourceTypes then begin
|
end else if CursorNode.Desc in AllSourceTypes then begin
|
||||||
GatherSourceNames(GatherContext);
|
GatherSourceNames(GatherContext);
|
||||||
end else begin
|
end else begin
|
||||||
// find class and ancestors if existing (needed for protected identifiers)
|
|
||||||
FindContextClassAndAncestors(IdentStartXY,FICTClassAndAncestors);
|
|
||||||
|
|
||||||
FindCollectionContext(Params,IdentStartPos,CursorNode,
|
FindCollectionContext(Params,IdentStartPos,CursorNode,
|
||||||
GatherContext,ContextExprStartPos,StartInSubContext);
|
GatherContext,ContextExprStartPos,StartInSubContext);
|
||||||
if ContextExprStartPos=0 then ;
|
|
||||||
|
// find class and ancestors if existing (needed for protected identifiers)
|
||||||
|
if GatherContext.Tool = Self then
|
||||||
|
FindContextClassAndAncestors(IdentStartXY, FICTClassAndAncestors);
|
||||||
|
|
||||||
CursorContext:=CreateFindContext(Self,CursorNode);
|
CursorContext:=CreateFindContext(Self,CursorNode);
|
||||||
GatherContextKeywords(CursorContext,IdentStartPos);
|
GatherContextKeywords(CursorContext,IdentStartPos);
|
||||||
|
Loading…
Reference in New Issue
Block a user