Проблема печати картинки на принтере! [D7, WinXP]
Gennadiy © (2005-11-12 18:22:00)
Добрый вечер!!!
Стоит такая задача!!!, нужно отправлять файл JPg, на принтер,
но необходимо чтобы картинка данного файла распечатывалась во весь
лист. Ниже приведен код, который работает и печатает, но проблема в
том что делает очень медленно, как можно ускорить этот процесс?
procedure TForm1.Button1Click(Sender: TObject);
var
PrintDlg: TPrintDialog;
MyJpeg:TJpegImage;
Pic:TBitmap;
SFileVhod:String;
begin
SFileVhod:='D:\073.jpg';
PrintDlg:=TPrintDialog.Create(Owner);
if PrintDlg.Execute then
begin
MyJpeg:= TJpegImage.Create;
Pic:=Graphics.TBitMap.Create;
MyJpeg.LoadFromFile(SFileVhod);
Pic.Assign(MyJpeg);
Printer.BeginDoc;
Printer.Canvas.Refresh;
Printer.Canvas.StretchDraw(Printer.Canvas.ClipRect, Pic);
Printer.EndDoc;
MyJpeg.Free;
Pic.Free;
end;
end;
PrintDlg.Free;
end;
TStas (2005-11-12 20:18:00) [1]
Если картинку на форму посадить, печатается она быстро через
метод Print
Наверх 
ЧАТ |
Орешник |
|
