xzorkiix

Процедура НапечататьКартинку(ПутьКФайлу,знач ШиринаРис = 100, знач ВысотаРис = 100, знач Превью = Истина, знач МгновеннаяПечать = Ложь) Экспорт
    ТД = Новый ТабличныйДокумент;
    ПростойЗаголовок = ТД.ПолучитьОбласть("R1C1");
                
    Рис = ПростойЗаголовок.Рисунки.Добавить(ТипРисункаТабличногоДокумента.Картинка);
    Рис.Высота=ШиринаРис; /// в мм. 
    Рис.Ширина=ВысотаРис; /// в мм. 
    Рис.РазмерКартинки = РазмерКартинки.АвтоРазмер;
    Рис.Картинка = Новый Картинка(ПутьКФайлу);

    ТД.Вывести(ПростойЗаголовок);
    Если Превью Тогда ТД.Показать();
    КонецЕсли;

    ТД.Напечатать(МгновеннаяПечать);
КонецПроцедуры

8bitpeoples - лейбл хороших 8бит людей

8bitpeoples впервые собрались вместе в 1999 как коллектив творческих людей, объединенные любовью к классическим видео играм и подходом к музыке, которая отражает это увлечение. Нашим главным интересом стало выпуск и распастронение качественной БЕСПЛАТНОЙ музыки и ВЕСЕЛОЙ. С года основания мы не перестаем профессионально расти и зарабатывать очки.

Мы продолжаем выпускать наши релизы бесплатно, добавляя к ним цветные обложки для того чтобы каждый смог сам для себя "выпустить" наш релиз на физическом носителе. Далее, большинство наших работ урезаны, но доступны в супер качестве MP3, а порой и с бонусами.

В дополнение к нашей преданности музыки, мы получили огромный опыт в коллективной разработке программного обеспечения, аппаратных решений и составлении сопутствующей документации обо всем этом. Наша любовь к старым видеоиграм(приставки и первые домашние компьютеры) нам как и прежде дает стимул развиваться от малого к бесконечно большому, то оглядываясь назад, мы понимаем, что проделали огромный путь, и пройдем еще не меньше ... и чтоб ты знал, просто для(ради) удовольствия..link..

Read more...