paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 11:28:07 +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 TYPE
TBackGround = OBJECT (TView) TBackGround = OBJECT (TView)
Pattern: Char; { Background pattern } Pattern: Sw_ExtendedGraphemeCluster; { Background pattern }
CONSTRUCTOR Init (Var Bounds: TRect; APattern: Char); CONSTRUCTOR Init (Var Bounds: TRect; const APattern: Sw_ExtendedGraphemeCluster);
CONSTRUCTOR Load (Var S: TStream); CONSTRUCTOR Load (Var S: TStream);
FUNCTION GetPalette: PPalette; Virtual; FUNCTION GetPalette: PPalette; Virtual;
PROCEDURE Draw; Virtual; PROCEDURE Draw; Virtual;

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

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