Помощь - Поиск - Пользователи - Календарь
Полная версия этой страницы: Текст на картинке в макете отчета
Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7 > Программисту > Программирование в 1С Предприятие 8.2 > Программирование обычных форм 1С 8.2 и не интерфейсной логики
bereznoy
сделал прайс-лист с фотографиями, было б неплохо наложить на фото номер кода или артикула, есть ли в 1с 8.2 такая возможность?
Код в котором я получаю изображение
            ОбластьНоменклатура = Макет.ПолучитьОбласть("Номенклатура");
            Изображение = Выборка.Номенклатура.ОсновноеИзображение.Хранилище.Получить();
        Если НЕ Изображение = Неопределено Тогда
         Рисунок = ОбластьНоменклатура.Рисунки.Добавить(ТипРисункаТабличногоДокумента.Картинка);
Рисунок.Верх = 3;
Рисунок.Высота =70;
Рисунок.Ширина = 90;
Рисунок.Лево = 3.5;

Рисунок.РазмерКартинки = РазмерКартинки.Растянуть;//.Пропорционально;

Рисунок.Картинка = Изображение;
КонецЕсли;
Ardi
Вставить объект "Текст". Поместить его над картинкой. Убрать рамки.
bereznoy
Цитата(Ardi @ 06.01.13, 4:20) необходимо зарегистрироваться для просмотра ссылки
Вставить объект "Текст". Поместить его над картинкой. Убрать рамки.

А где можно почитать или подскажите как "Вставить объект "Текст" ?
Рисунок.Текст .... ?
Рисунок.РазмещениеТекста ..... ?
Это есть но у меня не получается, пытался Рисунок.Текст = "какой то текст"


Получилось, но вот как бы сделать что б прямоугольник текста не перекрывал рисунок, т.е. был просто прозрачный и виден только текст и рамки у самой картики не получается обрезать


ОбластьНоменклатура = Макет.ПолучитьОбласть("Номенклатура");
            Изображение = Выборка.Номенклатура.ОсновноеИзображение.Хранилище.Получить();
        Если НЕ Изображение = Неопределено Тогда
         Рисунок = ОбластьНоменклатура.Рисунки.Добавить(ТипРисункаТабличногоДокумента.Картинка);
Рисунок.Верх = 3;
Рисунок.Высота =70;
Рисунок.Ширина = 90;
Рисунок.Лево = 3.5;

Рисунок.РазмерКартинки = РазмерКартинки.Растянуть;//.Пропорционально;

Рисунок.Картинка = Изображение;
///////////////////////////////////////
Рисунок = ОбластьНоменклатура.Рисунки.Добавить(ТипРисункаТабличногоДокумента.Текст);
Рисунок.Верх = 10;
Рисунок.Лево = 10;
Рисунок.Ширина = 30;
Рисунок.Высота = 10;
Рисунок.ОриентацияТекста = -15; //наклон 15 градусов по часовой стрелке
Рисунок.ГоризонтальноеПоложение = ГоризонтальноеПоложение.Центр;
Рисунок.ВертикальноеПоложение = ВертикальноеПоложение.Центр;
Рисунок.Шрифт = Новый Шрифт (,,Истина); //жирный
Рисунок.ЦветТекста = Новый Цвет(0,0,255); //синий
Рисунок.Текст = Выборка.Номенклатура.Артикул;

/////////////////////////////////////////////////////
Если ЛевыйСтолбец Тогда
                    ТабДок1.Вывести(ОбластьНоменклатура);
                Иначе
                    ТабДок2.Вывести(ОбластьНоменклатура);
                КонецЕсли;


КонецЕсли;
Ardi
цветфона
границаСлева, ГраницаСправа, ...
Для просмотра полной версии этой страницы, пожалуйста, пройдите по ссылке.