Delphi中画布应用两则.doc

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;{颜色基数}

1

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.分割图像

2

----有时候我们需要把一个图像分割成几部分。比如做一个拼版游戏

时，就需要把图像分割成 16 块。利用 Canvas 的属性 Pixels 可以实现

这一功能。下面的例子演示了如何把 Image 控件中的图像分成左右两

部分并把它们复制到窗体的画布上。本示例程序的制作步骤如下：

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

---- 2） （ 在窗体中加入一个 Image 控件， 名字为 Image1。 把属性 Picture

设置为 Delphi 目录下的 Image\Buttons\Abort.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

3