home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Delphi 4 Bible
/
Delphi_4_Bible_Tom_Swan_IDG_Books_1998.iso
/
source
/
PrintMisc
/
Print1.pas
next >
Wrap
Pascal/Delphi Source File
|
1998-03-10
|
185b
|
10 lines
procedure TForm1.Print1Click(Sender: TObject);
begin
Printer.BeginDoc;
try
Printer.Canvas.Draw(0, 0, Image1.Picture.Graphic);
finally
Printer.EndDoc;
end;
end;