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

SynEdit: Improve painting. Issue #0022926. (Do not scan into next token)

Browse Source 
git-svn-id: trunk@38830 -
This commit is contained in:
martin 2012-09-25 22:50:32 +00:00
parent 7eacd9d711
commit afde8b8111
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/synedit/lazsyntextarea.pp
View File

@ -395,7 +395,7 @@ begin
repeat
inc(LogicIdx);
inc(i);
until (LogicIdx >= CharWidthsLen) or ((FCharWidths[LogicIdx] and PCWMask) <> 0);
until (LogicIdx >= CharWidthsLen) or (LogicIdx >= LogicEnd) or ((FCharWidths[LogicIdx] and PCWMask) <> 0);
end;
Assert(PhysPos > FCurViewToken.PhysicalStart, 'PhysPos > FCurViewToken.PhysicalStart');