* several extra rtf keys. Patch by Werner fixes #40336

packages/fcl-base/src/rtfdata.inc

@@ -177,6 +177,8 @@ Const
                 rtfINChars              = 37;
                 rtfIIntID               = 38;
                 rtfUnicodeID            = 39;
+                rtfUnicodeCount         = 40;
+                rtfAnsiCodePage         = 41;
 
         rtfStyleAttr    = 7;
                 rtfBasedOn              = 0;
@@ -333,6 +335,7 @@ Const
                 rtfForeColor            = 20;
                 rtfBackColor            = 21;
                 rtfGray                 = 22;
+                rtfNoSuperSub           = 23;
 
         rtfPictAttr     = 13;
                 rtfMacQD                = 0;
@@ -353,6 +356,8 @@ Const
                 rtfBitmapPlanes         = 15;
                 rtfBitmapWid            = 16;
                 rtfPicBinary            = 17;
+                rtfPngBlip              = 18;
+                rtfJpegBlip             = 19;
 
         rtfNeXTGrAttr   = 14;
                 rtfNeXTGWidth           = 0;
@@ -467,7 +472,7 @@ Type
    (all valid minor numbers are >= 0).
   ---------------------------------------------------------------------}
 
-Const rtfKey : Array [0..286] of TRTFKey =
+Const rtfKey : Array [0..293] of TRTFKey =
 (
 ( rtfKMajor: RTFSPECIALCHAR; rtfKMinor : rtfCURHEADPICT; rtfKStr  : 'chpict'; rtfKhash :        0),
 ( rtfKMajor: rtfSpecialChar; rtfKMinor:         rtfCurHeadDate; rtfKstr : 'chdate'; rtfkHash : 0),
@@ -510,6 +515,8 @@ Const rtfKey : Array [0..286] of TRTFKey =
 ( rtfKMajor: rtfSpecialChar; rtfKMinor:         rtfINChars; rtfKstr : 'nofchars'; rtfkHash : 0),
 ( rtfKMajor: rtfSpecialChar; rtfKMinor:         rtfIIntID; rtfKstr : 'id'; rtfkHash : 0),
 ( rtfKMajor: rtfSpecialChar; rtfKMinor:         rtfUnicodeID; rtfKstr : 'u'; rtfkHash : 0),
+( rtfKMajor: rtfSpecialChar; rtfKMinor:         rtfUnicodeCount; rtfKstr : 'uc'; rtfkHash : 0),
+( rtfKMajor: rtfSpecialChar; rtfKMinor:         rtfAnsiCodePage; rtfKstr : 'ansicpg'; rtfkHash : 0),
 
 ( rtfKMajor: rtfCharAttr; rtfKMinor:    rtfPlain; rtfKstr : 'plain'; rtfkHash : 0),
 ( rtfKMajor: rtfCharAttr; rtfKMinor:    rtfBold; rtfKstr : 'b'; rtfkHash : 0),
@@ -531,9 +538,12 @@ Const rtfKey : Array [0..286] of TRTFKey =
 ( rtfKMajor: rtfCharAttr; rtfKMinor:    rtfSuperScript; rtfKstr : 'up'; rtfkHash : 0),
 ( rtfKMajor: rtfCharAttr; rtfKMinor:    rtfSuperScript; rtfKstr : 'super'; rtfkHash : 0),
 ( rtfKMajor: rtfCharAttr; rtfKMinor:    rtfSubScript; rtfKstr : 'dn'; rtfkHash : 0),
+( rtfKMajor: rtfCharAttr; rtfKMinor:    rtfSubScript; rtfKstr : 'sub'; rtfkHash : 0),
+( rtfkMajor: rtfCharAttr; rtfKMinor:    rtfNoSuperSub; rtfkstr : 'nosupersub'; rtfkHash : 0),
 ( rtfKMajor: rtfCharAttr; rtfKMinor:    rtfRevised; rtfKstr : 'revised'; rtfkHash : 0),
 ( rtfKMajor: rtfCharAttr; rtfKMinor:    rtfForeColor; rtfKstr : 'cf'; rtfkHash : 0),
 ( rtfKMajor: rtfCharAttr; rtfKMinor:    rtfBackColor; rtfKstr : 'cb'; rtfkHash : 0),
+( rtfKMajor: rtfCharAttr; rtfKMinor:    rtfBackColor; rtfKstr : 'highlight'; rtfkHash : 0),
 ( rtfKMajor: rtfCharAttr; rtfKMinor:    rtfGray; rtfKstr : 'gray'; rtfkHash : 0),
 
 ( rtfKMajor: rtfParAttr; rtfKMinor:     rtfParDef; rtfKstr : 'pard'; rtfkHash : 0),
@@ -665,6 +675,8 @@ Const rtfKey : Array [0..286] of TRTFKey =
 ( rtfKMajor: rtfPictAttr; rtfKMinor:    rtfBitmapPlanes; rtfKstr : 'wbmplanes'; rtfkHash : 0),
 ( rtfKMajor: rtfPictAttr; rtfKMinor:    rtfBitmapWid; rtfKstr : 'wbmwidthbytes'; rtfkHash : 0),
 ( rtfKMajor: rtfPictAttr; rtfKMinor:    rtfPicBinary; rtfKstr : 'bin'; rtfkHash : 0),
+( rtfKMajor: rtfPictAttr; rtfKMinor:    rtfPngBlip;   rtfKstr : 'pngblip'; rtfkHash : 0),
+( rtfKMajor: rtfPictAttr; rtfKMinor:    rtfJpegBlip;  rtfKstr : 'jpegblip'; rtfkHash : 0),
 
 ( rtfKMajor: rtfNeXTGrAttr; rtfKMinor:  rtfNeXTGWidth; rtfKstr : 'width'; rtfkHash : 0),
 ( rtfKMajor: rtfNeXTGrAttr; rtfKMinor:  rtfNeXTGHeight; rtfKstr : 'height'; rtfkHash : 0),