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

cocoa: updating groupbox font. bug #63488

Browse Source 
git-svn-id: trunk@63522 -
This commit is contained in:
dmitry 2020-07-07 03:59:57 +00:00
parent 919849eac7
commit a507da5cb2
1 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -54,6 +54,7 @@ type
class function CreateHandle(const AWinControl: TWinControl; const AParams: TCreateParams): TLCLIntfHandle; override;
class function GetText(const AWinControl: TWinControl; var AText: String): Boolean; override;
class procedure SetText(const AWinControl: TWinControl; const AText: String); override;
class procedure SetFont(const AWinControl: TWinControl; const AFont: TFont); override;
end;
{ TLCLComboboxCallback }
@ -2074,6 +2075,20 @@ begin
box.setTitle(ControlTitleToNSStr(AText));
end;
class procedure TCocoaWSCustomGroupBox.SetFont(const AWinControl: TWinControl;
const AFont: TFont);
var
box: TCocoaGroupBox;
fn : NSFont;
begin
if not AWinControl.HandleAllocated then Exit;
box := TCocoaGroupBox(AWinControl.Handle);
fn := TCocoaFont(AFont.Reference.Handle).Font;
if AFont.Size = 0 then
fn := NSFont.fontWithDescriptor_size(fn.fontDescriptor, NSFont.smallSystemFontSize);
box.setTitleFont(fn);
end;
{ TCocoaWSCustomListBox }
function GetListBox(AWinControl: TWinControl): TCocoaTableListView;