Чтение и запись.
Тип: ГлавноеМеню (MainMenu).
Возвращает или задает объект ГлавноеМеню (MainMenu), представляющий собой главное меню формы.
ГлавноеМеню1 = Ф.ГлавноеМеню(); Форма1.Меню = ГлавноеМеню1;
Копировать Выделить всёФункция Новый_Нажатие() Экспорт Сообщить("Новый_Нажатие"); КонецФункции Функция Открыть_Нажатие() Экспорт Сообщить("Открыть_Нажатие"); КонецФункции Функция Сохранить_Нажатие() Экспорт Сообщить("Сохранить_Нажатие"); КонецФункции Функция Выход_Нажатие() Экспорт Сообщить("Выход_Нажатие"); КонецФункции Функция Справка_Нажатие() Экспорт Сообщить("Справка_Нажатие"); КонецФункции Функция Опрограмме_Нажатие() Экспорт Сообщить("Опрограмме_Нажатие"); КонецФункции ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptForms\OneScriptForms\bin\Debug\OneScriptForms.dll"); Ф = Новый ФормыДляОдноСкрипта(); Форма1 = Ф.Форма(); Форма1.Отображать = Истина; Форма1.Показать(); Форма1.Активизировать(); ГлавноеМеню1 = Ф.ГлавноеМеню(); Элементы = ГлавноеМеню1.ЭлементыМеню; Подменю_Файл = Элементы.Добавить(Ф.ЭлементМеню("Файл")); Подменю_Справка = Элементы.Добавить(Ф.ЭлементМеню("Справка")); Элементы = Подменю_Файл.ЭлементыМеню; Подменю_Файл_Новый = Элементы.Добавить(Ф.ЭлементМеню("Новый", Ф.Действие(ЭтотОбъект, "Новый_Нажатие"), Ф.СочетаниеКлавиш.ShiftF10)); Подменю_Файл_Открыть = Элементы.Добавить(Ф.ЭлементМеню("Открыть", Ф.Действие(ЭтотОбъект, "Открыть_Нажатие"), Ф.СочетаниеКлавиш.ShiftF11)); Подменю_Файл_Сохранить = Элементы.Добавить(Ф.ЭлементМеню("Сохранить", Ф.Действие(ЭтотОбъект, "Сохранить_Нажатие"))); Подменю_Файл_СохранитьКак = Элементы.Добавить(Ф.ЭлементМеню("Сохранить как...")); Подменю_Файл_Выход = Элементы.Добавить(Ф.ЭлементМеню("Выход", Ф.Действие(ЭтотОбъект, "Выход_Нажатие"))); Элементы = Подменю_Справка.ЭлементыМеню; Подменю_Справка_Справка = Элементы.Добавить(Ф.ЭлементМеню("Справка", Ф.Действие(ЭтотОбъект, "Справка_Нажатие"))); Подменю_Справка_Опрограмме = Элементы.Добавить(Ф.ЭлементМеню("О программе...", Ф.Действие(ЭтотОбъект, "Опрограмме_Нажатие"), )); Элементы = Подменю_Файл_СохранитьКак.ЭлементыМеню; Подменю_Файл_СохранитьКак_Файл_txt = Элементы.Добавить(Ф.ЭлементМеню("Файл *.txt")); Подменю_Файл_СохранитьКак_Файл_rtf = Элементы.Добавить(Ф.ЭлементМеню("Файл *.rtf")); Форма1.Меню = ГлавноеМеню1; Ф.ЗапуститьОбработкуСобытий();
Копировать Выделить всёФункция Новый_Нажатие() Экспорт Сообщить("Новый_Нажатие"); КонецФункции Функция Открыть_Нажатие() Экспорт Сообщить("Открыть_Нажатие"); КонецФункции Функция Сохранить_Нажатие() Экспорт Сообщить("Сохранить_Нажатие"); КонецФункции Функция Выход_Нажатие() Экспорт Сообщить("Выход_Нажатие"); КонецФункции Функция Справка_Нажатие() Экспорт Сообщить("Справка_Нажатие"); КонецФункции Функция Опрограмме_Нажатие() Экспорт Сообщить("Опрограмме_Нажатие"); КонецФункции ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptForms\OneScriptForms\bin\Debug\OneScriptForms.dll"); Ф = Новый ФормыДляОдноСкрипта(); Форма1 = Ф.Форма(); Форма1.Отображать = Истина; Форма1.Показать(); Форма1.Активизировать(); ГлавноеМеню1 = Ф.ГлавноеМеню(); Элементы = ГлавноеМеню1.ЭлементыМеню; Подменю_Файл = Элементы.Добавить(Ф.ЭлементМеню("Файл")); Подменю_Справка = Элементы.Добавить(Ф.ЭлементМеню("Справка")); Элементы = Подменю_Файл.ЭлементыМеню; Подменю_Файл_Новый = Элементы.Добавить(Ф.ЭлементМеню("Новый", Ф.Действие(ЭтотОбъект, "Новый_Нажатие"), Ф.СочетаниеКлавиш.ShiftF10)); Подменю_Файл_Открыть = Элементы.Добавить(Ф.ЭлементМеню("Открыть", Ф.Действие(ЭтотОбъект, "Открыть_Нажатие"), Ф.СочетаниеКлавиш.ShiftF11)); Подменю_Файл_Сохранить = Элементы.Добавить(Ф.ЭлементМеню("Сохранить", Ф.Действие(ЭтотОбъект, "Сохранить_Нажатие"))); Подменю_Файл_СохранитьКак = Элементы.Добавить(Ф.ЭлементМеню("Сохранить как...")); Подменю_Файл_Выход = Элементы.Добавить(Ф.ЭлементМеню("Выход", Ф.Действие(ЭтотОбъект, "Выход_Нажатие"))); Элементы = Подменю_Справка.ЭлементыМеню; Подменю_Справка_Справка = Элементы.Добавить(Ф.ЭлементМеню("Справка", Ф.Действие(ЭтотОбъект, "Справка_Нажатие"))); Подменю_Справка_Опрограмме = Элементы.Добавить(Ф.ЭлементМеню("О программе...", Ф.Действие(ЭтотОбъект, "Опрограмме_Нажатие"), )); Элементы = Подменю_Файл_СохранитьКак.ЭлементыМеню; Подменю_Файл_СохранитьКак_Файл_txt = Элементы.Добавить(Ф.ЭлементМеню("Файл *.txt")); Подменю_Файл_СохранитьКак_Файл_rtf = Элементы.Добавить(Ф.ЭлементМеню("Файл *.rtf")); Форма1.Меню = ГлавноеМеню1; Сообщить(?( Форма1.Меню = ГлавноеМеню1 , "", "!!! ") + "Форма.Меню (Form.Menu) Свойство" + " " + ТекущаяДата());