From b4e560af5ae32ec55236d27296d84a668e21c0c9 Mon Sep 17 00:00:00 2001
From: skalogryz <skalogryz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Fri, 15 Apr 2016 01:05:05 +0000
Subject: [PATCH] richmemo: carbon, initializing wordwrap and border values,
 similar to TMemo

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

diff --git a/components/richmemo/carbon/carbonrichmemo.pas b/components/richmemo/carbon/carbonrichmemo.pas
index 70e00555d..9107edfee 100644
--- a/components/richmemo/carbon/carbonrichmemo.pas
+++ b/components/richmemo/carbon/carbonrichmemo.pas
@@ -30,7 +30,7 @@ uses
 
   Controls, Graphics, StdCtrls,
 
-  WSRichMemo,
+  RichMemo, WSRichMemo,
 
   CarbonDef, CarbonUtils,
   CarbonProc, CarbonEdits;
@@ -263,8 +263,13 @@ end;
 
 class function TCarbonWSCustomRichMemo.CreateHandle(const AWinControl: TWinControl;
   const AParams: TCreateParams): HWND;
+var
+  RE: TCarbonRichEdit;
 begin
-  Result := TLCLIntfHandle(TCarbonRichEdit.Create(AWinControl, AParams));
+  RE:=TCarbonRichEdit.Create(AWinControl, AParams);
+  Result := TLCLIntfHandle(RE);
+  Re.SetWordWrap(TCustomRichMemo(AWinControl).WordWrap);
+  Re.SetBorderVisible(TCustomRichMemo(AWinControl).BorderStyle=bsSingle);
 end;
 
 class function TCarbonWSCustomRichMemo.GetStyleRange(const AWinControl: TWinControl;