Перем гМенеджер; Перем гСп; Процедура Сформировать() гСп=СоздатьОбъект("СписокЗначений"); Таб=СоздатьОбъект("Таблица"); Таб.ТолькоПросмотр(1); гМенеджер=СоздатьОбъект("МенеджерТабличногоДокумента"); гМенеджер.УстановитьТаблицу(Таб,Форма); гМенеджер.Область().ШиринаСтолбцаРасш(3); гМенеджер.Область().ВысотаСтрокиРасш(15); Таб.Показать(); КонецПроцедуры Процедура МенеджерТаблДокПриИзмененииВыделения(Менеджер,Таб) ТЗ=Менеджер.ПолучитьВыделенные(); Обл=Менеджер.Область(ТЗ.ПолучитьЗначение(1,3),ТЗ.ПолучитьЗначение(1,4)); Обл.ЦветФонаРасш(44287); гСп.ДобавитьЗначение(Обл); Менеджер.Обновить(гСп); Если гСп.РазмерСписка()>40 Тогда Обл=гСп.ПолучитьЗначение(1); Обл.ЦветФонаРасш(-1); гСп.УдалитьЗначение(1); КонецЕсли; Менеджер.Выделить(ТЗ.ПолучитьЗначение(1,3),ТЗ.ПолучитьЗначение(1,4)); КонецПроцедуры