
{*******************************************************}
{                                                       }
{       Borland Delphi Runtime Library                  }
{       Win32 Rich Edit control interface unit          }
{                                                       }
{       Copyright (c) 1996,98 Inprise Corporation       }
{                                                       }
{*******************************************************}

{$HPPEMIT '#include <RichEdit.h>'}

unit RichEdit;

{$WEAKPACKAGEUNIT}

interface

uses Messages, Windows;

const
  {$EXTERNALSYM cchTextLimitDefault}
  cchTextLimitDefault     = 32767; 


  {$EXTERNALSYM RICHEDIT_CLASSA}
  RICHEDIT_CLASSA       = 'RichEdit20A';     { Richedit2.0 Window Class. }
  {$EXTERNALSYM RICHEDIT_CLASSW}
  RICHEDIT_CLASSW       = 'RichEdit20W';     { Richedit2.0 Window Class. }
  {$EXTERNALSYM RICHEDIT_CLASS}
  RICHEDIT_CLASS = RICHEDIT_CLASSA;
  RICHEDIT_CLASS10A       = 'RICHEDIT';        { Richedit 1.0 }

{ RichEdit messages }

  {$EXTERNALSYM WM_CONTEXTMENU}
  WM_CONTEXTMENU                      = $007B; 
  {$EXTERNALSYM WM_PRINTCLIENT}
  WM_PRINTCLIENT                      = $0318; 

  {$EXTERNALSYM EM_GETLIMITTEXT}
  EM_GETLIMITTEXT                     = WM_USER + 37; 
//  EM_POSFROMCHAR                      = WM_USER + 38;
//  EM_CHARFROMPOS                      = WM_USER + 39; 
  {$EXTERNALSYM EM_SCROLLCARET}
  EM_SCROLLCARET                      = WM_USER + 49; 
  {$EXTERNALSYM EM_CANPASTE}
  EM_CANPASTE                         = WM_USER + 50; 
  {$EXTERNALSYM EM_DISPLAYBAND}
  EM_DISPLAYBAND                      = WM_USER + 51; 
  {$EXTERNALSYM EM_EXGETSEL}
  EM_EXGETSEL                         = WM_USER + 52; 
  {$EXTERNALSYM EM_EXLIMITTEXT}
  EM_EXLIMITTEXT                      = WM_USER + 53; 
  {$EXTERNALSYM EM_EXLINEFROMCHAR}
  EM_EXLINEFROMCHAR                   = WM_USER + 54; 
  {$EXTERNALSYM EM_EXSETSEL}
  EM_EXSETSEL                         = WM_USER + 55; 
  {$EXTERNALSYM EM_FINDTEXT}
  EM_FINDTEXT                         = WM_USER + 56; 
  {$EXTERNALSYM EM_FORMATRANGE}
  EM_FORMATRANGE                      = WM_USER + 57; 
  {$EXTERNALSYM EM_GETCHARFORMAT}
  EM_GETCHARFORMAT                    = WM_USER + 58; 
  {$EXTERNALSYM EM_GETEVENTMASK}
  EM_GETEVENTMASK                     = WM_USER + 59; 
  {$EXTERNALSYM EM_GETOLEINTERFACE}
  EM_GETOLEINTERFACE                  = WM_USER + 60; 
  {$EXTERNALSYM EM_GETPARAFORMAT}
  EM_GETPARAFORMAT                    = WM_USER + 61; 
  {$EXTERNALSYM EM_GETSELTEXT}
  EM_GETSELTEXT                       = WM_USER + 62; 
  {$EXTERNALSYM EM_HIDESELECTION}
  EM_HIDESELECTION                    = WM_USER + 63; 
  {$EXTERNALSYM EM_PASTESPECIAL}
  EM_PASTESPECIAL                     = WM_USER + 64; 
  {$EXTERNALSYM EM_REQUESTRESIZE}
  EM_REQUESTRESIZE                    = WM_USER + 65; 
  {$EXTERNALSYM EM_SELECTIONTYPE}
  EM_SELECTIONTYPE                    = WM_USER + 66; 
  {$EXTERNALSYM EM_SETBKGNDCOLOR}
  EM_SETBKGNDCOLOR                    = WM_USER + 67; 
  {$EXTERNALSYM EM_SETCHARFORMAT}
  EM_SETCHARFORMAT                    = WM_USER + 68; 
  {$EXTERNALSYM EM_SETEVENTMASK}
  EM_SETEVENTMASK                     = WM_USER + 69; 
  {$EXTERNALSYM EM_SETOLECALLBACK}
  EM_SETOLECALLBACK                   = WM_USER + 70; 
  {$EXTERNALSYM EM_SETPARAFORMAT}
  EM_SETPARAFORMAT                    = WM_USER + 71; 
  {$EXTERNALSYM EM_SETTARGETDEVICE}
  EM_SETTARGETDEVICE                  = WM_USER + 72; 
  {$EXTERNALSYM EM_STREAMIN}
  EM_STREAMIN                         = WM_USER + 73; 
  {$EXTERNALSYM EM_STREAMOUT}
  EM_STREAMOUT                        = WM_USER + 74; 
  {$EXTERNALSYM EM_GETTEXTRANGE}
  EM_GETTEXTRANGE                     = WM_USER + 75; 
  {$EXTERNALSYM EM_FINDWORDBREAK}
  EM_FINDWORDBREAK                    = WM_USER + 76; 
  {$EXTERNALSYM EM_SETOPTIONS}
  EM_SETOPTIONS                       = WM_USER + 77; 
  {$EXTERNALSYM EM_GETOPTIONS}
  EM_GETOPTIONS                       = WM_USER + 78; 
  {$EXTERNALSYM EM_FINDTEXTEX}
  EM_FINDTEXTEX                       = WM_USER + 79; 
  {$EXTERNALSYM EM_GETWORDBREAKPROCEX}
  EM_GETWORDBREAKPROCEX               = WM_USER + 80; 
  {$EXTERNALSYM EM_SETWORDBREAKPROCEX}
  EM_SETWORDBREAKPROCEX               = WM_USER + 81; 

{ Richedit v2.0 messages }

  {$EXTERNALSYM EM_SETUNDOLIMIT}
  EM_SETUNDOLIMIT                     = WM_USER + 82; 
  {$EXTERNALSYM EM_REDO}
  EM_REDO                             = WM_USER + 84; 
  {$EXTERNALSYM EM_CANREDO}
  EM_CANREDO                          = WM_USER + 85; 
  {$EXTERNALSYM EM_GETUNDONAME}
  EM_GETUNDONAME                      = WM_USER + 86; 
  {$EXTERNALSYM EM_GETREDONAME}
  EM_GETREDONAME                      = WM_USER + 87; 
  {$EXTERNALSYM EM_STOPGROUPTYPING}
  EM_STOPGROUPTYPING                  = WM_USER + 88; 
  {$EXTERNALSYM EM_SETTEXTMODE}
  EM_SETTEXTMODE                      = WM_USER + 89; 
  {$EXTERNALSYM EM_GETTEXTMODE}
  EM_GETTEXTMODE                      = WM_USER + 90; 

