Чтение и запись.
Тип: Действие (Action).
Возвращает или задает код для события при выборе цвета.
Отправитель (Sender) |
Возвращает источник (объект) последнего события. |
Параметр (Parameter) |
Возвращает объект, заданный при установке обработчика события, для передачи в обработчик события. |
ВыборЦвета1.ПриИзмененииЦвета = ТФ.Действие(ЭтотОбъект, "ВыборЦвета1_ПриИзмененииЦвета");
Перем ТФ, ВыборЦвета1; Процедура ПриОткрытии() Экспорт ТФ.Верхний.Текст = "Выберите цвет"; КонецПроцедуры Процедура ВыборЦвета1_ПриИзмененииЦвета() Экспорт ВыбранныйЦвет = ВыборЦвета1.ВыбранныйЦвет; ТФ.Уведомление().Показать("ВыбранныйЦвет = " + ТФ.Цвет.Имя(ВыбранныйЦвет), -1); КонецПроцедуры ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptTerminalGui\OneScriptTerminalGui\bin\Debug\OneScriptTerminalGui.dll"); ТФ = Новый ТерминалФормыДляОдноСкрипта(); ВыборЦвета1 = ТФ.Верхний.Добавить(ТФ.ВыборЦвета("ВыборЦвета", , 5)); ВыборЦвета1.ПриИзмененииЦвета = ТФ.Действие(ЭтотОбъект, "ВыборЦвета1_ПриИзмененииЦвета"); ТФ.ПриОткрытии = ТФ.Действие(ЭтотОбъект, "ПриОткрытии"); ТФ.Запуск();
Перем ТФ, ВыборЦвета1, ВыбранныйЦвет; Процедура ПриОткрытии() Экспорт ТФ.Верхний.Текст = "Выберите цвет"; ТФ.ТаймерНачатьИОстановить(ЭтотОбъект, "ТаймерТик"); КонецПроцедуры Процедура ВыборЦвета1_ПриИзмененииЦвета() Экспорт ВыбранныйЦвет = ВыборЦвета1.ВыбранныйЦвет; ТФ.Уведомление().Показать("ВыбранныйЦвет = " + ТФ.Цвет.Имя(ВыбранныйЦвет), -1); ТФ.Завершить(); КонецПроцедуры Процедура ТаймерТик() Экспорт ВыборЦвета1.ПозицияКурсора = ТФ.Точка(1, 0); КонецПроцедуры ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptTerminalGui\OneScriptTerminalGui\bin\Debug\OneScriptTerminalGui.dll"); ТФ = Новый ТерминалФормыДляОдноСкрипта(); ВыборЦвета1 = ТФ.Верхний.Добавить(ТФ.ВыборЦвета("ВыборЦвета", , 5)); ВыборЦвета1.ПриИзмененииЦвета = ТФ.Действие(ЭтотОбъект, "ВыборЦвета1_ПриИзмененииЦвета"); ТФ.ПриОткрытии = ТФ.Действие(ЭтотОбъект, "ПриОткрытии"); ТФ.Запуск(); Сообщить(?( ВыбранныйЦвет >= 0 , "", "!!! ") + "ВыборЦвета.ПриИзмененииЦвета (ColorPicker.ColorChanged) Событие" + " " + ТекущаяДата() + Символы.ПС);