All articles(网络文学目录) All Pictures(图片目录) All Softwares(软件目录)

 
delphiGDI图像编程

Writer: aaa Article type: Programming skills(编程技巧) Time: 2014/7/19 0:08:47 Browse times: 326 Comment times: 0

delphiGDI图像编程


Head photo

Go homepage
Upload pictures
Write articles

delphiGDI图像编程:画刷类(TBrush)

画刷类(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;





There are 0 records,
Comment:
Must be registered users to comment(必须是注册用户才能发表评论)

Disclaimer Privacy Policy About us Site Map
Copyright ©2011-
uuhomepage.com, Inc. All rights reserved.