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

SynEdit, small optimization in double width char handling

Browse Source 
git-svn-id: trunk@25926 -
This commit is contained in:
martin 2010-06-05 16:19:14 +00:00
parent 72131e1b79
commit 6e4ce19314
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/synedit/synedittextdoublewidthchars.pas
View File

@ -63,8 +63,9 @@ begin
for i := 0 to LineLen - 1 do begin for i := 0 to LineLen - 1 do begin
inc(Line); inc(Line);
inc(PWidths); inc(PWidths);
if Line^ < #$e1 then continue;
if PWidths^ = 0 then continue; if PWidths^ = 0 then continue;
case Line[0] of case Line^ of
#$e1: #$e1:
case Line[1] of case Line[1] of
#$84: #$84: