Difference between revisions of "Mac Buttons"
From Free Pascal wiki
Jump to navigationJump to searchm (Fixed syntax highlighting; Added see also; Categorised page) |
m (Removed categories as already in page template :-) |
||
Line 37: | Line 37: | ||
*[[Add an Apple Help Book to your macOS app]] | *[[Add an Apple Help Book to your macOS app]] | ||
*[[OS X Programming Tips]] | *[[OS X Programming Tips]] | ||
− | |||
− | |||
− |
Revision as of 11:17, 3 July 2019
│
English (en) │
русский (ru) │
This article applies to Mac OS X only.
See also: Multiplatform Programming Guide
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:
procedure TForm1.FormCreate(Sender: TObject);
begin
Button1.Height := 22;
end;
CODE FOR ALL BUTTONS:
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;