From 4b7199fe916ecf46859ffd526ce211c56acaeb06 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Tue, 20 Apr 2010 16:32:42 +0000
Subject: [PATCH] IDE: identifier completion: showing only inheritance for
 interfaces and records

git-svn-id: trunk@24745 -
---
 ide/sourceeditprocs.pas | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/ide/sourceeditprocs.pas b/ide/sourceeditprocs.pas
index edd38a1b50..0201dc1e19 100644
--- a/ide/sourceeditprocs.pas
+++ b/ide/sourceeditprocs.pas
@@ -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;