Delphi中画布应用两的则.docVIP

  1. 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
  2. 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  3. 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
  4. 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
  5. 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们
  6. 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
  7. 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
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事件中,键入代码后如下所示:procedureTForm1.FormDblClick(Sender:TObject);varMyColor:Longint;x,y:Word;beginMyColor:=$33;{颜色基数}withCanvasdobegin{当x坐标在外循环,y坐标在内循环时,颜色按列逐渐变化;反之则按行变化}forx:=0toWidthdobeginifxmod4=0then{每隔4列变化一次颜色}beginMyColor:=MyColor+1;{颜色增量为1}end;fory:=0toHeightdobeginPixels[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的实现。procedureTForm1.DivideCanvas(formBegX,ImageBaseX,HalfImageWidth:Integer);varx,y:integer;beginforx:=0toHalfImageWidth-1dobeginfory:=0toImage1.Height-1dobeginCanvas.Pixels[formBegX+x,y]:=Image1.Canvas.Pixels[ImageBaseX+x,y];end;end;end;----(4)在Form1的OnPaint事件中,加入代码后如下所示:procedureTForm1.FormPaint(Sender:TObject);varHalfImageWidth:integer;beginHalfImageWidth:=Image1.Widthdiv2;DivideCanvas(0,0,HalfImageWidth);{复制图像的左半部分}DivideCanvas(HalfImageWidth+50,HalfImageWidth,HalfImageWidth);{复制图像的右半部分}end;----(5)运行程序进行测试。----以上两个演示程序在Delphi6.0和Delphi7.0中均调试通过。 1

文档评论(0)

ayangjiayu3 + 关注
实名认证
文档贡献者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档