From e231ac6cbfb2b46e1018b200ac8134db18e9eef9 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sun, 18 Aug 2002 16:50:01 +0000
Subject: [PATCH] fixed real number recognition

git-svn-id: trunk@3149 -
---
 components/codetools/codecompletiontool.pas | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/components/codetools/codecompletiontool.pas b/components/codetools/codecompletiontool.pas
index 9ae844573e..5c504c3da7 100644
--- a/components/codetools/codecompletiontool.pas
+++ b/components/codetools/codecompletiontool.pas
@@ -2072,15 +2072,13 @@ var CleanCursorPos, Indent, insertPos: integer;
       FullTopLvlName:='';
       Params.OnTopLvlIdentifierFound:=@OnTopLvlIdentifierFound;
       Params.Flags:=[fdfSearchInParentNodes,fdfSearchInAncestors,
-                     fdfTopLvlResolving,fdfFindVariable]
-                    +fdfAllClassVisibilities;
+                     fdfTopLvlResolving,fdfFindVariable];
       if (not FindDeclarationOfIdentAtCursor(Params))
       or (Params.NewNode.Desc<>ctnProperty) then exit;
       PropertyContext:=CreateFindContext(Params);
       // identifier is property
       // -> check type of property
-      Params.Flags:=[fdfSearchInParentNodes,fdfSearchInAncestors]
-                    +fdfAllClassVisibilities;
+      Params.Flags:=[fdfSearchInParentNodes,fdfSearchInAncestors];
       ProcContext:=PropertyContext.Tool.FindBaseTypeOfNode(
                                                  Params,PropertyContext.Node);
       if (ProcContext.Node=nil) or (ProcContext.Node.Desc<>ctnProcedureType)