paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-28 01:29:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

cocoa: support for TEdit border style

Browse Source 
git-svn-id: trunk@61470 -
This commit is contained in:
dmitry 2019-06-24 15:50:48 +00:00
parent 75797cfc91
commit 5e39875ae0
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/interfaces/cocoa/cocoawsstdctrls.pas
View File

@ -952,8 +952,13 @@ end;
class procedure TCocoaWSCustomEdit.SetBorderStyle(
const AWinControl: TWinControl; const ABorderStyle: TBorderStyle);
var
field : TCocoaTextField;
begin
inherited SetBorderStyle(AWinControl, ABorderStyle);
field := GetTextField(AWinControl);
if not Assigned(field) then Exit;
field.setBordered_( ObjCBool(ABorderStyle <> bsNone) );
field.setBezeled_( ObjCBool(ABorderStyle <> bsNone) );
end;
class function TCocoaWSCustomEdit.GetSelStart(const ACustomEdit: TCustomEdit): integer;