Для отображения на экране возможных вариантов выделения цветом текста/фона в ячейках печатных форм:
Процедура ПриОткрытии()
таб = СоздатьОбъект("Таблица");
таб.ИсходнаяТаблица("Таблица");
сч = 0;
Для R=1 По 255 Цикл
R=R+9;
таб.ВывестиСекцию("строка|старт");
Состояние(""+R+"/255");
Для G=1 По 255 Цикл
G=G+9;
таб.ВывестиСекцию("строка|старт");
Для B=1 По 255 Цикл
B=B+9;
Цвет = R * 65536 + G*256 + B;
выбСекция=таб.ПолучитьСекцию("строка|база");
выбОбласть=выбСекция.Область();
выбОбласть.ЦветТекста(Цвет);
таб.ПрисоединитьСекцию(выбСекция);
КонецЦикла;
КонецЦикла;
КонецЦикла;
таб.Показать();
СтатусВозврата(0);
КонецПроцедуры
В ячейке таблицы [строка+база] должно быть следующее выражение:
Процедура ПриОткрытии()
таб = СоздатьОбъект("Таблица");
таб.ИсходнаяТаблица("Таблица");
сч = 0;
Для R=1 По 255 Цикл
R=R+9;
таб.ВывестиСекцию("строка|старт");
Состояние(""+R+"/255");
Для G=1 По 255 Цикл
G=G+9;
таб.ВывестиСекцию("строка|старт");
Для B=1 По 255 Цикл
B=B+9;
Цвет = R * 65536 + G*256 + B;
выбСекция=таб.ПолучитьСекцию("строка|база");
выбОбласть=выбСекция.Область();
выбОбласть.ЦветТекста(Цвет);
таб.ПрисоединитьСекцию(выбСекция);
КонецЦикла;
КонецЦикла;
КонецЦикла;
таб.Показать();
СтатусВозврата(0);
КонецПроцедуры
В ячейке таблицы [строка+база] должно быть следующее выражение:
""+R+РазделительСтрок+G+РазделительСтрок+B
Комментариев нет:
Отправить комментарий