From 2b957acf3fe8d231152b7ab9eda57faea645da9a Mon Sep 17 00:00:00 2001
From: skalogryz <skalogryz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Mon, 24 Oct 2016 14:37:05 +0000
Subject: [PATCH] richmemo: win32 - allow a custom richedit class to be
 specified

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

diff --git a/components/richmemo/win32/win32richmemo.pas b/components/richmemo/win32/win32richmemo.pas
index f20de9afb..2e1587593 100644
--- a/components/richmemo/win32/win32richmemo.pas
+++ b/components/richmemo/win32/win32richmemo.pas
@@ -169,6 +169,7 @@ var
   NCPaint : TNCPaintProc = nil;
   AllocOLEObject : procedure (ARichMemo: TCustomRichMemo; AHandle: Windows.THandle; out OleCallback: IRichEditOleCallback);
   InsertInlineFlags : Integer = REO_OWNERDRAWSELECT;
+  RichEditClass   : String = ''; // manually assigned by RichMemo user
 
 function GetSelRTF(amemo: TCustomRichMemo): string;
 function GetRichEditOLE(amemo: TCustomRichMemo): IRichEditOle; overload;
@@ -552,8 +553,12 @@ var
   ACustomMemo : TCustomMemo;
   eventmask   : LPARAM;
 begin
-  InitRichEdit;
-  RichClass := GetRichEditClass;
+  if RichEditClass='' then begin
+    InitRichEdit;
+    RichClass := GetRichEditClass;
+  end else
+    RichClass := RichEditClass;
+
   if RichClass = '' then begin
     Result := 0;
     Exit;