codetools: fixed scanning section of cursor

git-svn-id: trunk@29792 -
This commit is contained in:
mattias 2011-03-11 06:49:19 +00:00
parent ae61921ef1
commit 4d9418b4b6

View File

@ -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;