admin 管理员组

文章数量: 1184232


2024年4月22日发(作者：access辅导)

Delphi中画布应用

Delphi中画布应用两那么 关键字：Delphi、画布、背景色、分割图像

---- 在Delphi 中， 窗 体（Form）、BitBtn 控 件、SpeedButton 控件和PaintBox

等控件都具有画布（Canvas）属性。调用Canvas的作图函数可以在屏幕上画图，如画

圆、画线等。另外，Canvas有一个属性叫Pixels，Pixels是一个二维数组，它的一个元

素对应着屏幕上的一个像素点，数组元素的值代表像素点的颜色。利用Canvas的属性

Pixels可以实现一些有趣的功能，下面介绍它的两那么应用。

----1.制作背景色

----我们在一些软件的`安装界面可以看到由深到浅（或由浅到深）的背景色，看起来

效果相当不错。在Delphi中利用Canvas的属性Pixels可以制作这样的背景色，只要按

行或按列改变像素点的颜色就可以了。一个例如程序的编制过程如下：

----（1）建立一个新的应用程序。

----（2）把Form1的属性BorderStyle改为bsNone，在Form1的OnDblClick

事件中，键入代码后如下所示：

lClick(Sender:TObject);

varMyColor:Longint;

x,y:Word;

begin

MyColor:=$33;{颜色基数}

withCanvasdo

begin

{当x坐标在外循环，y坐标在内

循环时，颜色按列逐渐变化；反之那么按行变化}

forx:=0toWidthdo

begin

ifxmod4=0then{每隔4列变化一次颜色}

begin

MyColor:=MyColor 1;{颜色增量为1}

end;


本文标签： 颜色 像素点 画布 背景色 属性

版权声明：本文标题：Delphi中画布应用 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://www.roclinux.cn/p/1713769862a650706.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。