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

* Patch from P.J. Hess to add some missing control codes

Browse Source 
git-svn-id: trunk@7164 -
This commit is contained in:
michael 2007-04-23 20:00:59 +00:00
parent 8c00103c8e
commit cf22185208
1 changed files with 15 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -119,7 +119,8 @@ Const
rtfIComment = 34;
rtfIVersion = 35;
rtfIDoccomm = 36;
rtfMaxDestination = 37 { highest dest + 1 };
rtfICompany = 37; (* Added *)
rtfMaxDestination = 38 { highest dest + 1 };
rtfFontFamily = 4;
rtfFFNil = 0;
@ -258,9 +259,11 @@ Const
rtfRowGapH = 8;
rtfRowHt = 9;
rtfRowLeftEdge = 10;
rtfCellPos = 11;
rtfMergeRngFirst = 12;
rtfMergePrevious = 13;
rtfRowHeader = 11; (* Added *)
rtfCellPos = 12;
rtfCellBackColor = 13; (* Added *)
rtfMergeRngFirst = 14;
rtfMergePrevious = 15;
rtfParAttr = 11;
rtfParDef = 0;
@ -463,7 +466,7 @@ Type
(all valid minor numbers are >= 0).
---------------------------------------------------------------------}
Const rtfKey : Array [0..281] of TRTFKey =
Const rtfKey : Array [0..284] of TRTFKey =
(
( rtfKMajor: RTFSPECIALCHAR; rtfKMinor : rtfCURHEADPICT; rtfKStr : 'chpict'; rtfKhash : 0),
( rtfKMajor: rtfSpecialChar; rtfKMinor: rtfCurHeadDate; rtfKstr : 'chdate'; rtfkHash : 0),
@ -471,6 +474,8 @@ Const rtfKey : Array [0..281] of TRTFKey =
( rtfKMajor: rtfSpecialChar; rtfKMinor: rtfCurHeadPage; rtfKstr : 'chpgn'; rtfkHash : 0),
( rtfKMajor: rtfSpecialChar; rtfKMinor: rtfCurFNote; rtfKstr : 'chftn'; rtfkHash : 0),
( rtfKMajor: rtfSpecialChar; rtfKMinor: rtfCurAnnotRef; rtfKstr : 'chatn'; rtfkHash : 0),
( rtfKMajor: rtfSpecialChar; rtfKMinor: rtfAnnotation; rtfKstr : 'annotation'; rtfkHash : 0), (* Moved to here *)
( rtfKMajor: rtfSpecialChar; rtfKMinor: rtfAnnotID; rtfKstr : 'atnid'; rtfkHash : 0), (* Moved to here *)
( rtfKMajor: rtfSpecialChar; rtfKMinor: rtfFNoteSep; rtfKstr : 'chftnsep'; rtfkHash : 0),
( rtfKMajor: rtfSpecialChar; rtfKMinor: rtfFNoteCont; rtfKstr : 'chftnsepc'; rtfkHash : 0),
( rtfKMajor: rtfSpecialChar; rtfKMinor: rtfFormula; rtfKstr : '|'; rtfkHash : 0),
@ -679,8 +684,10 @@ Const rtfKey : Array [0..281] of TRTFKey =
( rtfKMajor: rtfDestination; rtfKMinor: rtfStyleSheet; rtfKstr : 'stylesheet'; rtfkHash : 0),
( rtfKMajor: rtfDestination; rtfKMinor: rtfFontTbl; rtfKstr : 'fonttbl'; rtfkHash : 0),
( rtfKMajor: rtfDestination; rtfKMinor: rtfColorTbl; rtfKstr : 'colortbl'; rtfkHash : 0),
(*
( rtfKMajor: rtfDestination; rtfKMinor: rtfAnnotation; rtfKstr : 'annotation'; rtfkHash : 0),
( rtfKMajor: rtfDestination; rtfKMinor: rtfAnnotID; rtfKstr : 'atnid'; rtfkHash : 0),
*)
( rtfKMajor: rtfDestination; rtfKMinor: rtfField; rtfKstr : 'field'; rtfkHash : 0),
( rtfKMajor: rtfDestination; rtfKMinor: rtfFieldInst; rtfKstr : 'fldinst'; rtfkHash : 0),
( rtfKMajor: rtfDestination; rtfKMinor: rtfFieldResult; rtfKstr : 'fldrslt'; rtfkHash : 0),
@ -700,6 +707,7 @@ Const rtfKey : Array [0..281] of TRTFKey =
( rtfKMajor: rtfDestination; rtfKMinor: rtfIComment; rtfKstr : 'comment'; rtfkHash : 0),
( rtfKMajor: rtfDestination; rtfKMinor: rtfIVersion; rtfKstr : 'version'; rtfkHash : 0),
( rtfKMajor: rtfDestination; rtfKMinor: rtfIDoccomm; rtfKstr : 'doccomm'; rtfkHash : 0),
( rtfKMajor: rtfDestination; rtfKMinor: rtfICompany; rtfKstr : 'company'; rtfkHash : 0), (* Added *)
( rtfKMajor: rtfTOCAttr; rtfKMinor: rtfTOCType; rtfKstr : 'tcf'; rtfkHash : 0),
( rtfKMajor: rtfTOCAttr; rtfKMinor: rtfTOCLevel; rtfKstr : 'tcl'; rtfkHash : 0),
@ -732,7 +740,9 @@ Const rtfKey : Array [0..281] of TRTFKey =
( rtfKMajor: rtfTblAttr; rtfKMinor: rtfRowGapH; rtfKstr : 'trgaph'; rtfkHash : 0),
( rtfKMajor: rtfTblAttr; rtfKMinor: rtfRowHt; rtfKstr : 'trrh'; rtfkHash : 0),
( rtfKMajor: rtfTblAttr; rtfKMinor: rtfRowLeftEdge; rtfKstr : 'trleft'; rtfkHash : 0),
( rtfKMajor: rtfTblAttr; rtfKMinor: rtfRowHeader; rtfKstr : 'trhdr'; rtfkHash : 0), (* Added *)
( rtfKMajor: rtfTblAttr; rtfKMinor: rtfCellPos; rtfKstr : 'cellx'; rtfkHash : 0),
( rtfKMajor: rtfTblAttr; rtfKMinor: rtfCellBackColor; rtfKstr : 'clcbpat'; rtfkHash : 0), (* Added *)
( rtfKMajor: rtfTblAttr; rtfKMinor: rtfMergeRngFirst; rtfKstr : 'clmgf'; rtfkHash : 0),
( rtfKMajor: rtfTblAttr; rtfKMinor: rtfMergePrevious; rtfKstr : 'clmrg'; rtfkHash : 0),