From 9953b56cdf07e584367db44e34e75921accf59c9 Mon Sep 17 00:00:00 2001
From: skalogryz <skalogryz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Thu, 15 Sep 2016 03:21:46 +0000
Subject: [PATCH] richmemo: win32 adding InsertInlineFlags to give control over
 how inline objects are inserted

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5163 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/richmemo/win32/win32richmemo.pas | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/components/richmemo/win32/win32richmemo.pas b/components/richmemo/win32/win32richmemo.pas
index b35dfe19e..2d45f244f 100644
--- a/components/richmemo/win32/win32richmemo.pas
+++ b/components/richmemo/win32/win32richmemo.pas
@@ -168,6 +168,7 @@ var
   // or set it to whatever function desired
   NCPaint : TNCPaintProc = nil;
   AllocOLEObject : procedure (ARichMemo: TCustomRichMemo; AHandle: Windows.THandle; out OleCallback: IRichEditOleCallback);
+  InsertInlineFlags : Integer = REO_OWNERDRAWSELECT;
 
 function GetSelRTF(amemo: TCustomRichMemo): string;
 function GetRichEditOLE(amemo: TCustomRichMemo): IRichEditOle; overload;
@@ -1239,7 +1240,7 @@ begin
     Obj.pstg := Storage;
     Obj.polesite := ClientSite;
     Obj.dvaspect := DVASPECT_CONTENT;
-    Obj.dwFlags := REO_OWNERDRAWSELECT;
+    Obj.dwFlags := InsertInlineFlags;
 
     Obj.sizel.cx:=round(ASize.cx * SizeFactor);
     Obj.sizel.cy:=round(ASize.cy * SizeFactor);