Лоток.Меню (Tray.Menu) Свойство

Копировать     Выделить всё

Процедура Лоток1_Нажатие() Экспорт
	Сообщить("Лоток1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах());
КонецПроцедуры

ПодключитьВнешнююКомпоненту("C:\444\111\DeclarativeForms\DeclarativeForms\bin\Debug\DeclarativeForms.dll");
ДФ = Новый ДекларативныеФормы();
Форма1 = ДФ.Форма;
Форма1.НачальнаяШирина = 400;
Форма1.НачальнаяВысота = 200;
Форма1.Позиция = ДФ.ПозицияФормы.Центр;

Лоток1 = ДФ.Лоток();
Лоток1.Заголовок = "Заголовок";
Лоток1.Подсказка = "Подсказка";
Лоток1.Значок = "icon.png";
Лоток1.Нажатие = ДФ.Действие(ЭтотОбъект, "Лоток1_Нажатие");

ГлавноеМеню = ДФ.Меню(ДФ.ТипМеню.Главное); // Это строка главного меню.

ПодменюМенюФайл = ДФ.Меню(ДФ.ТипМеню.Отсутствие);
МенюФайл = ДФ.ЭлементМеню("Файл", ДФ.ТипЭлементаМеню.Стандартный, ПодменюМенюФайл);
Открыть = ДФ.ЭлементМеню("Открыть", ДФ.ТипЭлементаМеню.Стандартный);
Сохранить = ДФ.ЭлементМеню("Сохранить");
Разделитель1 = ДФ.ЭлементМеню(, ДФ.ТипЭлементаМеню.Разделитель);
Настройки = ДФ.ЭлементМеню("Настройки");
Разделитель2 = ДФ.ЭлементМеню(, ДФ.ТипЭлементаМеню.Разделитель);
Выход = ДФ.ЭлементМеню("Выход");
ПодменюМенюФайл.Добавить(Открыть);
ПодменюМенюФайл.Добавить(Сохранить);
ПодменюМенюФайл.Добавить(Разделитель1);
ПодменюМенюФайл.Добавить(Настройки);
ПодменюМенюФайл.Добавить(Разделитель2);
ПодменюМенюФайл.Добавить(Выход);

ПодменюМенюПравка = ДФ.Меню(ДФ.ТипМеню.Отсутствие);
МенюПравка = ДФ.ЭлементМеню("Правка", ДФ.ТипЭлементаМеню.Стандартный, ПодменюМенюПравка);
Отмена = ДФ.ЭлементМеню("Отмена");
Повтор = ДФ.ЭлементМеню("Повтор");
ПодменюМенюПравка.Добавить(Отмена);
ПодменюМенюПравка.Добавить(Повтор);

ПодменюМенюСправка = ДФ.Меню(ДФ.ТипМеню.Отсутствие);
МенюСправка = ДФ.ЭлементМеню("Справка", ДФ.ТипЭлементаМеню.Стандартный, ПодменюМенюСправка);
ОПрограмме = ДФ.ЭлементМеню("О программе");
ПодменюМенюСправка.Добавить(ОПрограмме);

ГлавноеМеню.Добавить(МенюФайл);
ГлавноеМеню.Добавить(МенюПравка);
ГлавноеМеню.Добавить(МенюСправка);

Лоток1.Меню = ГлавноеМеню;

Форма1.Открыть();