如何将Canvas上的图形输出成bmp文件？

Question

如题，谢谢。

Answer 1

我现给你写了个过程，试试看。
procedure SaveCanvasFile(mvarCanvas:TCanvas;Filename:string);
var
  Bitmap:TBitmap;
  R :TRect;
begin
  Bitmap := TBitmap.Create;
  R := Rect(0,0,mvarCanvas.width,mvarCanvas.Height);
  try
    Bitmap.PixelFormat := pf24Bit;
    Bitmap.Width := mvarCanvas.Width;
    Bitmap.Height := mvarCanvas.Height;
    Bitmap.Canvas.CopyRect(R,mvarCanvas,R);
    Bitmap.SaveToFile(FileName);
  finally
    Bitmap.Free;
  end;
end;

Answer 2

： GnuSoft(冠宇) 
谢谢，50分已经给你了。