Difference between revisions of "Mac Buttons"

From Free Pascal wiki
Jump to navigationJump to search
(Deleted categories because they are placed in template)
m (Fixed syntax highlighting; Added see also; Categorised page)
Line 10: Line 10:
  
 
==CODE FOR A SINGLE BUTTON:==
 
==CODE FOR A SINGLE BUTTON:==
<syntaxhighlight>
+
 
 +
<syntaxhighlight lang="pascal">
 
procedure TForm1.FormCreate(Sender: TObject);
 
procedure TForm1.FormCreate(Sender: TObject);
 
begin
 
begin
Line 19: Line 20:
 
==CODE FOR ALL BUTTONS:==
 
==CODE FOR ALL BUTTONS:==
  
<syntaxhighlight>
+
<syntaxhighlight lang="pascal">
 
procedure TForm1.FormCreate(Sender: TObject);
 
procedure TForm1.FormCreate(Sender: TObject);
 
var
 
var
Line 29: Line 30:
 
end;
 
end;
 
</syntaxhighlight>
 
</syntaxhighlight>
 +
 +
== See also ==
 +
 +
*[[Introduction to platform-sensitive development]]
 +
*[[Mac Show Application Title, Version, and Company]]
 +
*[[Add an Apple Help Book to your macOS app]]
 +
*[[OS X Programming Tips]]
 +
 +
[[Category:Mac OS X]]
 +
[[Category:Platform-sensitive development]]

Revision as of 11:13, 3 July 2019

English (en) русский (ru)

Stock-dialog-warning.svg

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;

See also