From 1718de4281a520911c7c73e40711ac5eb7b75b51 Mon Sep 17 00:00:00 2001
From: skalogryz <skalogryz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Mon, 13 Jan 2020 14:10:13 +0000
Subject: [PATCH] richmemo: fix gtk2 type casting error

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

diff --git a/components/richmemo/gtk2/gtk2richmemo.pas b/components/richmemo/gtk2/gtk2richmemo.pas
index 7c9f5c63e..672d14095 100644
--- a/components/richmemo/gtk2/gtk2richmemo.pas
+++ b/components/richmemo/gtk2/gtk2richmemo.pas
@@ -783,7 +783,7 @@ begin
 
   // add border for memo
   gtk_scrolled_window_set_shadow_type(PGtkScrolledWindow(Widget),
-    BorderStyleShadowMap[TCustomControl(AWinControl).BorderStyle]);
+    BorderStyleShadowMap[TCustomMemo(AWinControl).BorderStyle]);
 
   SetMainWidget(Widget, TempWidget);
   GetWidgetInfo(Widget, True)^.CoreWidget := TempWidget;