home *** CD-ROM | disk | FTP | other *** search
/ Delphi 4 Bible / Delphi_4_Bible_Tom_Swan_IDG_Books_1998.iso / source / PrintMisc / Print2.pas < prev    next >
Pascal/Delphi Source File  |  1998-03-10  |  483b  |  20 lines
  1. procedure TForm1.Button1Click(Sender: TObject);
  2. var
  3.   ScaleX, ScaleY: Integer;
  4.   R: TRect;
  5. begin
  6.   Printer.BeginDoc;
  7.   with Printer do
  8.   try
  9.     ScaleX := 
  10.       GetDeviceCaps(Handle, logPixelsX) div PixelsPerInch;
  11.     ScaleY := 
  12.       GetDeviceCaps(Handle, logPixelsY) div PixelsPerInch;
  13.     R := Rect(0, 0, Image1.Picture.Width * ScaleX,
  14.       Image1.Picture.Height * ScaleY);
  15.     Canvas.StretchDraw(R, Image1.Picture.Graphic);
  16.   finally
  17.     EndDoc;
  18.   end;
  19. end;
  20.