Чтение и запись.
Тип: ЦветоваяСхема (ColorScheme).
Возвращает или задает цветовую схему для элемента. Если она не определена, будет возвращена цветовая схема родителя.
ЦветоваяСхема1 = ТФ.ЦветоваяСхема(); Верхний1.ЦветоваяСхема = ЦветоваяСхема1;
Перем Верхний1; Процедура ПриОткрытии() Экспорт Верхний1.Текст = "Верхний1.ЦветоваяСхема = " + Верхний1.ЦветоваяСхема; КонецПроцедуры ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptTerminalGui\OneScriptTerminalGui\bin\Debug\OneScriptTerminalGui.dll"); ТФ = Новый ТерминалФормыДляОдноСкрипта(); ТФ.ПриОткрытии = ТФ.Действие(ЭтотОбъект, "ПриОткрытии"); Верхний1 = ТФ.Верхний(); Верхний1.Икс = ТФ.Позиция.Абсолютно(1); Верхний1.Игрек = ТФ.Позиция.Абсолютно(1); Верхний1.Ширина = ТФ.Величина.Абсолютно(60); Верхний1.СтильКомпоновки = ТФ.СтильКомпоновки.Вычислено; Верхний1.Высота = ТФ.Величина.Процент(20); ЦветоваяСхема1 = ТФ.ЦветоваяСхема(); Верхний1.ЦветоваяСхема = ЦветоваяСхема1; Верхний1.Текст = "Когда я был маленький – очень, очень давно, – я читал одну книжку: она называлась «Пиноккио»"; Граница1 = ТФ.Граница(); Граница1.СтильГраницы = ТФ.СтильГраницы.Двойная; Верхний1.Граница = Граница1; ТФ.Верхний.Добавить(Верхний1); ТФ.Запуск();
Перем Верхний1, ЦветоваяСхема; Процедура ПриОткрытии() Экспорт ЦветоваяСхема = Верхний1.ЦветоваяСхема; КонецПроцедуры ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptTerminalGui\OneScriptTerminalGui\bin\Debug\OneScriptTerminalGui.dll"); ТФ = Новый ТерминалФормыДляОдноСкрипта(); Верхний1 = ТФ.Верхний(); Верхний1.Икс = ТФ.Позиция.Абсолютно(1); Верхний1.Игрек = ТФ.Позиция.Абсолютно(1); Верхний1.Ширина = ТФ.Величина.Абсолютно(60); Верхний1.Высота = ТФ.Величина.Процент(20); ЦветоваяСхема1 = ТФ.ЦветоваяСхема(); Верхний1.ЦветоваяСхема = ЦветоваяСхема1; Верхний1.Текст = "Когда я был маленький – очень, очень давно, – я читал одну книжку: она называлась «Пиноккио»"; Граница1 = ТФ.Граница(); Граница1.СтильГраницы = ТФ.СтильГраницы.Двойная; Верхний1.Граница = Граница1; ТФ.Верхний.Добавить(Верхний1); ТФ.ПриОткрытии = ТФ.Действие(ЭтотОбъект, "ПриОткрытии"); ТФ.ЗапуститьИЗавершить(); Сообщить(?( ТипЗнч(ЦветоваяСхема) = Тип("ТфЦветоваяСхема") , "", "!!! ") + "Верхний.ЦветоваяСхема (Toplevel.ColorScheme) Свойство" + " " + ТекущаяДата() + Символы.ПС);