Delphi - база знаний


Печать с масштабированием


Печать с масштабированием




procedureTForm1.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

Взято из





Начало  Назад  Вперед