Имя: Пароль:
1C
1С v8
Картинка в табличном поле
0 KonstantinK90
 
26.08.16
13:12
Всем привет! Помогите с проблемой вывожу картинку в табличное поле вот
так
РСНЗ = РегистрыСведений.СохраненныеНастройки.СоздатьНаборЗаписей();
    РСНЗ.Отбор.ИмяОбъекта.Установить("ПрайсЛистКартинка");
    РСНЗ.Отбор.НаименованиеНастройки.Установить("пПрайсЛистКартинка");
    РСНЗ.Отбор.Пользователь.Установить(ПараметрыСеанса.ТекущийПользователь);
    РСНЗ.Прочитать();
    Если РСНЗ.Количество() > 0 Тогда    
         пКартинка = РСНЗ.Получить(0).СохраненнаяНастройка.Получить();    
        
         Картинка = Новый Картинка(РСНЗ.Получить(0).СохраненнаяНастройка.Получить());
        
         Рисунок = Секция.Рисунки.Добавить(ТипРисункаТабличногоДокумента.Картинка);
         Рисунок.Верх   = 1;
         Рисунок.Высота = 45;
         //Рисунок.Ширина =  210;//120;
         Рисунок.Лево   = 1.5;
         Рисунок.Картинка = Картинка; //("C:\Temp\ХМЛ\Картинка\Картинка.jpg");
         Рисунок.РазмерКартинки = РазмерКартинки.АвтоРазмер;
все работает а мне нужно что бы ширина картинки соответствовола ширене колонок в табличном поле!?
ни как не получается привязать ширину картинки к ширине колонок табличного поля
1 KonstantinK90
 
26.08.16
13:14
вывожу картинку в первую область
2 KonstantinK90
 
26.08.16
13:19
?
3 Good_Smile
 
26.08.16
13:23
У ОбластьЯчеекТабличногоДокумента есть метод ШиринаКолонки()

Описание:

Тип: Число.
Содержит ширину колонок в области (в так называемых средних символах шрифта).

может быть задать область в макете и присваивать Область.ШиринаКолонок()
4 KonstantinK90
 
26.08.16
13:33
и что как узнать реальную ширину всех столбцов
5 Good_Smile
 
26.08.16
13:35
(4) ты попробовал так сделать? что возвращает данный метод?
6 Fedor-1971
 
26.08.16
13:37
(4) Например, вот так:
об=ТабДок.Область(1,1, ТабДок.ВысотаТаблицы, ТабДок.ШиринаТаблицы);
Надпись = ТабДок.Рисунки.Добавить(ТипРисункаТабличногоДокумента.Текст); //измерим высоту в миллиметрах  
Надпись.Расположить(об);
ВысотаОбластиМиллиметры = Надпись.Высота;
ШиринаОбластиМиллиметры = Надпись.Ширина;
ТабДок.Рисунки.Удалить(Надпись);
7 KonstantinK90
 
26.08.16
13:44
блин я чет вас не понимаю
8 KonstantinK90
 
26.08.16
13:45
пробую как вы на писали возвращает Надпись.Ширина и все равно она не соответствует ширине колонок в таб доке
9 Fedor-1971
 
26.08.16
13:50
(8) Надпись.Ширина - в данном случае ширина всего таб.докумена

об=ТабДок.Область(1,1, ТабДок.ВысотаТаблицы, ТабДок.ШиринаТаблицы); - поправь для нужных колонок, и получишь ширину оных в миллиметрах.
10 Fedor-1971
 
26.08.16
13:52
9+ суть сего действа - накрываем таб.документ картинкой, меряем её параметры и делаем некие выводы для дальнейшего использования