Имя: Пароль:
1C
1С v8
текст повер картинки
0 Vvvvv
 
31.07.14
16:52
Извиняюсь, но повторно пишу тему. Не получил ответа в прошлый раз.
Вывожу картину. В макете пересекается текст с картинкой. Как сделать так, что бы текст был поверх картинки.
привожу код, он рабочий.
Рисунок = ОбластьМакета.Рисунки.Добавить(ТипРисункаТабличногоДокумента.Картинка);
Рисунок.Верх = 1;
Рисунок.Высота = 18;
Рисунок.Ширина = 22;
Рисунок.Лево = 125;
Рисунок.ГраницаСверху = Ложь;
Рисунок.ГраницаСлева = Ложь;
Рисунок.ГраницаСнизу = Ложь;
Рисунок.ГраницаСправа = Ложь;  
К3 = ПолучитьМакет("М3");
Рисунок.Картинка = Новый Картинка(К3);
1 Ёпрст
 
31.07.14
16:59
самое простое - заранее разместить и текст и картинку в макете, потом при выводе заполнить и поправить размеры на нужные.
2 Vvvvv
 
31.07.14
17:00
получается так:
http://www.image123.net/95d2f4oavfagpic.html

хотя бы скажите, можно ли так сделать как я хочу?
3 Garykom
 
гуру
31.07.14
17:02
(0) размести новый объект рисунок типом текст сверху...
4 Vvvvv
 
31.07.14
17:06
(3) тип текста - нет такого свойства
5 le_
 
31.07.14
17:08
ТД = Новый ТабличныйДокумент;
ТД.Область(1, 1).Картинка = Новый Картинка("d:\картинка.png");
ТД.Область(1, 1).ПоложениеТекстаОтносительноКартинки = ПоложениеТекстаОтносительноКартинки.Поверх;
ТД.Область(1, 1).Текст = "ЛаЛа";
ТД.Показать();
6 le_
 
31.07.14
17:11
(5) У меня 8.3.5.1068.
7 Vvvvv
 
31.07.14
17:14
8.2 (8.2.18.61)
8 Garykom
 
гуру
31.07.14
17:23
(7) ну обновись делов то ))
9 Vvvvv
 
31.07.14
17:29
(8) еще спрошу, а ты уверен, что других вариантов нет.
10 Кай066
 
31.07.14
17:35
Извините, а о каком тексте речь? Если текст статичен может быть его прямо на картинке написать?
11 Vvvvv
 
31.07.14
17:46
(10) я склоняюсь, к тексту не статичному.
12 Ёпрст
 
31.07.14
17:47
чем (1) не устраивает ?
13 le_
 
31.07.14
17:57
(7)ТД = Новый ТабличныйДокумент;

Картинка = ТД.Рисунки.Добавить(ТипРисункаТабличногоДокумента.Картинка);
Картинка.Картинка = Новый Картинка("d:\картинка.png");

КартинкаТекст = ТД.Рисунки.Добавить(ТипРисункаТабличногоДокумента.Текст);
КартинкаТекст.Текст = "ЛаЛа";
КартинкаТекст.Узор = ТипУзораТабличногоДокумента.БезУзора;

ТД.Рисунки[0].Расположить(ТД.Область(1, 1));
ТД.Рисунки[1].Расположить(ТД.Область(1, 1));

ТД.Показать();