КонтекстноеМеню.КлонироватьМеню (ContextMenu.CloneMenu) Метод

Синтаксис

КлонироватьМеню()

Параметры

Возвращаемое значение

Тип: КонтекстноеМеню (ContextMenu).

Описание

Создает новый объект КонтекстноеМеню (ContextMenu), который является дубликатом текущего объекта КонтекстноеМеню (ContextMenu).

Примечание

Пример

КонтекстноеМеню2 = КонтекстноеМеню1.КлонироватьМеню();
Полный пример кода 

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


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

ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptForms\OneScriptForms\bin\Debug\OneScriptForms.dll");
Ф = Новый ФормыДляОдноСкрипта();
Форма1 = Ф.Форма();
Форма1.Ширина = 900;
Форма1.Высота = 400;
Форма1.Отображать = Истина;
Форма1.Показать();
Форма1.Активизировать();

// создадим контекстное меню
КонтекстноеМеню1 = Ф.КонтекстноеМеню();
_Файл = КонтекстноеМеню1.ЭлементыМеню.Добавить(Ф.ЭлементМеню("Файл"));
_Файл.Имя = "ИсходныйФайл";
_Справка = КонтекстноеМеню1.ЭлементыМеню.Добавить(Ф.ЭлементМеню("Справка"));

_Новый = _Файл.ЭлементыМеню.Добавить(Ф.ЭлементМеню("Новый"));
_Открыть = _Файл.ЭлементыМеню.Добавить(Ф.ЭлементМеню("Открыть"));
_СохранитьКак = _Файл.ЭлементыМеню.Добавить(Ф.ЭлементМеню("Сохранить как..."));

_txt = _СохранитьКак.ЭлементыМеню.Добавить(Ф.ЭлементМеню("Файл *.txt"));
_rtf = _СохранитьКак.ЭлементыМеню.Добавить(Ф.ЭлементМеню("Файл *.rtf"));
_Меню555 = _СохранитьКак.ЭлементыМеню.Добавить(Ф.ЭлементМеню("Меню555"));
_Меню666 = _СохранитьКак.ЭлементыМеню.Добавить(Ф.ЭлементМеню("Меню666"));
_Меню777 = _Меню666.ЭлементыМеню.Добавить(Ф.ЭлементМеню("Меню777", Ф.Действие(ЭтотОбъект, "Меню777_Нажатие"), Ф.СочетаниеКлавиш.ShiftF10));

_Помошник = _Справка.ЭлементыМеню.Добавить(Ф.ЭлементМеню("Помошник"));
_Опрограмме = _Справка.ЭлементыМеню.Добавить(Ф.ЭлементМеню("О программе..."));

// создадим копию КонтекстноеМеню1, и изменим текст меню "Файл"
КонтекстноеМеню2 = КонтекстноеМеню1.КлонироватьМеню();

Форма1.КонтекстноеМеню = КонтекстноеМеню2;
Эл = КонтекстноеМеню2.ЭлементыМеню.Элемент(0);
Эл.Текст = "НовыйФайл";
Сообщить("Эл.Текст = " + Эл.Текст);

Ф.ЗапуститьОбработкуСобытий();

Тестовый код 

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


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

ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptForms\OneScriptForms\bin\Debug\OneScriptForms.dll");
Ф = Новый ФормыДляОдноСкрипта();
Форма1 = Ф.Форма();
Форма1.Ширина = 900;
Форма1.Высота = 400;
Форма1.Отображать = Истина;
Форма1.Показать();
Форма1.Активизировать();

// создадим контекстное меню
КонтекстноеМеню1 = Ф.КонтекстноеМеню();
_Файл = КонтекстноеМеню1.ЭлементыМеню.Добавить(Ф.ЭлементМеню("Файл"));
_Файл.Имя = "ИсходныйФайл";
_Справка = КонтекстноеМеню1.ЭлементыМеню.Добавить(Ф.ЭлементМеню("Справка"));

_Новый = _Файл.ЭлементыМеню.Добавить(Ф.ЭлементМеню("Новый"));
_Открыть = _Файл.ЭлементыМеню.Добавить(Ф.ЭлементМеню("Открыть"));
_СохранитьКак = _Файл.ЭлементыМеню.Добавить(Ф.ЭлементМеню("Сохранить как..."));

_txt = _СохранитьКак.ЭлементыМеню.Добавить(Ф.ЭлементМеню("Файл *.txt"));
_rtf = _СохранитьКак.ЭлементыМеню.Добавить(Ф.ЭлементМеню("Файл *.rtf"));
_Меню555 = _СохранитьКак.ЭлементыМеню.Добавить(Ф.ЭлементМеню("Меню555"));
_Меню666 = _СохранитьКак.ЭлементыМеню.Добавить(Ф.ЭлементМеню("Меню666"));
_Меню777 = _Меню666.ЭлементыМеню.Добавить(Ф.ЭлементМеню("Меню777", Ф.Действие(ЭтотОбъект, "Меню777_Нажатие"), Ф.СочетаниеКлавиш.ShiftF10));

_Помошник = _Справка.ЭлементыМеню.Добавить(Ф.ЭлементМеню("Помошник"));
_Опрограмме = _Справка.ЭлементыМеню.Добавить(Ф.ЭлементМеню("О программе..."));

// создадим копию КонтекстноеМеню1, и изменим текст меню "Файл"
КонтекстноеМеню2 = КонтекстноеМеню1.КлонироватьМеню();

Форма1.КонтекстноеМеню = КонтекстноеМеню2;
Эл = КонтекстноеМеню2.ЭлементыМеню.Элемент(0);
Эл.Текст = "НовыйФайл";

Сообщить(?(КонтекстноеМеню2.ЭлементыМеню.Количество = 2, "", "!!! ") + "КонтекстноеМеню.КлонироватьМеню (ContextMenu.CloneMenu) Метод" + " " + ТекущаяДата());

Смотрите также

КонтекстноеМеню (ContextMenu) Класс | Библиотека OneScriptForms