Mac Preferences and About Menu/ru: what changed

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

Old	New		Line
1	1		(macOS only)
2	2
3	3		Некоторые элементы должны отображаться в меню приложения по умолчанию в строке меню macOS вашего приложения. Хотя Lazarus автоматически добавляет:
4	4
5	5		- Services (Службы)
6	6		- Hide MyApp (Скрыть MyApp)
7	7		- Hide Others (Скрыть остальное)
8	8		- Show All (Показать все)
9	9		- Quit MyApp (Выйти из MyApp)
10	10
11	11		Lazarus не добавляет пункт меню «О моем приложении» или «Настройки ...». Чтобы добавить эти два элемента в то же меню приложения, что и «Выход», вам нужно проделать небольшой трюк.
12	12
13	13		Добавьте компонент MainMenu со вкладки Standard палитры компонентов в основную форму. Создайте пункт меню и измените его свойство `Caption` в инспекторе объектов на имя вашего приложения только для справки. Затем в этом меню добавьте три пункта подменю со следующими заголовками: "About MyApp"(О моем приложении), «-» (разделитель) и "Preferences..."(Настройки).
14	14
15		-	~~<figure>~~
16		-	~~<img src="MenuItems3new.jpg" title="MenuItems3new.jpg" />~~
17		-	~~<figcaption>MenuItems3new.jpg</figcaption>~~
18		-	~~</figure>~~
	15	+	![](/wiki-images/3/32/MenuItems3new.jpg)
19	16
20	17		Назначьте ярлык "Command" пункту меню "Preferences..."(Настройки) редактора ярлыков (выберите свойство `ShortCut` пункта меню в Инспекторе объектов и щелкните точки с многоточием рядом с ним). После отметки мета-клавиши смените надпись в комбобоксе "Unknown" на запятую, нажав сначала клавишу "Grab key", а затем запятую на клавиатуре, в результате ваш ярлык будет выглядеть так:
21	18
22		-	~~<figure>~~
23		-	~~<img src="MenuItemsGrab.png" title="MenuItemsGrab.png" />~~
24		-	~~<figcaption>MenuItemsGrab.png</figcaption>~~
25		-	~~</figure>~~
	19	+	![](/wiki-images/5/50/MenuItemsGrab.png)
26	20
27	21		Наконец, чтобы получить эти элементы в меню приложения MyApp, мы должны изменить заголовок первого элемента меню в обработчике событий OnCreate главной формы следующим образом:
28	22
29	23		``` pascal
30	24		procedure TForm1.FormCreate(Sender: TObject);
31	25		var
32	26		AppMenu : TMenuItem;
33	27		begin
34	28		AppMenu := TMenuItem.Create(Self); // Меню приложения
35	29		AppMenu.Caption := #$EF#$A3#$BF; // Юникодный символ логотипа Apple
36	30		MainMenu.Items.Insert(0, AppMenu);
37	31		end;
38	32		```
39	33
40	34		После перекомпиляции вашего приложения и его запуска вы заметите, что "About MyApp" и "Preferences..." были добавлены в меню MyApp, где они и должны быть.
41	35
42		-	~~<figure>~~
43		-	~~<img src="MenuItems4new.png" title="MenuItems4new.png" />~~
44		-	~~<figcaption>MenuItems4new.png</figcaption>~~
45		-	~~</figure>~~
	36	+	![](/wiki-images/0/05/MenuItems4new.png)
