Форум: "Media";
Текущий архив: 2006.05.14;
Скачать: [xml.tar.bz2];
ВнизПечать TJPEGImage Найти похожие ветки
← →
Woolen © (2005-12-20 15:37) [0]Поскажите, пожалуйста, как вывести на печать TJPEGImage, учитывая, что у него нет Canvas, а метод Draw закрыт от программиста и используется для библиотечных нужд?
Спасибо
← →
TUser © (2005-12-20 15:42) [1]TPrinter.Canvas.Draw(0,0,JpegImage)
← →
Woolen © (2005-12-20 15:50) [2]Прошу прощения, забыл сказать. У меня Jpeg может быть любого размера. Иногда больше принтерного листа! Иногда меньше. Мне надо его вписать в лист без потери пропорциональности изображения. Для этого я вычисляю TRect, вписаный в страницу прнтера. А вот как перенести потом в это место изображение - непонятно...
← →
DVM © (2005-12-20 16:50) [3]TPrinter.Canvas.StretchDraw()
← →
Woolen © (2005-12-20 17:25) [4]Спасибо. Я уже нашел его. Невнимательно читаю документацию...
Но тут же возник другой вопрос. Изображение не выводится. Печатается пустая страница. Что я делаю не так?procedure TViewFileForm.PrintBtnClick(Sender: TObject);
var
ImgToPrint: TJPEGImage;
InnerHeight,InnerWidth: Integer;
PrintRect: TRect;
begin
if PrintDlg.Execute then
begin
ImgToPrint := TJPEGImage(JPEGs.Items[CurIndex]);
Printer.BeginDoc;
if (Printer.PageWidth / Printer.PageHeight) >
(ImgToPrint.Width / ImgToPrint.Height) then
begin
InnerHeight := Printer.PageHeight;
InnerWidth := Trunc(ImgToPrint.Width / ImgToPrint.Height * InnerHeight);
PrintRect.Left := Printer.PageWidth div 2 - InnerWidth div 2;
PrintRect.Top := 0;
PrintRect.Right := Printer.PageWidth div 2 + InnerWidth div 2;
PrintRect.Bottom := Printer.PageHeight - 1;
end
else
begin
InnerWidth := Printer.PageWidth;
InnerHeight := Trunc(ImgToPrint.Height / ImgToPrint.Width * InnerWidth);
PrintRect.Left := 0;
PrintRect.Top := Printer.PageHeight div 2 - InnerHeight div 2;
PrintRect.Right := Printer.PageWidth - 1;
PrintRect.Bottom := Printer.PageHeight div 2 + InnerHeight div 2;
end;
Printer.Canvas.StretchDraw(PrintRect,ImgToPrint);
Printer.EndDoc;
end;
end;
Спасибо
Страницы: 1 вся ветка
Форум: "Media";
Текущий архив: 2006.05.14;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.017 c