From 9df7b33b058e1e076e0940d7b8979f0faf437232 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sun, 27 Jun 2010 17:41:29 +0000
Subject: [PATCH] codetools: identifier completion: added class keywords
 property etc at start of variable

git-svn-id: trunk@26301 -
---
 components/codetools/identcompletiontool.pas | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

diff --git a/components/codetools/identcompletiontool.pas b/components/codetools/identcompletiontool.pas
index f3bbbd05b8..3a0dd495f0 100644
--- a/components/codetools/identcompletiontool.pas
+++ b/components/codetools/identcompletiontool.pas
@@ -1529,6 +1529,7 @@ var
   Node: TCodeTreeNode;
 begin
   Node:=Context.Node;
+  debugln(['TIdentCompletionTool.GatherContextKeywords ',Node.DescAsString]);
   case Node.Desc of
   ctnClass,ctnObject,ctnObjCCategory,ctnObjCClass,
   ctnClassPrivate,ctnClassProtected,ctnClassPublic,ctnClassPublished:
@@ -1576,6 +1577,21 @@ begin
       Add('procedure');
       Add('function');
     end;
+
+  ctnVarDefinition:
+    if Node.Parent.Desc in [ctnClass,ctnObject,ctnObjCCategory,ctnObjCClass]
+      +AllClassBaseSections
+    then begin
+      Add('public');
+      Add('private');
+      Add('protected');
+      Add('published');
+      Add('procedure');
+      Add('function');
+      Add('property');
+      Add('constructor');
+      Add('destructor');
+    end;
   end;
 end;