From cf22185208dda93ae932cec075a9f60d6f9d5939 Mon Sep 17 00:00:00 2001 From: michael Date: Mon, 23 Apr 2007 20:00:59 +0000 Subject: [PATCH] * Patch from P.J. Hess to add some missing control codes git-svn-id: trunk@7164 - --- packages/fcl-base/src/inc/rtfdata.inc | 20 +++++++++++++++----- 1 file changed, 15 insertions(+), 5 deletions(-) diff --git a/packages/fcl-base/src/inc/rtfdata.inc b/packages/fcl-base/src/inc/rtfdata.inc index 3f8d351509..cd827be5dc 100644 --- a/packages/fcl-base/src/inc/rtfdata.inc +++ b/packages/fcl-base/src/inc/rtfdata.inc @@ -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),