Имя: Пароль:
1C
1С v8
Как программно разукрасить область в макете
0 PeaceDeath
 
11.04.13
09:19
Пока ВыборкаДетали.Следующий() Цикл
       ОбластьДетальныхЗаписей.Параметры.Код = ВыборкаДетали.Код;
       Если ВыборкаДетали.ЭтоГруппа = Истина Тогда    
           Группа = "Группа ";
           ///ОбластьДетальныхЗаписей.ЦветФон = Новый Цвет(255,0,0);
           ОбластьДетальныхЗаписей.Параметры.Наименование =Строка(Группа) + Строка(ВыборкаДетали.Наименование);
       Иначе
           ОбластьДетальныхЗаписей.Параметры.Наименование = ВыборкаДетали.Наименование;
       КонецЕсли;
           ТабДок.Вывести(ОбластьДетальныхЗаписей, ВыборкаДетали.Уровень());
   КонецЦикла;

Пытаюсь разукрасить именно группы.
Подскажите пожалуйста как это правильно делается?
1 Wobland
 
11.04.13
09:22
цветом фона же
2 PeaceDeath
 
11.04.13
09:27
эти два метода не робят
//ЦветаСтиля.ЦветФонаПоля = Новый Цвет(255,2,0);
//ОбластьДетальныхЗаписей.ЦветФон = Новый Цвет(255,0,0);

(1)можно подробнее
3 Wobland
 
11.04.13
09:28
(2) подробнее в СП, под рукой готового нету
4 cw014
 
11.04.13
09:32
(0) А ты чего пытаешься макет разукрасить? Разве так можно?

ТабДок.Вывести(ОбластьДетальныхЗаписей, ВыборкаДетали.Уровень());

Выцепляй, что вывел и там крась
5 Лодырь
 
11.04.13
09:33
Можно делать примерно так:

УровеньГруппировки = Выборка.Ссылка.Уровень();
           СтрокаГруппировки = Макет.ПолучитьОбласть("СтрокаГруппа"+Строка(УровеньГруппировки));
           СтрокаГруппировки.Область("R1C1:R1C8").ЦветФона = ПолучитьЦветПоУровню(УровеньГруппировки);
           СтрокаГруппировки.Параметры.НазваниеГруппы = Выборка.Наименование;
           ТабЛиста.Вывести(СтрокаГруппировки);
6 PeaceDeath
 
11.04.13
09:34
(4) я незнаю, вот и спрашиваю.

СП:
ЦветФона (BackColor)
Использование:
Чтение и запись.
Описание:
Тип: Цвет. Содержит цвет фона области.

(даже примера нет. Чёрт)
7 Галахад
 
гуру
11.04.13
09:35
ТабДок.Вывести(ОбластьДетальныхЗаписей, ВыборкаДетали.Уровень());
ТабДок.ОбластьДетальныхЗаписей.ЦветФон = Новый Цвет(255,0,0);
8 masenshi
 
11.04.13
09:37
Если Групповуха Тогда                    
           Область1.Область("C9").ЦветФона = WebЦвета.Розовый;
       Иначе
           Область1.Область("C9").ЦветФона = WebЦвета.Белый;
       КонецЕсли;
9 masenshi
 
11.04.13
09:39
(8) где Область1 это твоя ОбластьДетальныхЗаписей
C9 это конкретная ячейка, можно писать C1:C10
10 PeaceDeath
 
11.04.13
09:49
(8) Во то что нужно))) круть
Осталось только убрать как нибудь пустые поля.

               Цвет - Розовый  
00000000003    Группа Инвентарь    
//отсюда        
   
пустые строчки появились    
       
//досюда        
00000000009    Бумага Xerox
11 PeaceDeath
 
11.04.13
09:52
Все супер))) Большое человеческое спасибо)
12 SherifSP
 
11.04.13
09:52
(11) У нас робят не говорят)
13 PeaceDeath
 
11.04.13
09:54
masenshi была бы здесь репутация поставил +100500
(12) ну сленг значит здесь не уместеН))
Оптимист верит, что мы живем в лучшем из миров. Пессимист боится, что так оно и есть.