+ introduced Sw_ExtendedGraphemeCluster

git-svn-id: branches/unicodekvm@48610 -

packages/fv/src/app.inc

@@ -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;

packages/fv/src/fvcommon.inc

@@ -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}
 
 {---------------------------------------------------------------------------}