{ for use with EM_GET/SETTEXTMODE }

  TM_PLAINTEXT                       = 1; 
  TM_RICHTEXT                        = 2;     { default behavior }
  TM_SINGLELEVELUNDO                 = 4; 
  TM_MULTILEVELUNDO                  = 8;     { default behavior }
  TM_SINGLECODEPAGE                  = 16; 
  TM_MULTICODEPAGE                   = 32;    { default behavior }

  {$EXTERNALSYM EM_AUTOURLDETECT}
  EM_AUTOURLDETECT                    = WM_USER + 91; 
  {$EXTERNALSYM EM_GETAUTOURLDETECT}
  EM_GETAUTOURLDETECT                 = WM_USER + 92; 
  {$EXTERNALSYM EM_SETPALETTE}
  EM_SETPALETTE                       = WM_USER + 93; 
  {$EXTERNALSYM EM_GETTEXTEX}
  EM_GETTEXTEX                        = WM_USER + 94; 
  {$EXTERNALSYM EM_GETTEXTLENGTHEX}
  EM_GETTEXTLENGTHEX                  = WM_USER + 95; 

{ Far East specific messages }

  {$EXTERNALSYM EM_SETPUNCTUATION}
  EM_SETPUNCTUATION                   = WM_USER + 100; 
  {$EXTERNALSYM EM_GETPUNCTUATION}
  EM_GETPUNCTUATION                   = WM_USER + 101; 
  {$EXTERNALSYM EM_SETWORDWRAPMODE}
  EM_SETWORDWRAPMODE                  = WM_USER + 102; 
  {$EXTERNALSYM EM_GETWORDWRAPMODE}
  EM_GETWORDWRAPMODE                  = WM_USER + 103; 
  {$EXTERNALSYM EM_SETIMECOLOR}
  EM_SETIMECOLOR                      = WM_USER + 104; 
  {$EXTERNALSYM EM_GETIMECOLOR}
  EM_GETIMECOLOR                      = WM_USER + 105; 
  {$EXTERNALSYM EM_SETIMEOPTIONS}
  EM_SETIMEOPTIONS                    = WM_USER + 106; 
  {$EXTERNALSYM EM_GETIMEOPTIONS}
  EM_GETIMEOPTIONS                    = WM_USER + 107; 
  {$EXTERNALSYM EM_CONVPOSITION}
  EM_CONVPOSITION                     = WM_USER + 108; 

  {$EXTERNALSYM EM_SETLANGOPTIONS}
  EM_SETLANGOPTIONS                   = WM_USER + 120; 
  {$EXTERNALSYM EM_GETLANGOPTIONS}
  EM_GETLANGOPTIONS                   = WM_USER + 121; 
  {$EXTERNALSYM EM_GETIMECOMPMODE}
  EM_GETIMECOMPMODE                   = WM_USER + 122; 

{ Options for EM_SETLANGOPTIONS and EM_GETLANGOPTIONS }

  {$EXTERNALSYM IMF_AUTOKEYBOARD}
  IMF_AUTOKEYBOARD            = $0001; 
  {$EXTERNALSYM IMF_AUTOFONT}
  IMF_AUTOFONT                = $0002; 
  {$EXTERNALSYM IMF_IMECANCELCOMPLETE}
  IMF_IMECANCELCOMPLETE       = $0004;  { high completes the comp string when aborting, low cancels. }
  {$EXTERNALSYM IMF_IMEALWAYSSENDNOTIFY}
  IMF_IMEALWAYSSENDNOTIFY     = $0008; 

{ Values for EM_GETIMECOMPMODE }

  {$EXTERNALSYM ICM_NOTOPEN}
  ICM_NOTOPEN                         = $0000; 
  {$EXTERNALSYM ICM_LEVEL3}
  ICM_LEVEL3                          = $0001; 
  {$EXTERNALSYM ICM_LEVEL2}
  ICM_LEVEL2                          = $0002; 
  {$EXTERNALSYM ICM_LEVEL2_5}
  ICM_LEVEL2_5                        = $0003; 
  {$EXTERNALSYM ICM_LEVEL2_SUI}
  ICM_LEVEL2_SUI                      = $0004; 

{ New notifications }

  {$EXTERNALSYM EN_MSGFILTER}
  EN_MSGFILTER                        = $0700; 
  {$EXTERNALSYM EN_REQUESTRESIZE}
  EN_REQUESTRESIZE                    = $0701; 
  {$EXTERNALSYM EN_SELCHANGE}
  EN_SELCHANGE                        = $0702; 
  {$EXTERNALSYM EN_DROPFILES}
  EN_DROPFILES                        = $0703; 
  {$EXTERNALSYM EN_PROTECTED}
  EN_PROTECTED                        = $0704; 
  {$EXTERNALSYM EN_CORRECTTEXT}
  EN_CORRECTTEXT                      = $0705;                  { PenWin specific }
  {$EXTERNALSYM EN_STOPNOUNDO}
  EN_STOPNOUNDO                       = $0706; 
  {$EXTERNALSYM EN_IMECHANGE}
  EN_IMECHANGE                        = $0707;                  { Far East specific }
  {$EXTERNALSYM EN_SAVECLIPBOARD}
  EN_SAVECLIPBOARD                    = $0708; 
  {$EXTERNALSYM EN_OLEOPFAILED}
  EN_OLEOPFAILED                      = $0709; 
  {$EXTERNALSYM EN_OBJECTPOSITIONS}
  EN_OBJECTPOSITIONS                  = $070a; 
  {$EXTERNALSYM EN_LINK}
  EN_LINK                             = $070b; 
  {$EXTERNALSYM EN_DRAGDROPDONE}
  EN_DRAGDROPDONE                     = $070c; 

