pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

richmemo: carbon, initializing wordwrap and border values, similar to TMemo

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4621 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
skalogryz
2016-04-15 01:05:05 +00:00
parent c043c97b5c
commit b4e560af5a
1 changed files with 7 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
components/richmemo/carbon/carbonrichmemo.pas
View File

@ -30,7 +30,7 @@ uses
Controls, Graphics, StdCtrls, Controls, Graphics, StdCtrls,
WSRichMemo, RichMemo, WSRichMemo,
CarbonDef, CarbonUtils, CarbonDef, CarbonUtils,
CarbonProc, CarbonEdits; CarbonProc, CarbonEdits;
@ -263,8 +263,13 @@ end;
class function TCarbonWSCustomRichMemo.CreateHandle(const AWinControl: TWinControl; class function TCarbonWSCustomRichMemo.CreateHandle(const AWinControl: TWinControl;
const AParams: TCreateParams): HWND; const AParams: TCreateParams): HWND;
var
RE: TCarbonRichEdit;
begin 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; end;
class function TCarbonWSCustomRichMemo.GetStyleRange(const AWinControl: TWinControl; class function TCarbonWSCustomRichMemo.GetStyleRange(const AWinControl: TWinControl;