* Added missing identifiers (bug ID 27704)

git-svn-id: trunk@33338 -

packages/winunits-base/src/richedit.pp

@@ -16,12 +16,17 @@ 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}
   
               
@@ -204,8 +209,9 @@ uses Messages, Windows;
     CFE_STRIKEOUT      = $00000008;
     CFE_PROTECTED      = $00000010;
     CFE_LINK           = $00000020;
-    CFE_AUTOCOLOR      = $40000000;           // NOTE: this corresponds to
+    CFE_AUTOCOLOR      = $40000000;           // NOTE: this corresponds to CFM_COLOR, which controls it
-                                                                                      // 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;            // (*)
@@ -218,6 +224,8 @@ uses Messages, Windows;
     CFM_DISABLED       = $00002000;
     CFM_REVISED        = $00004000;
     
+    
+    
     CFM_REVAUTHOR      = $00008000;
     CFE_SUBSCRIPT      = $00010000;            // Superscript and subscript are
     CFE_SUPERSCRIPT    = $00020000;            //      mutually exclusive
@@ -237,6 +245,45 @@ uses Messages, Windows;
     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,6 +302,7 @@ uses Messages, Windows;
 //#endif
     SES_USEAIMM           = 64;
     SES_NOIME             = 128;
+    SES_NOXLTSYMBOLRANGE  = 32;
   
     SES_ALLOWBEEPS        = 256;
     SES_UPPERCASE         = 512;
@@ -290,21 +338,14 @@ 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;
@@ -353,11 +394,13 @@ uses Messages, Windows;
      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.