paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-15 12:29:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed handling of non-BMP characters in Video.ExtendedGraphemeClusterDisplayWidth

Browse Source 
git-svn-id: branches/unicodekvm@48789 -
This commit is contained in:
nickysn 2021-02-22 06:30:39 +00:00
parent fe7324a04c
commit c63534af48
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/rtl-console/src/inc/video.inc
View File

@ -459,7 +459,7 @@ begin
if (FirstCodePoint>=$D800) and (FirstCodePoint<=$DBFF) and (Length(EGC)>=2) and
(Ord(EGC[2])>=$DC00) and (Ord(EGC[2])<=$DFFF) then
begin
FirstCodePoint := ((FirstCodePoint-$D800) shl 10) or (Ord(EGC[2])-$DC00);
FirstCodePoint := $10000+((FirstCodePoint-$D800) shl 10) or (Ord(EGC[2])-$DC00);
end;
{ todo: handle emoji + modifiers }
case GetEastAsianWidth(FirstCodePoint) of