Delphi Canvas的FillRect(const Rect: TRect) 函数的作用

http://blog.163.com/zhangzhifeng688@126/blog/static/165262758201131211341460/

Delphi Canvas的FillRect(const Rect: TRect) 函数的作用  

2011-04-12 11:34:14|  分类： Delphi|举报|字号 订阅

    

 

 

  下载LOFTER我的照片书  |

 

 

FillRect
　　函数功能：该函数用指定的画刷填充矩形。

用法：//Delphi自带的帮助

var
  Bitmap: TBitmap;
begin
  Bitmap := TBitmap.Create;
  try
    Bitmap.LoadFromFile('R9.bmp');
    Form1.Canvas.Brush.Bitmap := Bitmap;
    Form1.Canvas.FillRect(Rect(0,0,100,800));
  finally
    Form1.Canvas.Brush.Bitmap := nil;
    Bitmap.Free;
  end;

end;