СтильКолонки.ЦветЯчеек (ColumnStyle.CellsColor) Метод

Копировать

Перем ТФ, СтильКолонки1;

Процедура ПриОткрытии() Экспорт
	Синий = ТФ.ЦветоваяСхема();
	Синий.Нормальный = ТФ.Атрибут(ТФ.Цвет.Серый, ТФ.Цвет.Синий);
	Красный = ТФ.ЦветоваяСхема();
	Красный.Нормальный = ТФ.Атрибут(ТФ.Цвет.Серый, ТФ.Цвет.Красный);
	Зеленый = ТФ.ЦветоваяСхема();
	Зеленый.Нормальный = ТФ.Атрибут(ТФ.Цвет.Серый, ТФ.Цвет.Зеленый);
	
	Соответствие1 = Новый Соответствие();
	Соответствие1.Вставить(1, Красный);
	Соответствие1.Вставить(2, Синий);
	Соответствие1.Вставить(8, Зеленый);
	Соответствие1.Вставить(16, Красный);
	Соответствие1.Вставить(95, Красный);
	Соответствие1.Вставить(96, Зеленый);
	СтильКолонки1.ЦветЯчеек(Соответствие1);
	
	ТФ.Верхний.Текст = "Если ячейка во второй строке, третьем столбце красная - нажмите кнопку ОК";
КонецПроцедуры

Процедура ОК() Экспорт
	ТФ.Уведомление().Показать("Тест пройден", -1);
КонецПроцедуры

Процедура Отмена() Экспорт
	ТФ.Уведомление().Показать("Тест НЕ пройден", -1);
КонецПроцедуры

ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptTerminalGui\OneScriptTerminalGui\bin\Debug\OneScriptTerminalGui.dll");
ТФ = Новый ТерминалФормыДляОдноСкрипта();

Таблица1 = ТФ.Верхний.Добавить(ТФ.Таблица(0, 2));
Таблица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 = ТФ.СтилиКолонки();
СтилиКолонки1.Добавить(Колонки1.Получить(2), СтильКолонки1);
СтильТаблицы1.СтилиКолонки = СтилиКолонки1;

Кнопка1 = ТФ.Верхний.Добавить(ТФ.Кнопка("ОК"));
Кнопка1.ПравееВыше(Таблица1, 1, -3);
Кнопка1.Граница = ТФ.Граница(ТФ.СтильГраницы.Закругленная);
Кнопка1.Нажатие = ТФ.Действие(ЭтотОбъект, "ОК");
Кнопка1.ОтключитьКлавишуВызова = Истина;

Кнопка2 = ТФ.Верхний.Добавить(ТФ.Кнопка("Отмена"));
Кнопка2.НижеПравее(Кнопка1, 1, -Кнопка1.Кадр.Ширина - 1);
Кнопка2.Граница = ТФ.Граница(ТФ.СтильГраницы.Закругленная);
Кнопка2.Нажатие = ТФ.Действие(ЭтотОбъект, "Отмена");
Кнопка2.ОтключитьКлавишуВызова = Истина;

ТФ.ПриОткрытии = ТФ.Действие(ЭтотОбъект, "ПриОткрытии");

ТФ.Запуск();

Копировать

Перем ТФ, СтильКолонки1, ТестПройден;

Процедура ПриОткрытии() Экспорт
	Синий = ТФ.ЦветоваяСхема();
	Синий.Нормальный = ТФ.Атрибут(ТФ.Цвет.Серый, ТФ.Цвет.Синий);
	Красный = ТФ.ЦветоваяСхема();
	Красный.Нормальный = ТФ.Атрибут(ТФ.Цвет.Серый, ТФ.Цвет.Красный);
	Зеленый = ТФ.ЦветоваяСхема();
	Зеленый.Нормальный = ТФ.Атрибут(ТФ.Цвет.Серый, ТФ.Цвет.Зеленый);
	
	Соответствие1 = Новый Соответствие();
	Соответствие1.Вставить(1, Красный);
	Соответствие1.Вставить(2, Синий);
	Соответствие1.Вставить(8, Зеленый);
	Соответствие1.Вставить(16, Красный);
	Соответствие1.Вставить(95, Красный);
	Соответствие1.Вставить(96, Зеленый);
	СтильКолонки1.ЦветЯчеек(Соответствие1);
	
	ТФ.Верхний.Текст = "Если ячейка во второй строке, третьем столбце красная - нажмите кнопку ОК";
КонецПроцедуры

Процедура ОК() Экспорт
	ТФ.Уведомление().Показать("Тест пройден", -1);
	ТестПройден = Истина;
	ТФ.Завершить();
КонецПроцедуры

Процедура Отмена() Экспорт
	ТФ.Уведомление().Показать("Тест НЕ пройден", -1);
	ТестПройден = Ложь;
	ТФ.Завершить();
КонецПроцедуры

ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptTerminalGui\OneScriptTerminalGui\bin\Debug\OneScriptTerminalGui.dll");
ТФ = Новый ТерминалФормыДляОдноСкрипта();

Таблица1 = ТФ.Верхний.Добавить(ТФ.Таблица(0, 2));
Таблица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 = ТФ.СтилиКолонки();
СтилиКолонки1.Добавить(Колонки1.Получить(2), СтильКолонки1);
СтильТаблицы1.СтилиКолонки = СтилиКолонки1;

Кнопка1 = ТФ.Верхний.Добавить(ТФ.Кнопка("ОК"));
Кнопка1.ПравееВыше(Таблица1, 1, -3);
Кнопка1.Граница = ТФ.Граница(ТФ.СтильГраницы.Закругленная);
Кнопка1.Нажатие = ТФ.Действие(ЭтотОбъект, "ОК");
Кнопка1.ОтключитьКлавишуВызова = Истина;

Кнопка2 = ТФ.Верхний.Добавить(ТФ.Кнопка("Отмена"));
Кнопка2.НижеПравее(Кнопка1, 1, -Кнопка1.Кадр.Ширина - 1);
Кнопка2.Граница = ТФ.Граница(ТФ.СтильГраницы.Закругленная);
Кнопка2.Нажатие = ТФ.Действие(ЭтотОбъект, "Отмена");
Кнопка2.ОтключитьКлавишуВызова = Истина;

ТФ.ПриОткрытии = ТФ.Действие(ЭтотОбъект, "ПриОткрытии");
ТФ.Запуск();

Сообщить(?(
ТестПройден
, "", "!!! ") + "СтильКолонки.ЦветЯчеек (ColumnStyle.CellsColor) Метод" + " " + ТекущаяДата() + Символы.ПС);