Печать с масштабированием |
Previous Top Next |
Code: |
procedure TForm1.Button1Click(Sender: TObject); // © Song Var ScaleX, ScaleY: Integer; Begin Printer.BeginDoc; With Printer Do try ScaleX:=GetDeviceCaps(Handle,LogPixelsX) div PixelsPerInch; ScaleY:=GetDeviceCaps(Handle,LogPixelsY) div PixelsPerInch; Canvas.StretchDraw(Rect(0,0,Image1.Picture.Width*ScaleX,Image1.Picture.Height*ScaleY),Image1.Picture.Graphic); finally EndDoc; end; End; |
©Drkb::03250
Автор: Song
Взято из http://forum.sources.ru