《Delphi中画布应用两则.docx》由会员分享，可在线阅读，更多相关《Delphi中画布应用两则.docx（5页珍藏版）》请在金锄头文库上搜索。
1、Delphi中画布应用两则 关键字：Delphi、画布、背景色、分割图像- 在Delphi 中， 窗 体、BitBtn 控 件、SpeedButton 控件和PaintBox等控件都具有画布属性。调用Canvas的作图函数可以在屏幕上画图，如画圆、画线等。另外，Canvas有一个属性叫Pixels，Pixels是一个二维数组，它的一个元素对应着屏幕上的一个像素点，数组元素的值代表像素点的颜色。利用Canvas的属性Pixels可以实现一些有趣的功能，下面介绍它的两则应用。-1.制作背景色-我们在一些软件的安装界面可以看到由深到浅的背景色，看起来效果相当不错。在Delphi中利用Canvas的属
2、性Pixels可以制作这样的背景色，只要按行或按列改变像素点的颜色就可以了。一个示例程序的编制过程-建立一个新的应用程序。-把Form1的属性BorderStyle改为bsNone，在Form1的OnDblClick事件中，键入代码后如下所示：(Sender:TObject);varMyColor:Longint;x,y:Word;beginMyColor:=$33;颜色基数withCanvasdobegin当x坐标在外循环，y坐标在内循环时，颜色按列逐渐变化；反之则按行变化forx:=0toWidthdobeginifxmod4=0then每隔4列变化一次颜色beginMyColor:=My
3、Color+1;颜色增量为1end;fory:=0toHeightdobeginPixelsx,y:=RGB(0,0,MyColor);用API函数宏RGB合成颜色end;end;end;end;-运行程序，在窗体中双击鼠标左键，观看运行结果。-按Alt+F4键，结束运行。-以上程序在24位色、800*600的分辨率下调试通过。-2.分割图像-有时候我们需要把一个图像分割成几部分。比如做一个拼版游戏时，就需要把图像分割成16块。利用Canvas的属性Pixels可以实现这一功能。下面的例子演示了如何把Image控件中的图像分成左右两部分并把它们复制到窗体的画布上。本示例程序的制作步骤-建立一个
4、新的应用程序。-在窗体中加入一个Image控件，名字为Image1。把属性Picture设置为Delphi目录下的Image“Buttons“。-在类TForm1的private部分，加入语句：procedureDivideCanvas(formBegX,ImageBaseX,HalfImageWidth:Integer);在单元的implementation部分加上过程DivideCanvas的实现。procedure(formBegX,ImageBaseX,HalfImageWidth:Integer);varx,y:integer;beginforx:=0toHalfImageWidth
5、-1dobeginfory:=beginformBegX+x,y:=ImageBaseX+x,y;end;end;end;-在Form1的OnPaint事件中，加入代码后如下所示：(Sender:TObject);varHalfImageWidth:integer;beginHalfImageWidth:=;DivideCanvas(0,0,HalfImageWidth);复制图像的左半部分DivideCanvas(HalfImageWidth+50,HalfImageWidth,HalfImageWidth);复制图像的右半部分end;-运行程序进行测试。-以上两个演示程序在和中均调试通过。
