画刷类（TBrush）

画刷对象（TBrush 对象）用以填充图形，如用画刷颜色或图案对矩形或椭圆进行填充。下面将向读者介绍画刷对象的常用属性。

（1）Color 属性

用于定义画刷的填充颜色。

（2）Bitmap 属性

画刷可使用Bitmap 属性填充图形以产生特殊效果。位图大小为8 个像素点，但为配合高8 个像素点还有一个宽画刷类。

该属性只能在运行时才可以使用。

（3）Style 属性

Style 属性定义了画刷填充图形的风格。Style 属性为枚举类型，画刷中有七种填充模式，共有十五种取值，分别代表不同的填充风格，供用户任意选择。

·BsSolid 实心填充

·BsClear 不填充

·BsHorizontal 水平线填充

·BsVertical 垂直线填充

·BsBDiagonal 斜线填充

·BsFDialogonal 反斜线填充

·BsCross 十字线填充

·BsDiagCross 交叉线填充

·bsDense1 密集填充1

·bsDense2 密集填充2

·bsDense3 密集填充3

·bsDense4 密集填充4

·bsDense5 密集填充5

·bsDense6 密集填充6

·bsDense7 密集填充7

下面用一个程序来测试TBrush 的Style 属性。

创建一个新的工程，在窗体的OnClick 事件过程中添加如下代码：

procedure TForm1.FormClick(Sender: TObject);

var

I:Integer;

begin

for I := 1 to 8 do

begin

Canvas.Brush.Style := TBrushStyle(I); //设置画笔样式

Canvas.Rectangle(45 * I,20,30 + 45 * I,50);

end;

end;