我们在一些软件的安装界面可以看到由深到浅(或由浅到深)的背景色，看起来效果相当不错。这里是一篇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事件中，键入代码后如下所示：

procedureTForm1.FormDblClick(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;

fory:=0toHeightdo

begin

Pixels[x,y]:=RGB(0,0,MyColor);

{用API函数宏RGB合成颜色}

end;

end;

end;

end;

----(3)运行程序，在窗体中双击鼠标左键，观看运行结果。

----(4)按Alt+F4键，结束运行。

----以上程序在24位色、800*600的分辨率下调试通过。

----2.分割图像

----有时候我们需要把一个图像分割成几部分。比如做一个拼版游戏时，就需要把图像分割成16块。利用Canvas的属性Pixels可以实现这一功能。下面的例子演示了如何把Image控件中的图像分成左右两部分并把它们复制到窗体的画布上。本示例程序的制作步骤如下：

----(1)建立一个新的应用程序。

----(2)在窗体中加入一个Image控件，名字为Image1。把属性Picture设置为Delphi目录下的ImageButtonsAbort.bmp。

----(3)在类TForm1的private部分，加入语句：

procedureDivideCanvas(formBegX,

ImageBaseX,HalfImageWidth:Integer);

在单元的implementation部分加

上过程DivideCanvas的实现。

procedure

TForm1.DivideCanvas(formBegX,

ImageBaseX,HalfImageWidth:Integer);

varx,y:integer;

begin

forx:=0toHalfImageWidth-1do

begin

fory:=0toImage1.Height-1do

begin

Canvas.Pixels[formBegX+x,y]:=

Image1.Canvas.Pixels[ImageBaseX+x,y];

end;

end;

end;

----(4)在Form1的OnPaint事件中，加入代码后如下所示：

procedureTForm1.FormPaint(Sender:TObject);

varHalfImageWidth:integer;

begin

HalfImageWidth:=Image1.Widthdiv2;

DivideCanvas(0,0,HalfImageWidth);

{复制图像的左半部分}

DivideCanvas(HalfImageWidth+50,

HalfImageWidth,HalfImageWidth);

{复制图像的右半部分}

end;

----(5)运行程序进行测试。

----以上两个演示程序在Delphi6.0和Delphi7.0中均调试通过。

网友们，Delphi中画布应用两则就到此为大家介绍完毕了，祝大家能够获得有用的知识。

相关推荐：

9000字delphi论文：电磁辐射 

利用Delphi开发网络数据库应用