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

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

Browse Source
This commit is contained in:
marcoonthegit 2023-07-01 17:39:08 +02:00
parent e1befb165e
commit 8a0d530eb1
1 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
packages/fcl-base/src/rtfdata.inc
View File

@ -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),