Delphi中画布应用两则论文.docVIP

　　Delphi中画布应用两则论文 关键字：Delphi、画布、背景色、分割图像 ---- 在Delphi 中， 窗 体（Form）、BitBtn 控 件、SpeedButton 控件和PaintBox等控件都具有画布（Canvas）属性。调用Canvas的作图函数可以在屏幕上画图，如画圆、画线等。另外，Canvas有一个属性叫Pixels，Pixels是一个二维数组，它的一个元素对应着屏幕上的一个像素点，数组元素的值代表像素点的颜色。利用Canvas的属性Pixels可以实现一些有趣的功能，下面介绍它的两则应用。 ----1.制作背景色 ----我们在一些软件的安装界面可以看到由深到浅（或由浅到深）的背景色.freel1的属性BorderStyle改为bsNone，在Form1的OnDblClick事件中，键入代码后如下所示： procedureTForm1.FormDblClick(Sender:TObject); varMyColor:Longint; x,y:yColor:=$33;{颜色基数} od4=0then{每隔4列变化一次颜色} begin MyColor:=MyColor+1;{颜色增量为1} end; fory:=0toHeightdo begin Pixelsx,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目录下的Image/Buttons/Abort.bmp。 ----（3）在类TForm1的private部分，加入语句： procedureDivideCanvas(formBegX, ImageBaseX,HalfImageplementation部分加 上过程DivideCanvas的实现。 procedure TForm1.DivideCanvas(formBegX, ImageBaseX,HalfImageageage1.Height-1do begin Canvas.PixelsformBegX+x,y:= Image1.Canvas.PixelsImageBaseX+x,y; end; end; end; ----（4）在Form1的OnPaint事件中，加入代码后如下所示： procedureTForm1.FormPaint(Sender:TObject); varHalfImageageage1.ageageageWidth); {复制图像的右半部分} end; ----（5）运行程序进行测试。 ----以上两个演示程序在Delphi6.0和Delphi7.0中均调试通过。