解决方案 »
- 请问DELPHI如何在右键菜单中增加图片?
- 远程过程调用传递参数的问题!
- 求助:如何读取文本文件或保存到指定数据库 急急急急急急急!!!!!
- fastreport在使用自定义纸张大小的时候,为什么不管是打开设计界面或是使用的时候速度都很慢????
- 怎样在Delphi中控制Word和Office?
- 一个存储过程的问题(急,在线等待)
- 能行不???
- 1.我想在数据库A1(Access数据库)根据一定条件生成另一数据库A2,,怎么实现?
- 怎么修改任意文件的图标
- ?.mov是用什么软件制作的,怎样才能对.mov文件的每一个画面进行编辑?用delphi做VOD行吗?
- 文件保存到服务器的问题
- 运行时程序如何读程序自身
sl := TStringList.Create; Printer := TPrinter.Create;
try
StartPrint(0, 0, Printer);
except
end;
sl := TStringList(Printer.Printers);
Printer.BeginDoc;
temhi := img.Height;
temwd := img.width;
with strect do
begin
left := 10;
top := 10;
right := left + temwd;
bottom := top + temhi;
end;
Printer.Canvas.StretchDraw(strect,img.picture.graphic);
printer.EndDoc;
printer.Free;