Печать с масштабированием
Falk0ner, вс, 06/07/2008 - 15:34.
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;
// © 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;
Автор: Song
Взято из http://forum.sources.ru
Отправить комментарий