paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-04 13:37:22 +01:00
Code Issues Packages Projects Releases Wiki Activity

cocoa: adjusting size of TGroupBox to match layout rectangle

Browse Source 
git-svn-id: trunk@58983 -
This commit is contained in:
dmitry 2018-09-14 03:17:35 +00:00
parent 49c4dbe3c8
commit e2793c4874
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lcl/interfaces/cocoa/cocoaprivate.pas
View File

@ -249,6 +249,7 @@ type
function lclIsHandle: Boolean; override;
function lclClientFrame: TRect; override;
function lclContentView: NSView; override;
function lclGetFrameToLayoutDelta: TRect; override;
end;
@ -432,6 +433,14 @@ begin
Result := NSView(contentView);
end;
function TCocoaGroupBox.lclGetFrameToLayoutDelta: TRect;
begin
Result.Left := 3;
Result.Right := -3;
Result.Top := 0;
Result.Bottom := -4;
end;
function TCocoaGroupBox.acceptsFirstResponder: Boolean;
begin
Result := True;