46	37
47	38		Вы заметили проблему? Вы действительно хотите назвать свое приложение «MyApp», а не «My App»?
48	39
49	40		Нет, вы не можете просто так изменить файл проекта «program MyApp» на «Program My App», иначе вам сообщат "MyApp.lpr(1,11) Fatal: Syntax error, ";" expected but "identifier APP" found"(ошибка синтаксиса: ожидается ";", но найден идентификатор APP).
50	41
51	42		Решение состоит в том, чтобы изменить файл Info.plist вашего приложения, открыв пакет вашего приложения, перейдя к Contents, дважды щелкнув Info.plist и используя редактор Xcode plist, чтобы изменить значение ключа «Bundle name» на строку "My App" и сохранить его. Теперь, когда вы запустите"MyApp", оно отобразится как "My App".
52	43
53	44		Of course you would also now need to change the "About MyApp" caption too :-) Конечно, теперь вам также нужно будет изменить заголовок "About MyApp" :-)
54	45
55	46		Все? Нет. Пункты меню, созданные Lazarus, по-прежнему показывают "Hide MyApp"(Скрыть MyApp) и "Quit MyApp"(Выйти из MyApp). Чтобы изменить их на "My App", вам необходимо изменить обработчик событий `OnCreate` основной формы, как показано ниже:
56	47
57	48		``` pascal
58	49		procedure TForm1.FormCreate(Sender: TObject);
59	50		var
60	51		AppMenu : TMenuItem;
61	52		begin
62	53		Application.Title := 'My App';
63	54		AppMenu := TMenuItem.Create(Self); // Меню приложения
64	55		AppMenu.Caption := #$EF#$A3#$BF; // Юникодный символ логотипа Apple
65	56		MainMenu.Items.Insert(0, AppMenu);
66	57		end;
67	58		```
68	59
69	60		И вот окончательный результат:
70	61
71		-	~~<figure>~~
72		-	~~<img src="macOSMenuFinal.png" title="macOSMenuFinal.png" />~~
73		-	~~<figcaption>macOSMenuFinal.png</figcaption>~~
74		-	~~</figure>~~
	62	+	![](/wiki-images/9/92/MacOSMenuFinal.png)
75	63
76	64		Чтобы связать параметры меню с действием, добавьте TActionList в основную форму, добавьте действия для About и Preferences (отредактируйте свойства, а затем создайте соответствующие обработчики событий `OnExecute` для каждого действия), а затем измените обработчик событий `OnCreate` основной формы как ниже:
77	65
78	66		``` pascal
79	67		procedure TForm1.FormCreate(Sender: TObject);
80	68		var
81	69		AppMenu : TMenuItem;
82	70		AppAboutCmd : TMenuItem;
83	71		AppSepCmd : TMenuItem;
84	72		AppPrefCmd : TMenuItem;
85	73		begin
86	74		Application.Title := 'My App';
87	75
88	76		AppMenu := TMenuItem.Create(Self); // Меню приложения
89	77		AppMenu.Caption := #$EF#$A3#$BF; // Юникодный символ логотипа Apple
90	78		MainMenu.Items.Insert(0, AppMenu);
91	79
92	80		AppAboutCmd := TMenuItem.Create(Self);
93	81		AppAboutCmd.Action:= ActionList1.Actions[1];
94	82		AppMenu.Add(AppAboutCmd); // Добавляем About как пункт в меню приложения
95	83
96	84		AppSepCmd := TMenuItem.Create(Self);
97	85		AppSepCmd.Caption := '-';
98	86		AppMenu.Add(AppSepCmd); // добавляем разделитель меню
99	87
100	88		AppPrefCmd := TMenuItem.Create(Self);
101	89		AppPrefCmd.Action:= ActionList1.Actions[2];
102	90		AppMenu.Add(AppPrefCmd); // Добавляем Preferences как пункт в меню приложения
103	91
104	92		AppSepCmd := TMenuItem.Create(Self);
105	93		AppSepCmd.Caption := '-';
106	94		AppMenu.Add(AppSepCmd); // добавляем разделитель меню
107	95		end;
108	96		```
109	97
110	98		## См. также
111	99
112	100		- [[Introduction to platform-sensitive development]]
113	101		- [[Mac Preferences Read and Write]]
114	102		- [[Mac Show Application Title, Version, and Company]]
115	103		- [[Add an Apple Help Book to your macOS app]]
116	104		- [[macOS Programming Tips]]
117	105
118	106		---
119	107		From the Free Pascal wiki, page "Mac Preferences and About Menu/ru", as it stood on 2020-08-20 after a change by Zoltanleo, 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).

Back to history