Форум: "Система";
Текущий архив: 2003.03.06;
Скачать: [xml.tar.bz2];
ВнизПринтер... последний вопрос ;) Найти похожие ветки
← →
Коляныч (2003-01-07 09:44) [0]итак сабж ;)
идея такая...
xl:=600; //размеры картинки
yl:=825;
pw:=printer.pagewidth;
ph:=printer.pageheight;
yx:=ph/yl; //коэфициент масшабирования
xc:=yx*xl;
yc:=yx*yl;
if xc>pw then xc:=pw;
image1.canvas.copyrect(rect(0,0,xl,yl)....) - копирую на имагу
printer.canvas.streigtdraw(rect( 0,0,xc,yc),image1.picture.graphic);
так вот - в результате получаю, что картинка не влазит ;( причём прилично... по иксу нарисовало 500 вместо 600, по y не считал... помогите!!! не могу понять своей ошибки...
← →
Song (2003-01-07 09:57) [1]PageWidth вернёт вам размер растра, а не логические размеры принтера. Надо узнавать характеристики принтера через GetDeviceCaps()
← →
MXA (2003-01-08 00:22) [2]а попробуй
...
pw:=printer.pagewidth-2*Printer.Margins.cx;
ph:=printer.pageheight-2*Printer.Margins.cy;
...
← →
Коляныч (2003-01-08 09:39) [3]Спасибо... сегодня же опробую ;)
Ещё идеи есть?
← →
REA (2003-01-08 12:40) [4]А еще картинки (в D7 не проверял) stretchdraw фигово рисует на принтер. Мне пришлось срисовать функцию, которая в Delphi сделана для PrintForm, но и она не всегда срабатывает (на всех принтерах, разрешениях, глубине цвета и т.п.)
Страницы: 1 вся ветка
Форум: "Система";
Текущий архив: 2003.03.06;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.008 c