Чтение и запись.
Тип: Произвольный.
Возвращает или задает произвольные данные для элемента.
Структура1 = Новый Структура("Планета","Земля");
Структура1.Вставить("Звезда", "Солнце");
Структура1.Вставить("Спутник", "Луна");
ПунктМеню1.Данные = Структура1;
Перем ТФ, Текст, ПунктМеню1; Процедура ПриОткрытии() Экспорт Данные = ПунктМеню1.Данные; ТФ.Верхний.Текст = ТФ.Верхний.Текст + " |Данные = " + Данные + " |"; КонецПроцедуры Процедура Файл_Нажатие() Экспорт ТФ.Верхний.Текст = Текст + "Файл " + ТекущаяУниверсальнаяДатаВМиллисекундах(); КонецПроцедуры Процедура Справка_Нажатие() Экспорт ТФ.Верхний.Текст = Текст + "Справка " + ТекущаяУниверсальнаяДатаВМиллисекундах(); КонецПроцедуры Процедура Открыть_Нажатие() Экспорт ТФ.Верхний.Текст = Текст + "Открыть " + ТекущаяУниверсальнаяДатаВМиллисекундах(); КонецПроцедуры Процедура Выход_Нажатие() Экспорт ТФ.Верхний.Текст = Текст + "Выход " + ТекущаяУниверсальнаяДатаВМиллисекундах(); КонецПроцедуры ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptTerminalGui\OneScriptTerminalGui\bin\Debug\OneScriptTerminalGui.dll"); ТФ = Новый ТерминалФормыДляОдноСкрипта(); ПанельМеню1 = ТФ.ПанельМеню(); ТФ.Верхний.Добавить(ПанельМеню1); ПунктМеню1 = ТФ.ПунктМеню(); ПунктМеню1.Заголовок = "Файл"; ПунктМеню1.Нажатие = ТФ.Действие(ЭтотОбъект, "Файл_Нажатие"); ПанельМеню1.ПодМеню.Добавить(ПунктМеню1); ЭлементМеню1 = ТФ.ЭлементМеню(); ЭлементМеню1.Заголовок = "_Открыть"; ЭлементМеню1.Нажатие = ТФ.Действие(ЭтотОбъект, "Открыть_Нажатие"); ПунктМеню1.Элементы.Добавить(ЭлементМеню1); ЭлементМеню2 = ТФ.ЭлементМеню(); ЭлементМеню2.Заголовок = "_Выход"; ЭлементМеню2.Подсказка = "Выход"; ЭлементМеню2.Нажатие = ТФ.Действие(ЭтотОбъект, "Выход_Нажатие"); ПунктМеню1.Элементы.Добавить(ЭлементМеню2); ПунктМеню2 = ТФ.ПунктМеню(); ПунктМеню2.Заголовок = "Справка"; ПунктМеню2.Подсказка = "Справка"; ПунктМеню2.Нажатие = ТФ.Действие(ЭтотОбъект, "Справка_Нажатие"); ПанельМеню1.ПодМеню.Добавить(ПунктМеню2); Текст = " | | | | | | |Кликните по элементам панели меню. |"; ТФ.Верхний.Текст = Текст; Структура1 = Новый Структура("Планета","Земля"); Структура1.Вставить("Звезда", "Солнце"); Структура1.Вставить("Спутник", "Луна"); ПунктМеню1.Данные = Структура1; ТФ.ПриОткрытии = ТФ.Действие(ЭтотОбъект, "ПриОткрытии"); ТФ.Запуск();
Перем ТФ, Текст, ПунктМеню1, Данные; Процедура ПриОткрытии() Экспорт Данные = ПунктМеню1.Данные; ТФ.Верхний.Текст = ТФ.Верхний.Текст + " |Данные = " + Данные + " |"; КонецПроцедуры Процедура Файл_Нажатие() Экспорт ТФ.Верхний.Текст = Текст + "Файл " + ТекущаяУниверсальнаяДатаВМиллисекундах(); КонецПроцедуры Процедура Справка_Нажатие() Экспорт ТФ.Верхний.Текст = Текст + "Справка " + ТекущаяУниверсальнаяДатаВМиллисекундах(); КонецПроцедуры Процедура Открыть_Нажатие() Экспорт ТФ.Верхний.Текст = Текст + "Открыть " + ТекущаяУниверсальнаяДатаВМиллисекундах(); КонецПроцедуры Процедура Выход_Нажатие() Экспорт ТФ.Верхний.Текст = Текст + "Выход " + ТекущаяУниверсальнаяДатаВМиллисекундах(); КонецПроцедуры ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptTerminalGui\OneScriptTerminalGui\bin\Debug\OneScriptTerminalGui.dll"); ТФ = Новый ТерминалФормыДляОдноСкрипта(); ПанельМеню1 = ТФ.ПанельМеню(); ТФ.Верхний.Добавить(ПанельМеню1); ПунктМеню1 = ТФ.ПунктМеню(); ПунктМеню1.Заголовок = "Файл"; ПунктМеню1.Нажатие = ТФ.Действие(ЭтотОбъект, "Файл_Нажатие"); ПанельМеню1.ПодМеню.Добавить(ПунктМеню1); ЭлементМеню1 = ТФ.ЭлементМеню(); ЭлементМеню1.Заголовок = "_Открыть"; ЭлементМеню1.Нажатие = ТФ.Действие(ЭтотОбъект, "Открыть_Нажатие"); ПунктМеню1.Элементы.Добавить(ЭлементМеню1); ЭлементМеню2 = ТФ.ЭлементМеню(); ЭлементМеню2.Заголовок = "_Выход"; ЭлементМеню2.Подсказка = "Выход"; ЭлементМеню2.Нажатие = ТФ.Действие(ЭтотОбъект, "Выход_Нажатие"); ПунктМеню1.Элементы.Добавить(ЭлементМеню2); ПунктМеню2 = ТФ.ПунктМеню(); ПунктМеню2.Заголовок = "Справка"; ПунктМеню2.Подсказка = "Справка"; ПунктМеню2.Нажатие = ТФ.Действие(ЭтотОбъект, "Справка_Нажатие"); ПанельМеню1.ПодМеню.Добавить(ПунктМеню2); Текст = " | | | | | | |Кликните по элементам панели меню. |"; ТФ.Верхний.Текст = Текст; Структура1 = Новый Структура("Планета","Земля"); Структура1.Вставить("Звезда", "Солнце"); Структура1.Вставить("Спутник", "Луна"); ПунктМеню1.Данные = Структура1; ТФ.ПриОткрытии = ТФ.Действие(ЭтотОбъект, "ПриОткрытии"); ТФ.ЗапуститьИЗавершить(); Сообщить(?( ТипЗнч(Данные) = Тип("Структура") , "", "!!! ") + "ПунктМеню.Данные (MenuBarItem.Data) Свойство" + " " + ТекущаяДата() + Символы.ПС);