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

richmemo: update cocoa initialization of properties

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7861 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
skalogryz
2020-11-11 18:31:33 +00:00
parent f03e9a1eb1
commit 02e6f28f3b
1 changed files with 6 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
components/richmemo/cocoa/cocoarichmemo.pas
View File

@ -9,7 +9,7 @@ interface
uses uses
CocoaAll, Classes, SysUtils, CocoaAll, Classes, SysUtils,
LCLType, Graphics, Controls, StdCtrls, LCLType, Graphics, Controls, StdCtrls,
CocoaPrivate, CocoaTextEdits, CocoaUtils, CocoaWSCommon, CocoaPrivate, CocoaTextEdits, CocoaUtils, CocoaWSCommon, CocoaWSStdCtrls,
{$ifndef RMLCL18} // it can be defined in the package's CustomOptions -dRMLCL18 {$ifndef RMLCL18} // it can be defined in the package's CustomOptions -dRMLCL18
CocoaScrollers, // this unit was introduced in summer-fall 2018 with Lazarus 2.0 release CocoaScrollers, // this unit was introduced in summer-fall 2018 with Lazarus 2.0 release
{$endif} {$endif}
@ -228,6 +228,11 @@ begin
scr.callback := txt.callback; scr.callback := txt.callback;
Result := TLCLIntfHandle(scr); Result := TLCLIntfHandle(scr);
TextViewSetWordWrap(txt, scr, TCustomMemo(AWinControl).WordWrap);
TextViewSetAllignment(txt, TCustomMemo(AWinControl).Alignment);
txt.wantReturns := TCustomMemo(AWinControl).WantReturns;
txt.callback.SetTabSuppress(not TCustomMemo(AWinControl).WantTabs);
end; end;
class function TCocoaWSCustomRichMemo.GetTextAttributes( class function TCocoaWSCustomRichMemo.GetTextAttributes(