pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

richmemo: update the RichText loading script.

Browse Source 
added language conversion

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3738 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
skalogryz
2014-11-17 19:10:40 +00:00
parent 6721996b7a
commit 73e1f3a793
6 changed files with 254 additions and 30 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
components/richmemo/rtfdata.inc
View File

@@ -119,7 +119,10 @@ const
rtfIComment = 34;
rtfIVersion = 35;
rtfIDoccomm = 36;
rtfMaxDestination = 37 { highest dest + 1 };
rtfDefaultLanguage = 37;
rtfMaxDestination = 38 { highest dest + 1 };
rtfFontFamily = 4;
rtfFFNil = 0;
@@ -304,6 +307,8 @@ const
rtfLeaderHyphen = 38;
rtfLeaderUnder = 39;
rtfLeaderThick = 40;
//
rtfLanguage = 41;
rtfCharAttr = 12;
rtfPlain = 0;
@@ -463,7 +468,7 @@ type
---------------------------------------------------------------------}
const
rtfKey : Array [0..281] of TRTFKey =
rtfKey : Array [0..283] of TRTFKey =
(
( rtfKMajor: RTFSPECIALCHAR; rtfKMinor : rtfCURHEADPICT; rtfKStr : 'chpict'; rtfKhash : 0),
( rtfKMajor: rtfSpecialChar; rtfKMinor: rtfCurHeadDate; rtfKstr : 'chdate'; rtfkHash : 0),
@@ -570,6 +575,8 @@ const
( rtfKMajor: rtfParAttr; rtfKMinor: rtfLeaderThick; rtfKstr : 'tlth'; rtfkHash : 0),
( rtfKMajor: rtfParAttr; rtfKMinor: rtfBorderSpace; rtfKstr : 'brsp'; rtfkHash : 0),
( rtfKMajor: rtfParAttr; rtfKMinor: rtfLanguage; rtfKstr : 'lang'; rtfkHash : 0),
( rtfKMajor: rtfSectAttr; rtfKMinor: rtfSectDef; rtfKstr : 'sectd'; rtfkHash : 0),
( rtfKMajor: rtfSectAttr; rtfKMinor: rtfNoBreak; rtfKstr : 'sbknone'; rtfkHash : 0),
( rtfKMajor: rtfSectAttr; rtfKMinor: rtfColBreak; rtfKstr : 'sbkcol'; rtfkHash : 0),
@@ -701,6 +708,8 @@ const
( rtfKMajor: rtfDestination; rtfKMinor: rtfIVersion; rtfKstr : 'version'; rtfkHash : 0),
( rtfKMajor: rtfDestination; rtfKMinor: rtfIDoccomm; rtfKstr : 'doccomm'; rtfkHash : 0),
( rtfKMajor: rtfDestination; rtfKMinor: rtfDefaultLanguage; rtfKstr : 'deflang'; rtfkHash : 0),
( rtfKMajor: rtfTOCAttr; rtfKMinor: rtfTOCType; rtfKstr : 'tcf'; rtfkHash : 0),
( rtfKMajor: rtfTOCAttr; rtfKMinor: rtfTOCLevel; rtfKstr : 'tcl'; rtfkHash : 0),