paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-05 00:37:11 +01:00
Code Issues Packages Projects Releases Wiki Activity

codetools: smart hints: showing class visibility for methods

Browse Source 
git-svn-id: trunk@21316 -
This commit is contained in:
mattias 2009-08-19 12:00:02 +00:00
parent 87d2bb5e22
commit 21561f9d31
1 changed files with 19 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
components/codetools/finddeclarationtool.pas
View File

@ -2014,7 +2014,7 @@ function TFindDeclarationTool.FindSmartHint(const CursorPos: TCodeXYPosition
): string;
var
NewTool: TFindDeclarationTool;
NewNode, IdentNode, TypeNode: TCodeTreeNode;
NewNode, IdentNode, TypeNode, ANode: TCodeTreeNode;
NewPos: TCodeXYPosition;
NewTopLine: integer;
AbsCursorPos: integer;
@ -2036,17 +2036,26 @@ begin
if NewNode<>nil then begin
// class visibility
if NewNode.Parent<>nil then begin
case NewNode.Parent.Desc of
ctnClassPrivate,ctnClassTypePrivate,ctnClassVarPrivate:
Result:=Result+'private ';
ctnClassProtected,ctnClassTypeProtected,ctnClassVarProtected:
Result:=Result+'protected ';
ctnClassPublic,ctnClassTypePublic,ctnClassVarPublic:
Result:=Result+'public ';
ctnClassPublished,ctnClassTypePublished,ctnClassVarPublished:
Result:=Result+'published ';
ANode:=NewNode.Parent;
while ANode<>nil do begin
if ANode.Desc in AllClassSections then begin
case ANode.Desc of
ctnClassPrivate,ctnClassTypePrivate,ctnClassVarPrivate:
Result:=Result+'private ';
ctnClassProtected,ctnClassTypeProtected,ctnClassVarProtected:
Result:=Result+'protected ';
ctnClassPublic,ctnClassTypePublic,ctnClassVarPublic:
Result:=Result+'public ';
ctnClassPublished,ctnClassTypePublished,ctnClassVarPublished:
Result:=Result+'published ';
end;
break;
end else if ANode.Desc in [ctnParameterList,ctnClass,ctnClassInterface] then
break;
ANode:=ANode.Parent;
end;
end;
case NewNode.Desc of
ctnVarDefinition, ctnTypeDefinition, ctnConstDefinition,
ctnEnumIdentifier, ctnGenericType: