понедельник, 4 сентября 2017 г.

1С 7.7: вывод таблицы с сеткой цветов

Для отображения на экране возможных вариантов выделения цветом текста/фона в ячейках печатных форм:

Процедура ПриОткрытии()
    таб = СоздатьОбъект("Таблица");
    таб.ИсходнаяТаблица("Таблица");
    сч = 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