Mac Buttons/ru: what changed

Revision 0 to 1. Removed lines have a minus sign; added lines have a plus sign.

Title: Mac Buttons/ru

New		Line
1	+	(macOS only)
2	+
3	+	По умолчанию кнопка, размещенная на форме в среде Lazarus имеет размер 75 (свойство Width) на 25 (свойство Height), который является нестандартным для приложений в системе macOS.
4	+
5	+	Для того, чтобы кнопки отображались овальными, установите высоту (свойство Height) в максимальное значение 22.
6	+
7	+	Это можно сделать, установив высоту кнопки напрямую (в режиме разработки) или программно.
8	+
9	+	КОД ДЛЯ ОДНОЙ КНОПКИ:
10	+
11	+	``` pascal
12	+	procedure TForm1.FormCreate(Sender: TObject);
13	+	begin
14	+	Button1.Height := 22;
15	+	end;
16	+	```
17	+
18	+	КОД ДЛЯ ВСЕХ КНОПОК:
19	+
20	+	``` pascal
21	+	procedure TForm1.FormCreate(Sender: TObject);
22	+	var
23	+	I: Integer;
24	+	begin
25	+	for I := 0 to Form1.ControlCount - 1 do
26	+	begin
27	+	if (Form1.Controls[I].ClassType = TButton) then
28	+	Form1.Controls[I].Height := 22;
29	+	end;
30	+	end;
31	+	```
32	+
33	+	---
34	+	From the Free Pascal wiki, page "Mac Buttons/ru", as it stood on 2019-12-18 after a change by Trev, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's [[Licensing]] page. If you have concerns about this material, [message the admin](/wiki-contact).