Difference between revisions of "Mac Buttons/ru"
From Free Pascal wiki
Jump to navigationJump to search (Deleted categories because they are placed in template) |
|||
| Line 32: | Line 32: | ||
end; | end; | ||
</syntaxhighlight> | </syntaxhighlight> | ||
| − | |||
| − | |||
| − | |||
Revision as of 16:34, 25 May 2018
│
English (en) │
русский (ru) │
Эта статья относится только к Mac OS X.
См. также: Multiplatform Programming Guide
По умолчанию кнопка, размещенная на форме в среде Lazarus имеет размер 75 (свойство Width) на 25 (свойство Height), который является нестандартным для приложений в системе Mac OS.
Для того, чтобы кнопки отображались овальными, установите высоту (свойство Height) в максимальное значение 22.
Это можно сделать, установив высоту кнопки напрямую (в режиме разработки) или программно.
КОД ДЛЯ ОДНОЙ КНОПКИ:
procedure TForm1.FormCreate(Sender: TObject);
begin
Button1.Height := 22;
end;КОД ДЛЯ ВСЕХ КНОПОК:
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;