paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 05:19:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

carbon: fix for WordWrap property set in design-time, #16296

Browse Source 
git-svn-id: trunk@24721 -
This commit is contained in:
dmitry 2010-04-19 12:29:06 +00:00
parent 7ca94731c5
commit dd61038ebf
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/interfaces/carbon/carbonwsstdctrls.pp
View File

@ -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;
{------------------------------------------------------------------------------