From c147bf9cebfd54f5353dda572f98d50edc3b3030 Mon Sep 17 00:00:00 2001
From: skalogryz <skalogryz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Tue, 23 Dec 2014 13:17:28 +0000
Subject: [PATCH] richmemo: win32 corrected insertion of inline object - use
 specified start character and characters length

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

diff --git a/components/richmemo/win32/win32richmemo.pas b/components/richmemo/win32/win32richmemo.pas
index b7ae56767..ca52a33b0 100644
--- a/components/richmemo/win32/win32richmemo.pas
+++ b/components/richmemo/win32/win32richmemo.pas
@@ -823,6 +823,7 @@ begin
 
   RichEditManager.GetSelection(hnd, ss, sl);
   try
+    RichEditManager.SetSelection(hnd, ATextStart, ATextLength);
     SendMessage(hnd, EM_GETOLEINTERFACE, 0, LPARAM(@rch));
 
     FillChar(Fmt, sizeoF(Fmt), 0);