home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Delphi 4 Bible
/
Delphi_4_Bible_Tom_Swan_IDG_Books_1998.iso
/
source
/
PrintMisc
/
Print3.pas
< prev
Wrap
Pascal/Delphi Source File
|
1998-03-10
|
715b
|
28 lines
procedure TForm1.Button1Click(Sender: TObject);
var
P: TPicture;
ScaleX, ScaleY: Integer;
R: TRect;
begin
P := TPicture.Create;
try
// Modify the pathname string in the following statement
// to load any .bmp, .ico, or metafile:
P.LoadFromFile('D:\Delphi 4 Bible\Source\Data\Sample.bmp');
Printer.BeginDoc;
with Printer do
try
ScaleX :=
GetDeviceCaps(Handle, logPixelsX) div PixelsPerInch;
ScaleY :=
GetDeviceCaps(Handle, logPixelsY) div PixelsPerInch;
R := Rect(0, 0, P.Width * ScaleX, P.Height * ScaleY);
Canvas.StretchDraw(R, P.Graphic);
finally
Printer.EndDoc;
end;
finally
P.Free;
end;
end;