Меню.Показать (Menu.Popup) Метод

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

Перем ДФ;
Перем ГлавноеМеню;

Процедура Абзац1_ПриОтпусканииМыши() Экспорт
	Если ДФ.АргументыСобытия.Кнопка = ДФ.КнопкиМыши.Правая Тогда
		ГлавноеМеню.Показать(ДФ.АргументыСобытия.Икс, ДФ.АргументыСобытия.Игрек);
	КонецЕсли;
КонецПроцедуры

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

ГлавноеМеню = ДФ.Меню(ДФ.ТипМеню.Контекстное);

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

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

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

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

Абзац1 = ДФ.Абзац();
Абзац1.Родитель = Форма1;
Абзац1.Текст = "Это Абзац";
Абзац1.Стиль.Высота = 400;
Абзац1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой");
Абзац1.ПриОтпусканииМыши = ДФ.Действие(ЭтотОбъект, "Абзац1_ПриОтпусканииМыши");

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