delphi 缩放图形打印输出

本文整理自网络，侵删。

 procedure TForm1.Button2Click(Sender: TObject);
var
Rect:Trect;
BMP：Tbitmap;
begin
Printer.BeginDoc;
Rect.Left:=10;
Rect.Top:=10;
Rect.Right:=410;
Rect.Bottom:=410;
Printer.Canvas.StretchDraw(Rect,BMP); //注意这一句，使用的是StretchDraw 而不是Draw项
Printer.EndDoc;
end;
 

相关阅读 >>

Delphi 窗体不可用

devexpress vcl 动态调用皮肤

Delphi 遍历文件单元文件

Delphi获取uri的查询参数

Delphi opendialog设置默认打开路径

Delphi 判断一个颜色是否是亮色

Delphi 7zip 示例调用7z.dll 压缩及解压.7z文件

Delphi hex --> string

Delphi treeview基本用法

Delphii控件的安装和卸载方法

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 缩放图形打印输出