Имя: Пароль:
1C
1С v8
Поле табличного документа. Как залить фон ?
0 mailwood
 
05.12.11
13:36
Вставляю на форму ПолеТабличногоДокумента. На это ПолеТабличногоДокумента вставляю элементы Надпись. И в принципе все работает, Надпись принадлежит элементу ПолеТабличногоДокумента, ПолеТабличногоДокумента  принадлежит Форме. Весь вопрос - сделать фон
ПолеТабличногоДокумента  не белым(по умолчанию).
Сделал так,
Макет = ПолучитьМакет("Макет");    
Область = Макет.ПолучитьОбласть("ЦветФормы");
ПолеТабличногоДокумента.Вывести(Область);
 
И работает, но 2 больших НО:
1. Работает только, если ПолеТабличногоДокумента создаю программно.
2. Цвет заливается, но при тычке на  ПолеТабличногоДокумента выделяется тыкнутая ячейка, чего хочется исключить.

Может задать цвет через HTML документ ?
1 Fragster
 
гуру
05.12.11
13:38
а зачем ты рисуешь форму с помощью табличного документа?
2 mailwood
 
05.12.11
13:47
(1) ТабличныйДокумент не использую, только думаю испоьзовать для задания цвета.
В поле табличного документа вывожу тип Надпись программно :

Процедура ВывестиСделки()

Запрос = Новый Запрос("ВЫБРАТЬ
                         |    Сделка.Ссылка
                         |ИЗ
                         |    Документ.Сделка КАК Сделка
                         |ГДЕ
                         |    Сделка.ДОН = &ДОН
                         |
                         |УПОРЯДОЧИТЬ ПО
                         |    Сделка.Дата УБЫВ");
   Запрос.УстановитьПараметр("ДОН", ЭтотОбъект.Ссылка);
   РЗ = Запрос.Выполнить();
   Выборка = РЗ.Выбрать();
   Если Выборка.Количество() = 0 Тогда
   Надпись = ЭлементыФормы.Добавить(Тип("Надпись"), "ном0", Истина, ЭлементыФормы.ПолеТабличногоДокумента1);
   Надпись.Верх = 10;
   Надпись.Высота = 10;
   Надпись.Ширина = 100;
   Надпись.Лево = 9;
   Надпись.Заголовок = "Сделка с ДОН не заключалась" ;
   Надпись.ГиперСсылка = Ложь;
   Иначе
   Счетчик = 1;                                                            
   Пока Выборка.Следующий() Цикл
   ИмяЭлемента = "ном" + Счетчик;    
   Надпись = ЭлементыФормы.Добавить(Тип("Надпись"), ИмяЭлемента, Истина, ЭлементыФормы.ПолеТабличногоДокумента1);
   мВерх = мВерх + 10;
   Надпись.Верх = мВерх;
   Надпись.Высота = 10;
   Надпись.Ширина = 100;
   Надпись.Лево = 9;
   Надпись.Заголовок = Строка(Выборка.Ссылка);    
   Надпись.УстановитьДействие("Нажатие",Новый Действие("СделкаНадписьНажатие"));
   мДокументСделкаПолучить.Вставить(ИмяЭлемента, Выборка.Ссылка);
   Надпись.ГиперСсылка = Истина;
   Счетчик = Счетчик + 1;
   ВыводДоговоровПоСделке(Выборка.Ссылка, ИмяЭлемента);
   КонецЦикла;
   КонецЕсли;
     
КонецПроцедуры
3 zzerro
 
05.12.11
14:33
Что то я не понимаю, а цвет фона формы не проще ли поменять, если тебе просто цвет нужен другой?