From dd61038ebf5b8c49fc94c431b70597ec4a7fe41d Mon Sep 17 00:00:00 2001
From: dmitry <dmitry@lazarus-ide.org>
Date: Mon, 19 Apr 2010 12:29:06 +0000
Subject: [PATCH] carbon: fix for WordWrap property set in design-time, #16296

git-svn-id: trunk@24721 -
---
 lcl/interfaces/carbon/carbonwsstdctrls.pp | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/lcl/interfaces/carbon/carbonwsstdctrls.pp b/lcl/interfaces/carbon/carbonwsstdctrls.pp
index 8c2e11d5a1..817e8db9c0 100644
--- a/lcl/interfaces/carbon/carbonwsstdctrls.pp
+++ b/lcl/interfaces/carbon/carbonwsstdctrls.pp
@@ -910,8 +910,12 @@ end;
  ------------------------------------------------------------------------------}
 class function TCarbonWSCustomMemo.CreateHandle(const AWinControl: TWinControl;
   const AParams: TCreateParams): TLCLIntfHandle;
+var
+  Memo  : TCarbonMemo;
 begin
-  Result := TLCLIntfHandle(TCarbonMemo.Create(AWinControl, AParams));
+  Memo:=TCarbonMemo.Create(AWinControl, AParams);
+  Memo.SetWordWrap(TCustomMemo(AWinControl).WordWrap);
+  Result := TLCLIntfHandle(Memo);
 end;
 
 {------------------------------------------------------------------------------