Всем добрый день! Только начинаю изучать 1С++ и formex. Возникла следующая задача: есть справочник, 17000 элементов. Делаю прямой запрос и выгружаю результат этого запроса в Таблицу Значений, которая имитирует форму списка справочника. Задача в следующем: необходимо организовать расскраску строк Таблицы Значений в зависимости от параметров данного элемента справочника.

Сделал так:

ТЗ1 = RS.ВыполнитьИнструкцию(ТекстЗапроса);
ТЗ1.Выгрузить(ТЗ);                                    
ТЗ.ВидимостьКолонки("Цвет",0,);
Расскрасить();

Процедура Расскрасить() 
     ТЗ.ВыбратьСтроки();
     Пока ТЗ.ПолучитьСтроку() = 1 Цикл
           Если (ТЗ.Элемент.ФлВажныйIP = 1) И (ТЗ.Элемент.ФлВажныйМонтаж = 0) И (ОтборНаправление = Перечисление._НаправлениеДеятельности.IP) Тогда
                 ТЗ.Цвет = глРаскрасить(,,,110,200,240,,);
           ИначеЕсли (ТЗ.Элемент.ФлВажныйМонтаж = 1) И (ТЗ.Элемент.ФлВажныйIP = 0) И (ОтборНаправление = Перечисление._НаправлениеДеятельности.Монтаж) Тогда
                 ТЗ.Цвет = глРаскрасить(,,,125,203,184,,);
           ИначеЕсли (ТЗ.Элемент.ФлВажныйМонтаж = 1) И (ТЗ.Элемент.ФлВажныйIP = 1) Тогда
                 ТЗ.Цвет = глРаскрасить(,,,255,67,155,,);
           ИначеЕсли (ТЗ.Элемент.СрочныйДляМонтажа = 1) И (ОтборНаправление = Перечисление._НаправлениеДеятельности.Монтаж) Тогда
                 ТЗ.Цвет = глРаскрасить(,,,255,0,0,,);
           Иначе            
                 ТЗ.Цвет = глРаскрасить(,,,255,255,255,,);
           КонецЕсли;
     КонецЦикла;
КонецПроцедуры

Подскажите, как сделать правильно?

Посмотрел демо-конфигурацию. В принципе, у меня раскраска Таблицы Значения выполнена аналогичным способом как и там. Но почему-то там ТЗ размером 10тыс строк расскрашивается за пару секунд, а у меня очень долго. Почему такое может быть? Для примера приведу мой код и код из демо-конфигурации.
Мой код:

     ТЗ.ВыбратьСтроки();         
      Пока ТЗ.ПолучитьСтроку() = 1 Цикл       
           ТЗ.Цвет = "BRUSH["+ПолучитьЦвет(255,67,155)+"]";
               КонецЦикла;

Код из демо-конфигурации:

Для инд =1 по 20000 Цикл
     Табл1.НоваяСтрока();
     Табл1.Число = инд;
     Табл1.Строка = Формат(инд,"ЧП");
     Табл1.Раскраска = ?(инд%2 = 0,"","BRUSH["+ПолучитьЦвет(0,128,128)+"]COUNT[2]");
КонецЦикла;