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

SynEdit: Fixed double width chars $3000-$303E which were not detected correctly.

Browse Source 
git-svn-id: trunk@45019 -
This commit is contained in:
martin 2014-05-12 19:58:07 +00:00
parent 34371d34aa
commit 8d0980f7f9
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/synedit/synedittextdoublewidthchars.pas
View File

@ -84,6 +84,8 @@ begin
end; end;
#$e3: #$e3:
case Line[1] of case Line[1] of
#$80:
if (Line[2] >= #$80) and (Line[2] <= #$be) then PWidths^ := 2;
#$81: #$81:
if (Line[2] >= #$81) then PWidths^ := 2; if (Line[2] >= #$81) then PWidths^ := 2;
#$82..#$8e: #$82..#$8e: