如何空清空TBitmap图象?

Question

TBitmap类如何空清空图象？Delphi里应该有现成的函数吧！是什么呢？
难道还要自己编？看看下面代码多麻烦呀！
var bmp:TBitmap;
for r:=0 to bmp.height-1 do
 for c:=0 to bmp.width-1 do
  bmp.Canvas.pixels[r,c]:=$ffffff;

Answer 1

bmp.Canvas.FillRect(Rect(0,0,Bmp.Width,Bmp.Height));

Answer 2

bmp.Canvas.FillRect(bmp.Canvas,clientrect)

Answer 3

太麻烦了那么做
bmp.freeimage;

Answer 4

直接FreeImage只是清空了Bitmap数据，并不会刷新屏幕，要清空TBitmap必须用
  Image1.Picture.Bitmap.FreeImage ; //清除Bitmap所占用的内存
  Image1.Picture.Graphic := nil;   //去掉屏幕上的图像

Answer 5

非常好！
bmp.Canvas.FillRect(Rect(0,0,Bmp.Width,Bmp.Height));
可以将图片填充成白色，可是我要填充成黑色或者其他颜色怎么办？那里设置颜色？