Revision 1 of 1, by Trev on 12-18-2019. The page as it is now.

Mac Buttons

(macOS only)

By default, the button placed onto a form by Lazarus is 75 width by 25 height, which is not the standard for Mac Applications.

In order for buttons to appear oval, make the button height 22 maximum.

This can be done by setting the button height directly or through code.

CODE FOR A SINGLE BUTTON:

pascal

procedure TForm1.FormCreate(Sender: TObject);
begin
  Button1.Height := 22;
end;

CODE FOR ALL BUTTONS:

pascal

procedure TForm1.FormCreate(Sender: TObject);
var
  I: Integer;
begin
  for I := 0 to Form1.ControlCount - 1 do begin
    if (Form1.Controls[I].ClassType = TButton) then Form1.Controls[I].Height := 22;
  end;
end;

Mac Buttons

CODE FOR A SINGLE BUTTON:

CODE FOR ALL BUTTONS:

See also