mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-17 17:39:20 +02:00
codetools: GetSmartHint: add inheritance
git-svn-id: trunk@37083 -
This commit is contained in:
parent
e158e14d5b
commit
b5a7e440c9
@ -2277,6 +2277,9 @@ begin
|
||||
MoveCursorToNodeStart(TypeNode);
|
||||
ReadNextAtom;
|
||||
Result+=GetAtom;
|
||||
if (TypeNode.FirstChild<>nil)
|
||||
and (TypeNode.FirstChild.Desc = ctnClassInheritance) then
|
||||
Result += ExtractNode(TypeNode.FirstChild, []);
|
||||
end;
|
||||
ctnConstant:
|
||||
begin
|
||||
|
Loading…
Reference in New Issue
Block a user