From f23aae7dabf8aab1622d607b3bdfe32ecb189b2e Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Wed, 27 May 2009 12:31:36 +0000
Subject: [PATCH] codetools: added option to not search for overloads when
 cursor on definition

git-svn-id: trunk@20262 -
---
 components/codetools/finddeclarationtool.pas | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/components/codetools/finddeclarationtool.pas b/components/codetools/finddeclarationtool.pas
index 28fcaad889..60bb8d7769 100644
--- a/components/codetools/finddeclarationtool.pas
+++ b/components/codetools/finddeclarationtool.pas
@@ -531,7 +531,8 @@ type
 
   TFindDeclarationListFlag = (
     fdlfWithoutEmptyProperties, // omit properties without type and attributes
-    fdlfWithoutForwards         // omit foward classes and procedures
+    fdlfWithoutForwards,        // omit foward classes and procedures
+    fdlfIfStartIsDefinitionStop // omit overloads when start is a definition
     );
   TFindDeclarationListFlags = set of TFindDeclarationListFlag;
   
@@ -3551,6 +3552,7 @@ var
   OldPositions: TFPList;
   NodeList: TFPList;
   CleanPos: integer;
+  AtDefinition: Boolean;
 
   procedure AddPos;
   begin
@@ -3606,8 +3608,11 @@ begin
     NewTool:=Self;
     NewNode:=BuildSubTreeAndFindDeepestNodeAtPos(CleanPos,true);
     NewPos:=CursorPos;
-    if StartPositionAtDefinition then
+    AtDefinition:=StartPositionAtDefinition;
+    if AtDefinition then begin
       AddPos;
+      if fdlfIfStartIsDefinitionStop in Flags then exit;
+    end;
 
     CurCursorPos:=CursorPos;
     CurTool:=Self;