From 82414ecacc7a1032ef62abdd846f2bbba9fa764c Mon Sep 17 00:00:00 2001 From: michael Date: Sat, 26 Mar 2016 23:43:49 +0000 Subject: [PATCH] * Added missing identifiers (bug ID 27704) git-svn-id: trunk@33338 - --- packages/winunits-base/src/richedit.pp | 134 +++++++++++++++++++++---- 1 file changed, 116 insertions(+), 18 deletions(-) diff --git a/packages/winunits-base/src/richedit.pp b/packages/winunits-base/src/richedit.pp index 16741ee152..98d867c9df 100644 --- a/packages/winunits-base/src/richedit.pp +++ b/packages/winunits-base/src/richedit.pp @@ -16,14 +16,19 @@ uses Messages, Windows; {$PACKRECORDS C} {$ENDIF} +Const + + RICHEDIT_CLASSA = 'RichEdit20A'; + RICHEDIT_CLASSW = 'RichEdit20W'; + {$ifdef UNICODE } const - RICHEDIT_CLASS = 'RichEdit20W'; + RICHEDIT_CLASS = RICHEDIT_CLASSW; {$else} const - RICHEDIT_CLASS = 'RichEdit20A'; + RICHEDIT_CLASS = RICHEDIT_CLASSA; {$endif} - + const @@ -204,8 +209,9 @@ uses Messages, Windows; CFE_STRIKEOUT = $00000008; CFE_PROTECTED = $00000010; CFE_LINK = $00000020; - CFE_AUTOCOLOR = $40000000; // NOTE: this corresponds to - // CFM_COLOR, which controls it + CFE_AUTOCOLOR = $40000000; // NOTE: this corresponds to CFM_COLOR, which controls it + + // Masks and effects defined for CHARFORMAT2 -- an (*) indicates // that the data is stored by RichEdit 2.0/3.0, but not displayed CFM_SMALLCAPS = $00000040; // (*) @@ -217,7 +223,9 @@ uses Messages, Windows; CFM_IMPRINT = $00001000; // (*) CFM_DISABLED = $00002000; CFM_REVISED = $00004000; - + + + CFM_REVAUTHOR = $00008000; CFE_SUBSCRIPT = $00010000; // Superscript and subscript are CFE_SUPERSCRIPT = $00020000; // mutually exclusive @@ -235,8 +243,47 @@ uses Messages, Windows; CFM_SUBSCRIPT = (CFE_SUBSCRIPT or CFE_SUPERSCRIPT); CFM_SUPERSCRIPT = CFM_SUBSCRIPT; + + + CFE_ALLCAPS = CFM_ALLCAPS; + CFE_AUTOBACKCOLOR = CFM_BACKCOLOR; + CFE_DISABLED = CFM_DISABLED; + CFE_EMBOSS = CFM_EMBOSS; + CFE_HIDDEN = CFM_HIDDEN; + CFE_IMPRINT = CFM_IMPRINT; + CFE_OUTLINE = CFM_OUTLINE; + CFE_SHADOW = CFM_SHADOW; + CFE_SMALLCAPS = CFM_SMALLCAPS; + + CFM_EFFECTS = + CFM_BOLD or CFM_ITALIC or CFM_UNDERLINE or CFM_COLOR or + CFM_STRIKEOUT or CFE_PROTECTED or CFM_LINK; + + CFM_ALL = + CFM_EFFECTS or CFM_SIZE or CFM_FACE or CFM_OFFSET or CFM_CHARSET; - + CFM_EFFECTS2 = + CFM_EFFECTS or CFM_DISABLED or CFM_SMALLCAPS or CFM_ALLCAPS or + CFM_HIDDEN or CFM_OUTLINE or CFM_SHADOW or CFM_EMBOSS or + CFM_IMPRINT or CFM_DISABLED or CFM_REVISED or + CFM_SUBSCRIPT or CFM_SUPERSCRIPT or CFM_BACKCOLOR; + + CFM_ALL2 = + CFM_ALL or CFM_EFFECTS2 or CFM_BACKCOLOR or CFM_LCID or + CFM_UNDERLINETYPE or CFM_WEIGHT or CFM_REVAUTHOR or + CFM_SPACING or CFM_KERNING or CFM_STYLE or CFM_ANIMATION; + + CFU_CF1UNDERLINE = $000000FF; + CFU_INVERT = $000000FE; + CFU_UNDERLINEDOTTED = $00000004; + CFU_UNDERLINEDOUBLE = $00000003; + CFU_UNDERLINEWORD = $00000002; + CFU_UNDERLINE = $00000001; + CFU_UNDERLINENONE = $00000000; + + GCM_RIGHTMOUSEDROP = $8000; + + // Extended edit style masks SES_EMULATESYSEDIT = 1; SES_BEEPONMAXTEXT = 2; @@ -255,7 +302,8 @@ uses Messages, Windows; //#endif SES_USEAIMM = 64; SES_NOIME = 128; - + SES_NOXLTSYMBOLRANGE = 32; + SES_ALLOWBEEPS = 256; SES_UPPERCASE = 512; SES_LOWERCASE = 1024; @@ -290,22 +338,15 @@ uses Messages, Windows; IMF_IMEALWAYSSENDNOTIFY= $0008; IMF_AUTOFONTSIZEADJUST= $0010; IMF_UIFONTS = $0020; -//#if (_RICHEDIT_VER >= = $0800) IMF_NOIMPLICITLANG = $0040; -//#endif IMF_DUALFONT = $0080; -//#if (_RICHEDIT_VER >= = $0800) IMF_NOKBDLIDFIXUP = $0200; -//#endif IMF_NORTFFONTSUBSTITUTE = $0400; -//#if (_RICHEDIT_VER >= = $0800) IMF_SPELLCHECKING = $0800; IMF_TKBPREDICTION = $1000; -//#endif -//#if (_RICHEDIT_VER >= = $0810) IMF_IMEUIINTEGRATION = $2000; -//#endif - + + // Values for EM_GETIMECOMPMODE ICM_NOTOPEN = $0000; ICM_LEVEL3 = $0001; @@ -352,12 +393,14 @@ uses Messages, Windows; ATP_CHANGE = 1; ATP_NODELIMITER = 2; ATP_REPLACEALLTEXT = 4; + + OLEOP_DOVERB = 1; RICHEDIT_CLASS10A = 'RICHEDIT'; CF_RTF = 'Rich Text Format'; CF_RTFNOOBJS = 'Rich Text Format Without Objects'; CF_RETEXTOBJ = 'RichEdit Text and Objects'; - CFM_EFFECTS = (((((CFM_BOLD or CFM_ITALIC) or CFM_UNDERLINE) or CFM_COLOR) or CFM_STRIKEOUT) or CFE_PROTECTED) or CFM_LINK; + IMF_FORCENONE = 1; IMF_FORCEENABLE = 2; IMF_FORCEDISABLE = 4; @@ -366,6 +409,8 @@ uses Messages, Windows; IMF_FORCEACTIVE = 64; IMF_FORCEINACTIVE = 128; IMF_FORCEREMEMBER = 256; + IMF_MULTIPLEEDIT = $0400; + SEL_EMPTY = 0; SEL_TEXT = 1; SEL_OBJECT = 2; @@ -397,7 +442,30 @@ uses Messages, Windows; PFM_RTLPARA = 65536; PFM_SIDEBYSIDE = 8388608; PFM_TABLE = 1073741824; + PFM_TEXTWRAPPINGBREAK = $20000000; + PFM_TABLEROWDELIMITER = $10000000; + PFM_COLLAPSED = $01000000; + PFM_OUTLINELEVEL = $02000000; + PFM_BOX = $04000000; + + PFM_ALL = + PFM_STARTINDENT or PFM_RIGHTINDENT or PFM_OFFSET or PFM_ALIGNMENT + or PFM_TABSTOPS or PFM_NUMBERING or PFM_OFFSETINDENT or PFM_RTLPARA; + + PFM_EFFECTS = + PFM_RTLPARA or PFM_KEEP or PFM_KEEPNEXT or PFM_TABLE or PFM_PAGEBREAKBEFORE + or PFM_NOLINENUMBER or PFM_NOWIDOWCONTROL or PFM_DONOTHYPHEN or PFM_SIDEBYSIDE + or PFM_TABLE or PFM_TABLEROWDELIMITER; + + PFM_ALL2 = + PFM_ALL or PFM_EFFECTS or PFM_SPACEBEFORE or PFM_SPACEAFTER or + PFM_LINESPACING or PFM_STYLE or PFM_SHADING or PFM_BORDER or + PFM_NUMBERINGTAB or PFM_NUMBERINGSTART or PFM_NUMBERINGSTYLE; + + + PFN_BULLET = 1; + PFE_DONOTHYPHEN = 64; PFE_KEEP = 2; PFE_KEEPNEXT = 4; @@ -455,6 +523,8 @@ uses Messages, Windows; EN_LINK = 1803; EN_MSGFILTER = 1792; EN_OLEOPFAILED = 1801; + EN_OBJECTPOSITIONS = $070a; + EN_DRAGDROPDONE = $070c; EN_PROTECTED = 1796; EN_REQUESTRESIZE = 1793; EN_SAVECLIPBOARD = 1800; @@ -503,12 +573,32 @@ uses Messages, Windows; TM_MULTICODEPAGE = 32; GT_DEFAULT = 0; GT_USECRLF = 1; + GT_SELECTION = 2; + GT_RAWTEXT = 4; + GT_NOHIDDENTEXT = 8; + yHeightCharPtsMost = 1638; lDefaultTab = 720; FT_MATCHCASE = 4; FT_WHOLEWORD = 2; + PC_FOLLOWING = 1; + PC_LEADING = 2; + PC_OVERFLOW = 3; + PC_DELIMITER = 4; + + PFE_TABLEROW = $c000; + PFE_TABLECELLEND = $8000; + PFE_TABLECELL = $4000; + WBF_CLASS = $0F; + WBF_ISWHITE = $10; + WBF_BREAKLINE = $20; + WBF_BREAKAFTER = $40; + WCH_EMBEDDING = $FFFC; + cchTextLimitDefault = 32767; + type + UNDONAMEID = (UID_UNKNOWN, UID_TYPING, UID_DELETE, UID_DRAGDROP, UID_CUT, UID_PASTE); _charformat = record cbSize : UINT; @@ -829,6 +919,12 @@ uses Messages, Windows; GTL_NUMBYTES = 16; type + OBJECTPOSITIONS = record + nmhdr: TNMHdr; + cObjectCount: Longint; + pcpPositions: PLongint; + end; + TObjectPositions = OBJECTPOSITIONS; _gettextlengthex = record flags : DWORD; @@ -863,6 +959,8 @@ uses Messages, Windows; TTEXTRANGE = TEXTRANGEA; {$endif} + implementation + end.