v7 Не пойму как смешиваются цвета RGB в ячейках таблицы

1C 7.7

18.12.14

✎

09:02

Заполняю таблицу программным путем, попутно раскрашивая итоговые значения.
В моем понимании одинаковые значения R, G, B должны всегда давать одинаковые оттенки серого цвета.

//*******************************************

Процедура Сформировать()

    Таб = СоздатьОбъект("Таблица");

    Обл = Таб.Область(1,1,1,1); //Обл = ОбластьТаблицы

    Обл.ЦветФона(224,224,224);

    Обл = Таб.Область(2,1,2,1);

    Обл.ЦветФона(192,192,192);

    Обл = Таб.Область(3,1,3,1);

    Обл.ЦветФона(164,164,164);

    

    Таб.Показать();

КонецПроцедуры

А здесь в первой ячейке светло-зеленый вместо светло-серого. Почему?

1 dk

18.12.14

✎

09:10

в 7-ке урезенная палитра - вроде 64 цвета
т.е. все твои ргб приводятся к этой палитре

2 DrZombi

гуру

18.12.14

✎

09:12

(1) Если только не 16 :)

3 dk

18.12.14

✎

09:17

не, открой цвет фона в ячейке таблицы - там 8колонок и 7 строк

4 ---Fix---

18.12.14

✎

09:21

(1) Даже если передать конечное числовое значение вместо RGB он все равно его преобразует.

//======================================================================

Функция СтрокуВЦвет(пЦветоваяСтрока)

    Результат = 0;

    СЗ = глПреобразоватьСтрокуВСписокЗначений(пЦветоваяСтрока);

    КолвоЗначений = СЗ.РазмерСписка();

    Для ит=1 По КолвоЗначений Цикл

        стрЗначение = "";

        Значение = Число(СЗ.ПолучитьЗначение(ит, стрЗначение));

        Если ит = 1 Тогда

            Результат = Значение;

        ИначеЕсли ит = 2 Тогда

            //Результат = Результат + Значение * 256

            Результат = Результат + Значение * 64

        ИначеЕсли ит = 3 Тогда

            //Результат = Результат + Значение * 65536

            Результат = Результат + Значение * 4096

        КонецЕсли;

    КонецЦикла;



    Возврат Результат;

    

КонецФункции // СтрокуВЦвет



//*******************************************

Процедура Сформировать()

    Таб = СоздатьОбъект("Таблица");

    Обл = Таб.Область(1,1,1,1); //Обл = ОбластьТаблицы

    Обл.ЦветФона(СтрокуВЦвет("16,16,16"));

    Обл = Таб.Область(2,1,2,1);

    Обл.ЦветФона(СтрокуВЦвет("32,32,32"));

    Обл = Таб.Область(3,1,3,1);

    Обл.ЦветФона(СтрокуВЦвет("48,48,48"));

    

    Таб.Показать();

КонецПроцедуры

т.е это никак не обойти?

5 dk

18.12.14

✎