Процедура МенеджерТаблДокПриАктивизацииЯчейки(Менеджер, Таблица, Действие, ТекСтрока, ТекСтолбец, НомерВида) о = тм.Область(ТекСтрока, 1, ТекСтрока, ШиринаТаблицы); Если Действие = 0 Тогда о.ЦветФонаПоИндексу(-1); Иначе о.ЦветФонаПоИндексу(18); КонецЕсли; Менеджер.Обновить(о); КонецПроцедуры
Таб=СоздатьОбъект("Таблица"); Таб.ТолькоПросмотр(1); гМенеджер=СоздатьОбъект("МенеджерТабличногоДокумента"); гМенеджер.УстановитьТаблицу(Таб); Координаты = СоздатьОбъект("SheetRect"); Координаты.TopLeft.xCell = 2; Координаты.TopLeft.yCell = 2; Координаты.TopLeft.xOffset = 3; Координаты.TopLeft.yOffset = 0; Координаты.BottomRight.xCell = 2; Координаты.BottomRight.yCell = 2; Координаты.BottomRight.xOffset = 8; Координаты.BottomRight.yOffset = 10; гРис = гМенеджер.СоздатьЭлементРисования(1,Координаты); гМенеджер.Обновить(); Таб.Показать();