{ Event notification masks }

  {$EXTERNALSYM ENM_NONE}
  ENM_NONE                            = $00000000; 
  {$EXTERNALSYM ENM_CHANGE}
  ENM_CHANGE                          = $00000001; 
  {$EXTERNALSYM ENM_UPDATE}
  ENM_UPDATE                          = $00000002; 
  {$EXTERNALSYM ENM_SCROLL}
  ENM_SCROLL                          = $00000004; 
  {$EXTERNALSYM ENM_KEYEVENTS}
  ENM_KEYEVENTS                       = $00010000; 
  {$EXTERNALSYM ENM_MOUSEEVENTS}
  ENM_MOUSEEVENTS                     = $00020000; 
  {$EXTERNALSYM ENM_REQUESTRESIZE}
  ENM_REQUESTRESIZE                   = $00040000; 
  {$EXTERNALSYM ENM_SELCHANGE}
  ENM_SELCHANGE                       = $00080000; 
  {$EXTERNALSYM ENM_DROPFILES}
  ENM_DROPFILES                       = $00100000; 
  {$EXTERNALSYM ENM_PROTECTED}
  ENM_PROTECTED                       = $00200000; 
  {$EXTERNALSYM ENM_CORRECTTEXT}
  ENM_CORRECTTEXT                     = $00400000;              { PenWin specific }
  {$EXTERNALSYM ENM_SCROLLEVENTS}
  ENM_SCROLLEVENTS                    = $00000008; 
  {$EXTERNALSYM ENM_DRAGDROPDONE}
  ENM_DRAGDROPDONE                    = $00000010; 

{ Far East specific notification mask }

  {$EXTERNALSYM ENM_IMECHANGE}
  ENM_IMECHANGE                       = $00800000;              { unused by RE2.0 }
  {$EXTERNALSYM ENM_LANGCHANGE}
  ENM_LANGCHANGE                      = $01000000; 
  {$EXTERNALSYM ENM_OBJECTPOSITIONS}
  ENM_OBJECTPOSITIONS                 = $02000000; 
  {$EXTERNALSYM ENM_LINK}
  ENM_LINK                            = $04000000; 

