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

SynEdit: doublewidth / ambiguous width chars: Added IFDEFED workaround. Issue #0027707

Browse Source 
git-svn-id: trunk@48517 -
This commit is contained in:
martin 2015-03-26 22:44:00 +00:00
parent dade590e2a
commit ca1c86d571
1 changed files with 27 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
components/synedit/synedittextdoublewidthchars.pas
View File

@ -33,6 +33,7 @@ unit SynEditTextDoubleWidthChars;
interface
uses
{$ifdef windows}{$IFDEF SynForceDoubeWidthHack} Windows, {$endif}{$endif}
Classes, SysUtils, LazSynEditText;
type
@ -60,6 +61,32 @@ begin
dec(Line);
dec(PWidths);
{$IFDEF SynForceDoubeWidthHack}
{$IF FPC_FULLVERSION>=20701}
if DefaultSystemCodePage = 932{Japanese}
{$ELSE}
if GetACP = 932{Japanese}
{$ENDIF}
then begin
for i := 0 to LineLen - 1 do begin
inc(Line);
inc(PWidths);
if PWidths^ = 0 then continue;
PWidths^:=2;
case Line^ of
#$01..#$7F: PWidths^ := 1;
#$80..#$BF: PWidths^ := 0;
#$EF: begin
if (Line[1] = #$bd) and (Line[2] in [#$A1..#$bf]) then PWidths^ := 1;
if (Line[1] = #$be) and (Line[2] in [#$80..#$9f]) then PWidths^ := 1;
end;
end;
end;
exit;
end;
{$ENDIF}
for i := 0 to LineLen - 1 do begin
inc(Line);
inc(PWidths);