ЦветСтрок(<Соответствие>)
Окрашивает строки в указанные цвета исходя из переданного в параметре соответствия.
Соответствие1 = Новый Соответствие(); Соответствие1.Вставить(3, Красный); Соответствие1.Вставить(4, Синий); Соответствие1.Вставить(5, Зеленый); Соответствие1.Вставить(15, Красный); Соответствие1.Вставить(99, Красный); Соответствие1.Вставить(100, Зеленый); СтильТаблицы1.ЦветСтрок(Соответствие1);
Перем ТФ, СтильТаблицы1; Процедура ПриОткрытии() Экспорт Синий = ТФ.ЦветоваяСхема(); Синий.Нормальный = ТФ.Атрибут(ТФ.Цвет.Серый, ТФ.Цвет.Синий); Красный = ТФ.ЦветоваяСхема(); Красный.Нормальный = ТФ.Атрибут(ТФ.Цвет.Серый, ТФ.Цвет.Красный); Зеленый = ТФ.ЦветоваяСхема(); Зеленый.Нормальный = ТФ.Атрибут(ТФ.Цвет.Серый, ТФ.Цвет.Зеленый); Соответствие1 = Новый Соответствие(); Соответствие1.Вставить(3, Красный); Соответствие1.Вставить(4, Синий); Соответствие1.Вставить(5, Зеленый); Соответствие1.Вставить(15, Красный); Соответствие1.Вставить(99, Красный); Соответствие1.Вставить(100, Зеленый); СтильТаблицы1.ЦветСтрок(Соответствие1); КонецПроцедуры ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptTerminalGui\OneScriptTerminalGui\bin\Debug\OneScriptTerminalGui.dll"); ТФ = Новый ТерминалФормыДляОдноСкрипта(); Таблица1 = ТФ.Верхний.Добавить(ТФ.Таблица()); Таблица1.Ширина = ТФ.Величина.Абсолютно(80); Таблица1.Высота = ТФ.Величина.Заполнить(); ТаблицаДанных1 = ТФ.ТаблицаДанных(); Колонки1 = ТаблицаДанных1.Колонки; Для А = 0 По 100 Цикл Колонки1.Добавить(ТФ.КолонкаДанных("Колонка" + А, ТФ.ТипДанных.Строка)); КонецЦикла; Строки1 = ТаблицаДанных1.Строки; Для А = 0 По 100 Цикл ТекСтрока = Строки1.Добавить(ТаблицаДанных1.НоваяСтрока()); ТекСтрока.УстановитьЭлемент("Колонка0", А); Для А1 = 0 По Колонки1.Количество - 1 Цикл ТекСтрока.УстановитьЭлемент("Колонка" + А1, "" + (Число(А) * Число(А1))); КонецЦикла; КонецЦикла; Таблица1.ТаблицаДанных = ТаблицаДанных1; СтильТаблицы1 = ТФ.СтильТаблицы(); Таблица1.СтильТаблицы = СтильТаблицы1; ТФ.ПриОткрытии = ТФ.Действие(ЭтотОбъект, "ПриОткрытии"); ТФ.Запуск();
Перем ТФ, СтильТаблицы1; Процедура ПриОткрытии() Экспорт Синий = ТФ.ЦветоваяСхема(); Синий.Нормальный = ТФ.Атрибут(ТФ.Цвет.Серый, ТФ.Цвет.Синий); Красный = ТФ.ЦветоваяСхема(); Красный.Нормальный = ТФ.Атрибут(ТФ.Цвет.Серый, ТФ.Цвет.Красный); Зеленый = ТФ.ЦветоваяСхема(); Зеленый.Нормальный = ТФ.Атрибут(ТФ.Цвет.Серый, ТФ.Цвет.Зеленый); Соответствие1 = Новый Соответствие(); Соответствие1.Вставить(3, Красный); Соответствие1.Вставить(4, Синий); Соответствие1.Вставить(5, Зеленый); Соответствие1.Вставить(15, Красный); Соответствие1.Вставить(99, Красный); Соответствие1.Вставить(100, Зеленый); СтильТаблицы1.ЦветСтрок(Соответствие1); КонецПроцедуры ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptTerminalGui\OneScriptTerminalGui\bin\Debug\OneScriptTerminalGui.dll"); ТФ = Новый ТерминалФормыДляОдноСкрипта(); Таблица1 = ТФ.Верхний.Добавить(ТФ.Таблица()); Таблица1.Ширина = ТФ.Величина.Абсолютно(80); Таблица1.Высота = ТФ.Величина.Заполнить(); ТаблицаДанных1 = ТФ.ТаблицаДанных(); Колонки1 = ТаблицаДанных1.Колонки; Для А = 0 По 100 Цикл Колонки1.Добавить(ТФ.КолонкаДанных("Колонка" + А, ТФ.ТипДанных.Строка)); КонецЦикла; Строки1 = ТаблицаДанных1.Строки; Для А = 0 По 100 Цикл ТекСтрока = Строки1.Добавить(ТаблицаДанных1.НоваяСтрока()); ТекСтрока.УстановитьЭлемент("Колонка0", А); Для А1 = 0 По Колонки1.Количество - 1 Цикл ТекСтрока.УстановитьЭлемент("Колонка" + А1, "" + (Число(А) * Число(А1))); КонецЦикла; КонецЦикла; Таблица1.ТаблицаДанных = ТаблицаДанных1; СтильТаблицы1 = ТФ.СтильТаблицы(); Таблица1.СтильТаблицы = СтильТаблицы1; ТФ.ПриОткрытии = ТФ.Действие(ЭтотОбъект, "ПриОткрытии"); ТФ.ЗапуститьИЗавершить(); Сообщить(?( ТипЗнч(СтильТаблицы1) = Тип("ТфСтильТаблицы") , "", "!!! ") + "СтильТаблицы.ЦветСтрок (TableStyle.RowsColor) Метод" + " " + ТекущаяДата() + Символы.ПС);