From 4d9418b4b63d5011e05a9b23a07e55ea4b8be34c Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Fri, 11 Mar 2011 06:49:19 +0000
Subject: [PATCH] codetools: fixed scanning section of cursor

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

diff --git a/components/codetools/pascalparsertool.pas b/components/codetools/pascalparsertool.pas
index 92b18f2cbc..659410fdfe 100644
--- a/components/codetools/pascalparsertool.pas
+++ b/components/codetools/pascalparsertool.pas
@@ -4641,8 +4641,11 @@ begin
         if (Node<>nil) and (Node.EndPos>CleanCursorPos) then begin
           // cursor in scanned range
           ScanRange:=ScannedRange;
-          if (TreeRange=trTillCursorSection) and (ScanRange<>lsrEnd) then
-            inc(ScanRange);
+          if (TreeRange=trTillCursorSection) then
+            if ScanRange<=lsrImplementationStart then
+              ScanRange:=lsrImplementationStart
+            else
+              ScanRange:=lsrEnd;
         end;
       end;
     end;