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

SynEdit: Improve non utf8 char-set handling (may happen with gtk1). This was broken by DoubleWidthChar handling

Browse Source 
git-svn-id: trunk@18669 -
This commit is contained in:
martin 2009-02-13 20:10:39 +00:00
parent 02251dc4d6
commit 84bfb63537
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/synedit/synedittextdoublewidthchars.pas
View File

@ -54,6 +54,9 @@ var
i: Integer; i: Integer;
begin begin
Result := inherited GetPhysicalCharWidths(Line, Index); Result := inherited GetPhysicalCharWidths(Line, Index);
if not IsUtf8 then
exit;
for i := 0 to length(Line) -1 do begin for i := 0 to length(Line) -1 do begin
if Result[i] = 0 then continue; if Result[i] = 0 then continue;
case Line[i+1] of case Line[i+1] of