paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-27 10:20:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: fixed scanning section of cursor

Browse Source 
git-svn-id: trunk@29792 -
This commit is contained in:
mattias 2011-03-11 06:49:19 +00:00
parent ae61921ef1
commit 4d9418b4b6
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/codetools/pascalparsertool.pas
View File

@ -4641,8 +4641,11 @@ begin
if (Node<>nil) and (Node.EndPos>CleanCursorPos) then begin if (Node<>nil) and (Node.EndPos>CleanCursorPos) then begin
// cursor in scanned range // cursor in scanned range
ScanRange:=ScannedRange; ScanRange:=ScannedRange;
if (TreeRange=trTillCursorSection) and (ScanRange<>lsrEnd) then if (TreeRange=trTillCursorSection) then
inc(ScanRange); if ScanRange<=lsrImplementationStart then
ScanRange:=lsrImplementationStart
else
ScanRange:=lsrEnd;
end; end;
end; end;
end; end;