mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-18 20:09:18 +02:00
+ bug fix in the rendering of double width characters
git-svn-id: branches/unicodekvm@48781 -
This commit is contained in:
parent
ca1b315e27
commit
7b71eefbdf
@ -757,7 +757,8 @@ begin
|
||||
begin
|
||||
if LastCharWasDoubleWidth then
|
||||
LastCharWasDoubleWidth:=false
|
||||
else if (not force) and (p^=pold^) then
|
||||
else if (not force) and (p^=pold^) and
|
||||
((ExtendedGraphemeClusterDisplayWidth(p^.ExtendedGraphemeCluster) <= 1) or (x=LastLineWidth) or (p[1]=pold[1])) then
|
||||
begin
|
||||
if (Spaces>0) then
|
||||
OutSpaces;
|
||||
|
Loading…
Reference in New Issue
Block a user