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

+ introduced Sw_ExtendedGraphemeCluster

Browse Source 
git-svn-id: branches/unicodekvm@48610 -
This commit is contained in:
nickysn 2021-02-10 14:41:11 +00:00
parent 5b5f6b7158
commit 0d844aaa41
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/fv/src/app.inc
View File

@ -207,8 +207,8 @@ CONST
{---------------------------------------------------------------------------}
TYPE
TBackGround = OBJECT (TView)
Pattern: Char; { Background pattern }
CONSTRUCTOR Init (Var Bounds: TRect; APattern: Char);
Pattern: Sw_ExtendedGraphemeCluster; { Background pattern }
CONSTRUCTOR Init (Var Bounds: TRect; const APattern: Sw_ExtendedGraphemeCluster);
CONSTRUCTOR Load (Var S: TStream);
FUNCTION GetPalette: PPalette; Virtual;
PROCEDURE Draw; Virtual;

2
packages/fv/src/fvcommon.inc
View File

@ -149,9 +149,11 @@ TYPE
{$IFDEF FV_UNICODE}
Sw_String = UnicodeString;
Sw_PString = UnicodeString;
Sw_ExtendedGraphemeCluster = UnicodeString;
{$ELSE FV_UNICODE}
Sw_String = ShortString;
Sw_PString = PShortString;
Sw_ExtendedGraphemeCluster = Char;
{$ENDIF FV_UNICODE}
{---------------------------------------------------------------------------}