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

+ introduced UDrivers.EgcWidth

Browse Source 
git-svn-id: branches/unicodekvm@48812 -
This commit is contained in:
nickysn 2021-02-26 15:19:13 +00:00
parent ddd87e09ff
commit 00beafae5b
1 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
packages/fv/src/drivers.inc
View File

@ -335,6 +335,14 @@ procedure GiveUpTimeSlice;
{+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++}
{$ifdef FV_UNICODE}
{-EgcWidth-----------------------------------------------------------
Returns the number of display columns needed to display the extended
grapheme cluster EGC.
---------------------------------------------------------------------}
FUNCTION EgcWidth(Const EGC: Sw_String): Sw_Integer;
{$endif FV_UNICODE}
{-StrWidth-----------------------------------------------------------
Returns the number of display columns needed to display the string S.
---------------------------------------------------------------------}
@ -940,6 +948,13 @@ end;
{ BUFFER MOVE ROUTINES }
{+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++}
{$ifdef FV_UNICODE}
FUNCTION EgcWidth(Const EGC: Sw_String): Sw_Integer;
BEGIN
Result := Video.ExtendedGraphemeClusterDisplayWidth(EGC);
END;
{$endif FV_UNICODE}
{$ifdef FV_UNICODE}
FUNCTION StrWidth(Const S: Sw_String): Sw_Integer;
BEGIN