Difference between revisions of "Mac Buttons/ru"
From Lazarus wiki
Jump to navigationJump to searchm |
m (Fixed platform name) |
||
(3 intermediate revisions by 3 users not shown) | |||
Line 1: | Line 1: | ||
− | {{Platform only| | + | {{Mac Buttons}} |
− | По умолчанию кнопка, размещенная на форме в среде Lazarus имеет размер 75 (свойство '''Width''') на 25 (свойство '''Height'''), который является нестандартным для приложений в системе | + | |
+ | {{Platform only|macOS}} | ||
+ | По умолчанию кнопка, размещенная на форме в среде Lazarus имеет размер 75 (свойство '''Width''') на 25 (свойство '''Height'''), который является нестандартным для приложений в системе macOS. | ||
Для того, чтобы кнопки отображались овальными, установите высоту (свойство '''Height''') в максимальное значение 22. | Для того, чтобы кнопки отображались овальными, установите высоту (свойство '''Height''') в максимальное значение 22. | ||
Line 9: | Line 11: | ||
'''КОД ДЛЯ ОДНОЙ КНОПКИ:''' | '''КОД ДЛЯ ОДНОЙ КНОПКИ:''' | ||
− | <syntaxhighlight> | + | <syntaxhighlight lang="pascal"> |
procedure TForm1.FormCreate(Sender: TObject); | procedure TForm1.FormCreate(Sender: TObject); | ||
begin | begin | ||
Line 18: | Line 20: | ||
'''КОД ДЛЯ ВСЕХ КНОПОК:''' | '''КОД ДЛЯ ВСЕХ КНОПОК:''' | ||
− | <syntaxhighlight> | + | <syntaxhighlight lang="pascal"> |
procedure TForm1.FormCreate(Sender: TObject); | procedure TForm1.FormCreate(Sender: TObject); | ||
var | var | ||
Line 30: | Line 32: | ||
end; | end; | ||
</syntaxhighlight> | </syntaxhighlight> | ||
− | |||
− | |||
− |
Latest revision as of 08:24, 18 December 2019
│
English (en) │
русский (ru) │
Эта статья относится только к macOS.
См. также: Multiplatform Programming Guide
По умолчанию кнопка, размещенная на форме в среде Lazarus имеет размер 75 (свойство Width) на 25 (свойство Height), который является нестандартным для приложений в системе macOS.
Для того, чтобы кнопки отображались овальными, установите высоту (свойство 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;