如何将在窗体Form.canvas上画的图形保存到一个图片文件中(急)!!(50分)

  • 主题发起人 主题发起人 liwenbin
  • 开始时间 开始时间
L

liwenbin

Unregistered / Unconfirmed
GUEST, unregistred user!
如题!!!
 
procedure TForm1.Button2Click(Sender: TObject);
var
bm: TBitmap;
begin
bm := TBitmap.create;
bm.Width := 50; //指明图片的 width
bm.Height := 50; //指明图片的 height
bm.Canvas.CopyRect(rect(0, 0, 50, 50), canvas, rect(0, 0, 50, 50));
//目标区域 想要复制的区域
bm.SaveToFile('f:/fff.bmp');
bm.Free;
end;
 


var
Bitmap:TBitmap;
begin
Bitmap:=TBitmap.Create;
Bitmap:= Form1.GetFormImage;
Bitmap.SaveToFile('c:/1.bmp');
Bitmap.free;
end;
 
都没错

谢谢!!!
 
Form1.Print;
 
uses
Printers;

Printer.BeginDoc;
Printer.Canvas.Draw(0,0,Bitmap);
Printer.EndDoc;
 
多人接受答案了。
 
后退
顶部