{ New edit control styles }

  {$EXTERNALSYM ES_SAVESEL}
  ES_SAVESEL                          = $00008000; 
  {$EXTERNALSYM ES_SUNKEN}
  ES_SUNKEN                           = $00004000; 
  {$EXTERNALSYM ES_DISABLENOSCROLL}
  ES_DISABLENOSCROLL                  = $00002000;
{ same as WS_MAXIMIZE, but that doesn't make sense so we re-use the value }
  {$EXTERNALSYM ES_SELECTIONBAR}
  ES_SELECTIONBAR                     = $01000000; 
{ same as ES_UPPERCASE, but re-used to completely disable OLE drag'n'drop }
  {$EXTERNALSYM ES_NOOLEDRAGDROP}
  ES_NOOLEDRAGDROP                    = $00000008; 

{ New edit control extended style }

  {$EXTERNALSYM ES_EX_NOCALLOLEINIT}
  ES_EX_NOCALLOLEINIT                 = $01000000; 

{ These flags are used in FE Windows }

  {$EXTERNALSYM ES_VERTICAL}
  ES_VERTICAL                         = $00400000; 
  {$EXTERNALSYM ES_NOIME}
  ES_NOIME                            = $00080000; 
  {$EXTERNALSYM ES_SELFIME}
  ES_SELFIME                          = $00040000; 

{ Edit control options }

  {$EXTERNALSYM ECO_AUTOWORDSELECTION}
  ECO_AUTOWORDSELECTION       = $00000001; 
  {$EXTERNALSYM ECO_AUTOVSCROLL}
  ECO_AUTOVSCROLL             = $00000040; 
  {$EXTERNALSYM ECO_AUTOHSCROLL}
  ECO_AUTOHSCROLL             = $00000080; 
  {$EXTERNALSYM ECO_NOHIDESEL}
  ECO_NOHIDESEL               = $00000100; 
  {$EXTERNALSYM ECO_READONLY}
  ECO_READONLY                = $00000800; 
  {$EXTERNALSYM ECO_WANTRETURN}
  ECO_WANTRETURN              = $00001000; 
  {$EXTERNALSYM ECO_SAVESEL}
  ECO_SAVESEL                 = $00008000; 
  {$EXTERNALSYM ECO_SELECTIONBAR}
  ECO_SELECTIONBAR            = $01000000; 
  {$EXTERNALSYM ECO_VERTICAL}
  ECO_VERTICAL                = $00400000;              { FE specific }

{ ECO operations }

  {$EXTERNALSYM ECOOP_SET}
  ECOOP_SET                                   = $0001; 
  {$EXTERNALSYM ECOOP_OR}
  ECOOP_OR                                    = $0002; 
  {$EXTERNALSYM ECOOP_AND}
  ECOOP_AND                                   = $0003; 
  {$EXTERNALSYM ECOOP_XOR}
  ECOOP_XOR                                   = $0004; 

{ new word break function actions }

  {$EXTERNALSYM WB_CLASSIFY}
  WB_CLASSIFY                 = 3; 
  {$EXTERNALSYM WB_MOVEWORDLEFT}
  WB_MOVEWORDLEFT             = 4; 
  {$EXTERNALSYM WB_MOVEWORDRIGHT}
  WB_MOVEWORDRIGHT            = 5; 
  {$EXTERNALSYM WB_LEFTBREAK}
  WB_LEFTBREAK                = 6; 
  {$EXTERNALSYM WB_RIGHTBREAK}
  WB_RIGHTBREAK               = 7; 

{ Far East specific flags }

  {$EXTERNALSYM WB_MOVEWORDPREV}
  WB_MOVEWORDPREV             = 4; 
  {$EXTERNALSYM WB_MOVEWORDNEXT}
  WB_MOVEWORDNEXT             = 5; 
  {$EXTERNALSYM WB_PREVBREAK}
  WB_PREVBREAK                = 6; 
  {$EXTERNALSYM WB_NEXTBREAK}
  WB_NEXTBREAK                = 7; 

  {$EXTERNALSYM PC_FOLLOWING}
  PC_FOLLOWING                = 1; 
  {$EXTERNALSYM PC_LEADING}
  PC_LEADING                  = 2; 
  {$EXTERNALSYM PC_OVERFLOW}
  PC_OVERFLOW                 = 3; 
  {$EXTERNALSYM PC_DELIMITER}
  PC_DELIMITER                = 4; 
  {$EXTERNALSYM WBF_WORDWRAP}
  WBF_WORDWRAP                = $010; 
  {$EXTERNALSYM WBF_WORDBREAK}
  WBF_WORDBREAK               = $020; 
  {$EXTERNALSYM WBF_OVERFLOW}
  WBF_OVERFLOW                = $040; 
  {$EXTERNALSYM WBF_LEVEL1}
  WBF_LEVEL1                  = $080; 
  {$EXTERNALSYM WBF_LEVEL2}
  WBF_LEVEL2                  = $100; 
  {$EXTERNALSYM WBF_CUSTOM}
  WBF_CUSTOM                  = $200; 

{ Far East specific flags }

  {$EXTERNALSYM IMF_FORCENONE}
  IMF_FORCENONE               = $0001; 
  {$EXTERNALSYM IMF_FORCEENABLE}
  IMF_FORCEENABLE             = $0002; 
  {$EXTERNALSYM IMF_FORCEDISABLE}
  IMF_FORCEDISABLE            = $0004; 
  {$EXTERNALSYM IMF_CLOSESTATUSWINDOW}
  IMF_CLOSESTATUSWINDOW       = $0008; 
  {$EXTERNALSYM IMF_VERTICAL}
  IMF_VERTICAL                = $0020; 
  {$EXTERNALSYM IMF_FORCEACTIVE}
  IMF_FORCEACTIVE             = $0040; 
  {$EXTERNALSYM IMF_FORCEINACTIVE}
  IMF_FORCEINACTIVE           = $0080; 
  {$EXTERNALSYM IMF_FORCEREMEMBER}
  IMF_FORCEREMEMBER           = $0100; 
  {$EXTERNALSYM IMF_MULTIPLEEDIT}
  IMF_MULTIPLEEDIT            = $0400; 

{ Word break flags (used with WB_CLASSIFY) }

  {$EXTERNALSYM WBF_CLASS}
  WBF_CLASS                   = $0F; 
  {$EXTERNALSYM WBF_ISWHITE}
  WBF_ISWHITE                 = $10; 
  {$EXTERNALSYM WBF_BREAKLINE}
  WBF_BREAKLINE               = $20; 
  {$EXTERNALSYM WBF_BREAKAFTER}
  WBF_BREAKAFTER              = $40; 

{ all character format measurements are in twips }

type
  TCharFormatA = record
    cbSize: UINT;
    dwMask: Longint;
    dwEffects: Longint;
    yHeight: Longint;
    yOffset: Longint;
    crTextColor: TColorRef;
    bCharSet: Byte;
    bPitchAndFamily: Byte;
    szFaceName: array[0..LF_FACESIZE - 1] of AnsiChar;
  end;
  TCharFormatW = record
    cbSize: UINT;
    dwMask: Longint;
    dwEffects: Longint;
    yHeight: Longint;
    yOffset: Longint;
    crTextColor: TColorRef;
    bCharSet: Byte;
    bPitchAndFamily: Byte;
    szFaceName: array[0..LF_FACESIZE - 1] of WideChar;
  end;
  TCharFormat = TCharFormatA;

{ CHARFORMAT masks }

const
  {$EXTERNALSYM CFM_BOLD}
  CFM_BOLD            = $00000001; 
  {$EXTERNALSYM CFM_ITALIC}
  CFM_ITALIC          = $00000002; 
  {$EXTERNALSYM CFM_UNDERLINE}
  CFM_UNDERLINE       = $00000004; 
  {$EXTERNALSYM CFM_STRIKEOUT}
  CFM_STRIKEOUT       = $00000008; 
  {$EXTERNALSYM CFM_PROTECTED}
  CFM_PROTECTED       = $00000010; 
  {$EXTERNALSYM CFM_LINK}
  CFM_LINK            = $00000020;              { Exchange hyperlink extension }
  {$EXTERNALSYM CFM_SIZE}
  CFM_SIZE            = $80000000; 
  {$EXTERNALSYM CFM_COLOR}
  CFM_COLOR           = $40000000; 
  {$EXTERNALSYM CFM_FACE}
  CFM_FACE            = $20000000; 
  {$EXTERNALSYM CFM_OFFSET}
  CFM_OFFSET          = $10000000; 
  {$EXTERNALSYM CFM_CHARSET}
  CFM_CHARSET         = $08000000; 

{ CHARFORMAT effects }

  {$EXTERNALSYM CFE_BOLD}
  CFE_BOLD            = $0001; 
  {$EXTERNALSYM CFE_ITALIC}
  CFE_ITALIC          = $0002; 
  {$EXTERNALSYM CFE_UNDERLINE}
  CFE_UNDERLINE       = $0004; 
  {$EXTERNALSYM CFE_STRIKEOUT}
  CFE_STRIKEOUT       = $0008; 
  {$EXTERNALSYM CFE_PROTECTED}
  CFE_PROTECTED       = $0010; 
  {$EXTERNALSYM CFE_LINK}
  CFE_LINK            = $0020; 
  {$EXTERNALSYM CFE_AUTOCOLOR}
  CFE_AUTOCOLOR       = $40000000;  { NOTE: this corresponds to CFM_COLOR, }
                                    { which controls it }
  {$EXTERNALSYM yHeightCharPtsMost}
  yHeightCharPtsMost  = 1638; 

{ EM_SETCHARFORMAT wParam masks }

  {$EXTERNALSYM SCF_SELECTION}
  SCF_SELECTION       = $0001; 
  {$EXTERNALSYM SCF_WORD}
  SCF_WORD            = $0002; 
  {$EXTERNALSYM SCF_DEFAULT}
  SCF_DEFAULT         = $0000;          { set the default charformat or paraformat }
  {$EXTERNALSYM SCF_ALL}
  SCF_ALL             = $0004;          { not valid with SCF_SELECTION or SCF_WORD }
  {$EXTERNALSYM SCF_USEUIRULES}
  SCF_USEUIRULES      = $0008;          { modifier for SCF_SELECTION; says that }
                                        { the format came from a toolbar, etc. and }
                                        { therefore UI formatting rules should be }
                                        { used instead of strictly formatting the }
                                        { selection. }

type
  {$EXTERNALSYM _charrange}
  _charrange = record
    cpMin: Longint;
    cpMax: LongInt;
  end;
  TCharRange = _charrange;
  {$EXTERNALSYM CHARRANGE}
  CHARRANGE = _charrange;

  TTextRangeA = record
    chrg: TCharRange;
    lpstrText: PAnsiChar;
  end;
  TTextRangeW = record
    chrg: TCharRange;
    lpstrText: PWideChar;
  end;
  TTextRange = TTextRangeA;

type
  TEditStreamCallBack = function (dwCookie: Longint; pbBuff: PByte; 
    cb: Longint; var pcb: Longint): Longint; stdcall;
    
  {$EXTERNALSYM _editstream}
  _editstream = record
    dwCookie: Longint;
    dwError: Longint;
    pfnCallback: TEditStreamCallBack;
  end;
  TEditStream = _editstream;
  {$EXTERNALSYM EDITSTREAM}
  EDITSTREAM = _editstream;

{ stream formats }

const
  {$EXTERNALSYM SF_TEXT}
  SF_TEXT             = $0001; 
  {$EXTERNALSYM SF_RTF}
  SF_RTF              = $0002; 
  {$EXTERNALSYM SF_RTFNOOBJS}
  SF_RTFNOOBJS        = $0003;          { outbound only }
  {$EXTERNALSYM SF_TEXTIZED}
  SF_TEXTIZED         = $0004;          { outbound only }
  {$EXTERNALSYM SF_UNICODE}
  SF_UNICODE          = $0010;          { Unicode file of some kind }

{ Flag telling stream operations to operate on the selection only }
{ EM_STREAMIN will replace the current selection }
{ EM_STREAMOUT will stream out the current selection }

  {$EXTERNALSYM SFF_SELECTION}
  SFF_SELECTION       = $8000; 

{ Flag telling stream operations to operate on the common RTF keyword only }
{ EM_STREAMIN will accept the only common RTF keyword }
{ EM_STREAMOUT will stream out the only common RTF keyword }

  {$EXTERNALSYM SFF_PLAINRTF}
  SFF_PLAINRTF        = $4000; 

{ EM_FINDTEXT flags (removed in 3.0 SDK - leave in!) }

  FT_MATCHCASE = 4;
  FT_WHOLEWORD = 2;

type
  TFindTextA = record
    chrg: TCharRange;
    lpstrText: PAnsiChar;
  end;
{#END}  

{#BEGIN}
  TFindTextExA = record
    chrg: TCharRange;
    lpstrText: PAnsiChar;
    chrgText: TCharRange;
  end;
  TFindTextW = record
    chrg: TCharRange;
    lpstrText: PWideChar;
  end;
{#END}  

{#BEGIN}
  TFindTextExW = record
    chrg: TCharRange;
    lpstrText: PWideChar;
    chrgText: TCharRange;
  end;
  TFindText = TFindTextA;

  {$EXTERNALSYM _formatrange}
  _formatrange = record
    hdc: HDC;
    hdcTarget: HDC;
    rc: TRect;
    rcPage: TRect;
    chrg: TCharRange;
  end;
  TFormatRange = _formatrange;
  {$EXTERNALSYM FORMATRANGE}
  FORMATRANGE = _formatrange;

{ all paragraph measurements are in twips }

const
  {$EXTERNALSYM MAX_TAB_STOPS}
  MAX_TAB_STOPS     = 32; 
  {$EXTERNALSYM lDefaultTab}
  lDefaultTab     = 720; 

type
  {$EXTERNALSYM _paraformat}
  _paraformat = record
    cbSize: UINT;
    dwMask: DWORD;
    wNumbering: Word;
    wReserved: Word;
    dxStartIndent: Longint;
    dxRightIndent: Longint;
    dxOffset: Longint;
    wAlignment: Word;
    cTabCount: Smallint;
    rgxTabs: array [0..MAX_TAB_STOPS - 1] of Longint;
  end;
  TParaFormat = _paraformat;
  {$EXTERNALSYM PARAFORMAT}
  PARAFORMAT = _paraformat;

{ PARAFORMAT mask values }

const
  {$EXTERNALSYM PFM_STARTINDENT}
  PFM_STARTINDENT                     = $00000001; 
  {$EXTERNALSYM PFM_RIGHTINDENT}
  PFM_RIGHTINDENT                     = $00000002; 
  {$EXTERNALSYM PFM_OFFSET}
  PFM_OFFSET                          = $00000004; 
  {$EXTERNALSYM PFM_ALIGNMENT}
  PFM_ALIGNMENT                       = $00000008; 
  {$EXTERNALSYM PFM_TABSTOPS}
  PFM_TABSTOPS                        = $00000010; 
  {$EXTERNALSYM PFM_NUMBERING}
  PFM_NUMBERING                       = $00000020; 
  {$EXTERNALSYM PFM_OFFSETINDENT}
  PFM_OFFSETINDENT                    = $80000000; 

{ PARAFORMAT numbering options }

  {$EXTERNALSYM PFN_BULLET}
  PFN_BULLET                  = $0001; 

{ PARAFORMAT alignment options }

  {$EXTERNALSYM PFA_LEFT}
  PFA_LEFT            = $0001; 
  {$EXTERNALSYM PFA_RIGHT}
  PFA_RIGHT           = $0002; 
  {$EXTERNALSYM PFA_CENTER}
  PFA_CENTER          = $0003; 

type  
  TCharFormat2A = record
    cbSize: UINT;
    dwMask: DWORD;
    dwEffects: DWORD;
    yHeight: Longint;
    yOffset: Longint;
    crTextColor: TColorRef;
    bCharSet: Byte;
    bPitchAndFamily: Byte;
    szFaceName: array[0..LF_FACESIZE - 1] of AnsiChar;
    wWeight: Word;                   { Font weight (LOGFONT value)		 }
    sSpacing: Smallint;              { Amount to space between letters	 }
    crBackColor: TColorRef;          { Background color					 }
    lid: LCID;                       { Locale ID						 }
    dwReserved: DWORD;               { Reserved. Must be 0				 }
    sStyle: Smallint;                { Style handle						 }
    wKerning: Word;                  { Twip size above which to kern char pair }
    bUnderlineType: Byte;            { Underline type					 }
    bAnimation: Byte;                { Animated text like marching ants	 }
    bRevAuthor: Byte;                { Revision author index			 }
    bReserved1: Byte;
  end;
  TCharFormat2W = record
    cbSize: UINT;
    dwMask: DWORD;
    dwEffects: DWORD;
    yHeight: Longint;
    yOffset: Longint;
    crTextColor: TColorRef;
    bCharSet: Byte;
    bPitchAndFamily: Byte;
    szFaceName: array[0..LF_FACESIZE - 1] of WideChar;
    wWeight: Word;                   { Font weight (LOGFONT value)		 }
    sSpacing: Smallint;              { Amount to space between letters	 }
    crBackColor: TColorRef;          { Background color					 }
    lid: LCID;                       { Locale ID						 }
    dwReserved: DWORD;               { Reserved. Must be 0				 }
    sStyle: Smallint;                { Style handle						 }
    wKerning: Word;                  { Twip size above which to kern char pair }
    bUnderlineType: Byte;            { Underline type					 }
    bAnimation: Byte;                { Animated text like marching ants	 }
    bRevAuthor: Byte;                { Revision author index			 }
    bReserved1: Byte;
  end;
  TCharFormat2 = TCharFormat2A;

{ CHARFORMAT and PARAFORMAT "ALL" masks
  CFM_COLOR mirrors CFE_AUTOCOLOR, a little hack to easily deal with autocolor }
const
  {$EXTERNALSYM CFM_EFFECTS}
  CFM_EFFECTS = CFM_BOLD or CFM_ITALIC or CFM_UNDERLINE or CFM_COLOR or 
    CFM_STRIKEOUT or CFE_PROTECTED or CFM_LINK; 
  {$EXTERNALSYM CFM_ALL}
  CFM_ALL = CFM_EFFECTS or CFM_SIZE or CFM_FACE or CFM_OFFSET or CFM_CHARSET; 
  {$EXTERNALSYM PFM_ALL}
  PFM_ALL = PFM_STARTINDENT or PFM_RIGHTINDENT or PFM_OFFSET or  
    PFM_ALIGNMENT or PFM_TABSTOPS or PFM_NUMBERING or PFM_OFFSETINDENT; 

{ New masks and effects -- a parenthesized asterisk indicates that
   the data is stored by RichEdit2.0, but not displayed }

  {$EXTERNALSYM CFM_SMALLCAPS}
  CFM_SMALLCAPS               = $0040;                  { (*)	 }
  {$EXTERNALSYM CFM_ALLCAPS}
  CFM_ALLCAPS                 = $0080;                  { (*)	 }
  {$EXTERNALSYM CFM_HIDDEN}
  CFM_HIDDEN                  = $0100;                  { (*)	 }
  {$EXTERNALSYM CFM_OUTLINE}
  CFM_OUTLINE                 = $0200;                  { (*)	 }
  {$EXTERNALSYM CFM_SHADOW}
  CFM_SHADOW                  = $0400;                  { (*)	 }
  {$EXTERNALSYM CFM_EMBOSS}
  CFM_EMBOSS                  = $0800;                  { (*)	 }
  {$EXTERNALSYM CFM_IMPRINT}
  CFM_IMPRINT                 = $1000;                  { (*)	 }
  {$EXTERNALSYM CFM_DISABLED}
  CFM_DISABLED                = $2000; 
  {$EXTERNALSYM CFM_REVISED}
  CFM_REVISED                 = $4000; 

  {$EXTERNALSYM CFM_BACKCOLOR}
  CFM_BACKCOLOR               = $04000000; 
  {$EXTERNALSYM CFM_LCID}
  CFM_LCID                    = $02000000; 
  {$EXTERNALSYM CFM_UNDERLINETYPE}
  CFM_UNDERLINETYPE           = $00800000;              { (*)	 }
  {$EXTERNALSYM CFM_WEIGHT}
  CFM_WEIGHT                  = $00400000; 
  {$EXTERNALSYM CFM_SPACING}
  CFM_SPACING                 = $00200000;              { (*)	 }
  {$EXTERNALSYM CFM_KERNING}
  CFM_KERNING                 = $00100000;              { (*)	 }
  {$EXTERNALSYM CFM_STYLE}
  CFM_STYLE                   = $00080000;              { (*)	 }
  {$EXTERNALSYM CFM_ANIMATION}
  CFM_ANIMATION               = $00040000;              { (*)	 }
  {$EXTERNALSYM CFM_REVAUTHOR}
  CFM_REVAUTHOR               = $00008000; 

  {$EXTERNALSYM CFE_SUBSCRIPT}
  CFE_SUBSCRIPT               = $00010000;              { Superscript and subscript are }
  {$EXTERNALSYM CFE_SUPERSCRIPT}
  CFE_SUPERSCRIPT             = $00020000;              {  mutually exclusive			 }

  {$EXTERNALSYM CFM_SUBSCRIPT}
  CFM_SUBSCRIPT               = CFE_SUBSCRIPT or CFE_SUPERSCRIPT; 
  {$EXTERNALSYM CFM_SUPERSCRIPT}
  CFM_SUPERSCRIPT             = CFM_SUBSCRIPT; 

  {$EXTERNALSYM CFM_EFFECTS2}
  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; 

  {$EXTERNALSYM CFM_ALL2}
  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; 

  {$EXTERNALSYM CFE_SMALLCAPS}
  CFE_SMALLCAPS               = CFM_SMALLCAPS; 
  {$EXTERNALSYM CFE_ALLCAPS}
  CFE_ALLCAPS                 = CFM_ALLCAPS; 
  {$EXTERNALSYM CFE_HIDDEN}
  CFE_HIDDEN                  = CFM_HIDDEN; 
  {$EXTERNALSYM CFE_OUTLINE}
  CFE_OUTLINE                 = CFM_OUTLINE; 
  {$EXTERNALSYM CFE_SHADOW}
  CFE_SHADOW                  = CFM_SHADOW; 
  {$EXTERNALSYM CFE_EMBOSS}
  CFE_EMBOSS                  = CFM_EMBOSS; 
  {$EXTERNALSYM CFE_IMPRINT}
  CFE_IMPRINT                 = CFM_IMPRINT; 
  {$EXTERNALSYM CFE_DISABLED}
  CFE_DISABLED                = CFM_DISABLED; 
  {$EXTERNALSYM CFE_REVISED}
  CFE_REVISED                 = CFM_REVISED; 

{ NOTE: CFE_AUTOCOLOR and CFE_AUTOBACKCOLOR correspond to CFM_COLOR and
   CFM_BACKCOLOR, respectively, which control them }
   
  {$EXTERNALSYM CFE_AUTOBACKCOLOR}
  CFE_AUTOBACKCOLOR           = CFM_BACKCOLOR; 

{ Underline types }

  {$EXTERNALSYM CFU_CF1UNDERLINE}
  CFU_CF1UNDERLINE            = $FF;    { map charformat's bit underline to CF2. }
  {$EXTERNALSYM CFU_INVERT}
  CFU_INVERT                  = $FE;    { For IME composition fake a selection. }
  {$EXTERNALSYM CFU_UNDERLINEDOTTED}
  CFU_UNDERLINEDOTTED         = $4;             { (*) displayed as ordinary underline	 }
  {$EXTERNALSYM CFU_UNDERLINEDOUBLE}
  CFU_UNDERLINEDOUBLE         = $3;             { (*) displayed as ordinary underline	 }
  {$EXTERNALSYM CFU_UNDERLINEWORD}
  CFU_UNDERLINEWORD           = $2;             { (*) displayed as ordinary underline	 }
  {$EXTERNALSYM CFU_UNDERLINE}
  CFU_UNDERLINE               = $1; 
  {$EXTERNALSYM CFU_UNDERLINENONE}
  CFU_UNDERLINENONE           = 0; 

type  
  TParaFormat2 = record
    cbSize: UINT;
    dwMask: DWORD;
    wNumbering: Word;
    wReserved: Word;
    dxStartIndent: Longint;
    dxRightIndent: Longint;
    dxOffset: Longint;
    wAlignment: Word;
    cTabCount: Smallint;
    rgxTabs: array [0..MAX_TAB_STOPS - 1] of Longint;
    dySpaceBefore: Longint;     { Vertical spacing before para			 }
    dySpaceAfter: Longint;      { Vertical spacing after para			 }
    dyLineSpacing: Longint;     { Line spacing depending on Rule		 }
    sStyle: Smallint;           { Style handle							 }
    bLineSpacingRule: Byte;     { Rule for line spacing (see tom.doc)	 }
    bCRC: Byte;                 { Reserved for CRC for rapid searching	 }
    wShadingWeight: Word;       { Shading in hundredths of a per cent	 }
    wShadingStyle: Word;        { Nibble 0: style, 1: cfpat, 2: cbpat	 }
    wNumberingStart: Word;      { Starting value for numbering			 }
    wNumberingStyle: Word;      { Alignment, roman/arabic, (), ), ., etc. }
    wNumberingTab: Word;        { Space bet 1st indent and 1st-line text }
    wBorderSpace: Word;         { Space between border and text (twips) }
    wBorderWidth: Word;         { Border pen width (twips)				 }
    wBorders: Word;             { Byte 0: bits specify which borders	 }
                                { Nibble 2: border style, 3: color index }
  end;

{ PARAFORMAT 2.0 masks and effects }
const
  {$EXTERNALSYM PFM_SPACEBEFORE}
  PFM_SPACEBEFORE                     = $00000040; 
  {$EXTERNALSYM PFM_SPACEAFTER}
  PFM_SPACEAFTER                      = $00000080; 
  {$EXTERNALSYM PFM_LINESPACING}
  PFM_LINESPACING                     = $00000100; 
  {$EXTERNALSYM PFM_STYLE}
  PFM_STYLE                           = $00000400; 
  {$EXTERNALSYM PFM_BORDER}
  PFM_BORDER                          = $00000800;      { (*)	 }
  {$EXTERNALSYM PFM_SHADING}
  PFM_SHADING                         = $00001000;      { (*)	 }
  {$EXTERNALSYM PFM_NUMBERINGSTYLE}
  PFM_NUMBERINGSTYLE                  = $00002000;      { (*)	 }
  {$EXTERNALSYM PFM_NUMBERINGTAB}
  PFM_NUMBERINGTAB                    = $00004000;      { (*)	 }
  {$EXTERNALSYM PFM_NUMBERINGSTART}
  PFM_NUMBERINGSTART                  = $00008000;      { (*)	 }

  {$EXTERNALSYM PFM_RTLPARA}
  PFM_RTLPARA                         = $00010000; 
  {$EXTERNALSYM PFM_KEEP}
  PFM_KEEP                            = $00020000;      { (*)	 }
  {$EXTERNALSYM PFM_KEEPNEXT}
  PFM_KEEPNEXT                        = $00040000;      { (*)	 }
  {$EXTERNALSYM PFM_PAGEBREAKBEFORE}
  PFM_PAGEBREAKBEFORE                 = $00080000;      { (*)	 }
  {$EXTERNALSYM PFM_NOLINENUMBER}
  PFM_NOLINENUMBER                    = $00100000;      { (*)	 }
  {$EXTERNALSYM PFM_NOWIDOWCONTROL}
  PFM_NOWIDOWCONTROL                  = $00200000;      { (*)	 }
  {$EXTERNALSYM PFM_DONOTHYPHEN}
  PFM_DONOTHYPHEN                     = $00400000;      { (*)	 }
  {$EXTERNALSYM PFM_SIDEBYSIDE}
  PFM_SIDEBYSIDE                      = $00800000;      { (*)	 }

  {$EXTERNALSYM PFM_TABLE}
  PFM_TABLE                           = $c0000000;      { (*)	 }

{ Note: PARAFORMAT has no effects }

  {$EXTERNALSYM PFM_EFFECTS}
  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; 

  {$EXTERNALSYM PFM_ALL2}
  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; 

  {$EXTERNALSYM PFE_RTLPARA}
  PFE_RTLPARA                         = PFM_RTLPARA		 shr 16; 
  {$EXTERNALSYM PFE_KEEP}
  PFE_KEEP                            = PFM_KEEP			 shr 16;                     { (*)	 }
  {$EXTERNALSYM PFE_KEEPNEXT}
  PFE_KEEPNEXT                        = PFM_KEEPNEXT		 shr 16;          { (*)	 }
  {$EXTERNALSYM PFE_PAGEBREAKBEFORE}
  PFE_PAGEBREAKBEFORE                 = PFM_PAGEBREAKBEFORE shr 16;     { (*)	 }
  {$EXTERNALSYM PFE_NOLINENUMBER}
  PFE_NOLINENUMBER                    = PFM_NOLINENUMBER	 shr 16;       { (*)	 }
  {$EXTERNALSYM PFE_NOWIDOWCONTROL}
  PFE_NOWIDOWCONTROL                  = PFM_NOWIDOWCONTROL	 shr 16;     { (*)	 }
  {$EXTERNALSYM PFE_DONOTHYPHEN}
  PFE_DONOTHYPHEN                     = PFM_DONOTHYPHEN 	 shr 16;       { (*)	 }
  {$EXTERNALSYM PFE_SIDEBYSIDE}
  PFE_SIDEBYSIDE                      = PFM_SIDEBYSIDE		 shr 16;        { (*)	 }

  {$EXTERNALSYM PFE_TABLEROW}
  PFE_TABLEROW                        = $c000;          { These 3 options are mutually	 }
  {$EXTERNALSYM PFE_TABLECELLEND}
  PFE_TABLECELLEND                    = $8000;          {  exclusive and each imply	 }
  {$EXTERNALSYM PFE_TABLECELL}
  PFE_TABLECELL                       = $4000;          {  that para is part of a table }

{ 
 *	PARAFORMAT numbering options (values for wNumbering):
 *
 *		Numbering Type		Value	Meaning
 *		tomNoNumbering		     0		Turn off paragraph numbering
 *		tomNumberAsLCLetter	  1		a, b, c, ...
 *		tomNumberAsUCLetter	  2		A, B, C, ...
 *		tomNumberAsLCRoman	  3		i, ii, iii, ...
 *		tomNumberAsUCRoman	  4		I, II, III, ...
 *		tomNumberAsSymbols	  5		default is bullet
 *		tomNumberAsNumber	     6		0, 1, 2, ...
 *		tomNumberAsSequence	  7		tomNumberingStart is first Unicode to use
 *
 *	Other valid Unicode chars are Unicodes for bullets.
}

  {$EXTERNALSYM PFA_JUSTIFY}
  PFA_JUSTIFY                         = 4;      { New paragraph-alignment option 2.0 (*) }

{ notification structures }
type
  PMsgFilter = ^TMsgFilter;
  {$EXTERNALSYM _msgfilter}
  _msgfilter = record
    nmhdr: TNMHdr;
    msg: UINT;
    wParam: WPARAM;
    lParam: LPARAM;
  end;
  TMsgFilter = _msgfilter;
  {$EXTERNALSYM MSGFILTER}
  MSGFILTER = _msgfilter;

  PReqSize = ^TReqSize;
  TReqSize = record
    nmhdr: TNMHdr;
    rc: TRect;
  end;

  PSelChange = ^TSelChange;
  {$EXTERNALSYM _selchange}
  _selchange = record
    nmhdr: TNMHdr;
    chrg: TCharRange;
    seltyp: Word;
  end;
  TSelChange = _selchange;
  {$EXTERNALSYM SELCHANGE}
  SELCHANGE = _selchange;

const
  {$EXTERNALSYM SEL_EMPTY}
  SEL_EMPTY           = $0000; 
  {$EXTERNALSYM SEL_TEXT}
  SEL_TEXT            = $0001; 
  {$EXTERNALSYM SEL_OBJECT}
  SEL_OBJECT          = $0002; 
  {$EXTERNALSYM SEL_MULTICHAR}
  SEL_MULTICHAR       = $0004; 
  {$EXTERNALSYM SEL_MULTIOBJECT}
  SEL_MULTIOBJECT     = $0008; 

{ used with IRichEditOleCallback::GetContextMenu, this flag will be
   passed as a "selection type".  It indicates that a context menu for
   a right-mouse drag drop should be generated.  The IOleObject parameter
   will really be the IDataObject for the drop
}
  {$EXTERNALSYM GCM_RIGHTMOUSEDROP}
  GCM_RIGHTMOUSEDROP      = $8000; 

type
  TEndDropFiles = record
    nmhdr: TNMHdr;
    hDrop: THandle;
    cp: Longint;
    fProtected: Bool;
  end;

  PENProtected = ^TENProtected;
  {$EXTERNALSYM _enprotected}
  _enprotected = record
    nmhdr: TNMHdr;
    msg: UINT;
    wParam: WPARAM;
    lParam: LPARAM;
    chrg: TCharRange;
  end;
  TENProtected = _enprotected;
  {$EXTERNALSYM ENPROTECTED}
  ENPROTECTED = _enprotected;

  PENSaveClipboard = ^TENSaveClipboard;
  {$EXTERNALSYM _ensaveclipboard}
  _ensaveclipboard = record
    nmhdr: TNMHdr;
    cObjectCount: Longint;
    cch: Longint;
  end;
  TENSaveClipboard = _ensaveclipboard;
  {$EXTERNALSYM ENSAVECLIPBOARD}
  ENSAVECLIPBOARD = _ensaveclipboard;

  TENOleOpFailed = packed record 
    nmhdr: TNMHdr;
    iob: Longint;
    lOper: Longint;
    hr: HRESULT;
  end;

const
  {$EXTERNALSYM OLEOP_DOVERB}
  OLEOP_DOVERB        = 1; 

type
  TObjectPositions = packed record 
    nmhdr: TNMHdr;
    cObjectCount: Longint;
    pcpPositions: PLongint;
  end;

  TENLink = record 
    nmhdr: TNMHdr;
    msg: UINT;
    wParam: WPARAM;
    lParam: LPARAM;
    chrg: TCharRange;
  end;

{ PenWin specific }
  {$EXTERNALSYM _encorrecttext}
  _encorrecttext = record
    nmhdr: TNMHdr;
    chrg: TCharRange;
    seltyp: Word;
  end;
  TENCorrectText = _encorrecttext;
  {$EXTERNALSYM ENCORRECTTEXT}
  ENCORRECTTEXT = _encorrecttext;

{ Far East specific }
  {$EXTERNALSYM _punctuation}
  _punctuation = record
    iSize: UINT;
    szPunctuation: PChar;
  end;
  TPunctuation = _punctuation;
  {$EXTERNALSYM PUNCTUATION}
  PUNCTUATION = _punctuation;

{ Far East specific }
  {$EXTERNALSYM _compcolor}
  _compcolor = record
    crText: TColorRef;
    crBackground: TColorRef;
    dwEffects: Longint;
  end;
  TCompColor = _compcolor;
  {$EXTERNALSYM COMPCOLOR}
  COMPCOLOR = _compcolor;

{ clipboard formats - use as parameter to RegisterClipboardFormat }

const
  {$EXTERNALSYM CF_RTF}
  CF_RTF                 = 'Rich Text Format';
  {$EXTERNALSYM CF_RTFNOOBJS}
  CF_RTFNOOBJS           = 'Rich Text Format Without Objects'; 
  {$EXTERNALSYM CF_RETEXTOBJ}
  CF_RETEXTOBJ           = 'RichEdit Text and Objects';

type
  {$EXTERNALSYM _repastespecial}
  _repastespecial = record
    dwAspect: DWORD;
    dwParam: DWORD;
  end;
  TRepasteSpecial = _repastespecial;
  {$EXTERNALSYM REPASTESPECIAL}
  REPASTESPECIAL = _repastespecial;

{ 	UndoName info }

  UNDONAMEID = (UID_UNKNOWN, UID_TYPING, UID_DELETE, UID_DRAGDROP, UID_CUT,
    UID_PASTE);

{ flags for the GETEXTEX data structure }

const
  {$EXTERNALSYM GT_DEFAULT}
  GT_DEFAULT                  = 0; 
  {$EXTERNALSYM GT_USECRLF}
  GT_USECRLF                  = 1; 

{ EM_GETTEXTEX info; this struct is passed in the wparam of the message }

type
  TGetTextEx = record 
    cb: DWORD;                 { count of bytes in the string  }
    flags: DWORD;              { flags (see the GT_XXX defines }
    codepage: UINT;            { code page for translation (CP_ACP for default,
                                 1200 for Unicode 					 }
    lpDefaultChar: LPCSTR;     { replacement for unmappable chars			 }
    lpUsedDefChar: PBOOL;      { pointer to flag set when def char used	 }
  end;

{ flags for the GETTEXTLENGTHEX data structure }

const
  {$EXTERNALSYM GTL_DEFAULT}
  GTL_DEFAULT         = 0;      { do the default (return # of chars)		 }
  {$EXTERNALSYM GTL_USECRLF}
  GTL_USECRLF         = 1;      { compute answer using CRLFs for paragraphs }
  {$EXTERNALSYM GTL_PRECISE}
  GTL_PRECISE         = 2;      { compute a precise answer					 }
  {$EXTERNALSYM GTL_CLOSE}
  GTL_CLOSE           = 4;      { fast computation of a "close" answer		 }
  {$EXTERNALSYM GTL_NUMCHARS}
  GTL_NUMCHARS        = 8;      { return the number of characters			 }
  {$EXTERNALSYM GTL_NUMBYTES}
  GTL_NUMBYTES        = 16;     { return the number of _bytes_				 }

{ EM_GETTEXTLENGTHEX info; this struct is passed in the wparam of the msg }

type
  TGetTextLengthEx = record 
    flags: DWORD;              { flags (see GTL_XXX defines)				 }
    codepage: UINT;            { code page for translation (CP_ACP for default,
                                 1200 for Unicode 					 }
  end;

{ UNICODE embedding character }
const
  {$EXTERNALSYM WCH_EMBEDDING}
  WCH_EMBEDDING     = $FFFC; 

implementation

end.
