如何打印TImage中的图片? 如何打印TImage中的图片?要用到printdialog 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 procedure TForm1.Button1Click(Sender: TObject);var ScaleX, ScaleY: Integer; R: TRect;begin Printer.BeginDoc; // ** with Printer do try ScaleX := GetDeviceCaps(Handle, logPixelsX) div PixelsPerInch; ScaleY := GetDeviceCaps(Handle, logPixelsY) div PixelsPerInch; R := Rect(0, 0, Image1.Picture.Width * ScaleX, Image1.Picture.Height * ScaleY); Canvas.StretchDraw(R, Image1.Picture.Graphic); // ** finally EndDoc; // ** end;end; Delphi版本的淘宝接口(TopAPI)开发 终于双休了...... 有关socket通信问题 function调用问题 怎样根据组件名访问组件 请教有关控件拖放 如何用动态阀值法将图形二值化? delphi的installshield教程!!(不是VB的)哪裡有下載啊 (100分送上) 救啊!!!! 一个权限问题,一定给分,不管怎么样先近来看看再说吧 请教............ 为什么编译后的程序在win2000下的字体显示正常,而在win98下字体却变得又小又不清楚。
var
ScaleX, ScaleY: Integer;
R: TRect;begin
Printer.BeginDoc; // **
with Printer do
try
ScaleX := GetDeviceCaps(Handle, logPixelsX) div PixelsPerInch;
ScaleY := GetDeviceCaps(Handle, logPixelsY) div PixelsPerInch;
R := Rect(0, 0, Image1.Picture.Width * ScaleX,
Image1.Picture.Height * ScaleY);
Canvas.StretchDraw(R, Image1.Picture.Graphic); // **
finally
EndDoc; // **
end;
end;