Go homepage(回首页) Upload pictures (上传图片) Write articles (发文字帖)
The author:(作者)aaapublished in(发表于) 2014/7/19 0:08:47 delphiGDI图像编程
画刷类(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);varI:Integer;beginfor I := 1 to 8 dobeginCanvas.Brush.Style := TBrushStyle(I); //设置画笔样式Canvas.Rectangle(45 * I,20,30 + 45 * I,50);end;end;
赞