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

IDE: identifier completion: showing only inheritance for interfaces and records

Browse Source 
git-svn-id: trunk@24745 -
This commit is contained in:
mattias 2010-04-20 16:32:42 +00:00
parent bce545c4f8
commit 4b7199fe91
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
ide/sourceeditprocs.pas
View File

@ -364,19 +364,27 @@ begin
ANode:=IdentItem.Tool.FindTypeNodeOfDefinition(ItemNode);
s:=' = ';
case ANode.Desc of
ctnClass,ctnObject,ctnObjCClass,ctnCPPClass:
ctnClass,ctnObject,ctnObjCClass,ctnObjCCategory,
ctnCPPClass,
ctnClassInterface,ctnObjCProtocol,ctnDispinterface:
begin
case ANode.Desc of
ctnClass: s:=s+'class';
ctnObject: s:=s+'object';
ctnObjCClass: s:=s+'objcclass';
ctnObjCCategory: s:=s+'objccategory';
ctnCPPClass: s:=s+'cppclass';
ctnClassInterface: s:=s+'interface';
ctnObjCProtocol: s:=s+'objcprotocol';
ctnDispinterface: s:=s+'dispinterface';
end;
IdentItem.Tool.BuildSubTree(ANode);
SubNode:=IdentItem.Tool.FindInheritanceNode(ANode);
if SubNode<>nil then
s:=s+IdentItem.Tool.ExtractNode(SubNode,[]);
end;
ctnRecordType:
s:=s+'record';
else
s:=s+IdentItem.Tool.ExtractNode(ANode,[]);
end;