关键字: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目录下的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
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中均调试通过。
高中各年级课程推荐
|
||||
年级
|
学期
|
课程名称
|
课程试听
|
|
高一 |
高一(上)、(下)同步复习
|
语文 | ||
英语 | ||||
数学 | ||||
数学(期中串讲) | ||||
数学(期末串讲) | ||||
数学拔高 | ||||
物理 | ||||
化学 | ||||
生物(一) | ||||
地理 | ||||
历史 | ||||
政治 | ||||
高中专项突破课
|
语文写作 | |||
英语阅读理解 | ||||
英语写作 | ||||
英语完形填空 | ||||
物理功和能量 | ||||
高二 |
高二(上)、(下)同步复习
|
语文 | ||
英语 | ||||
数学(理) | ||||
数学拔高(理) | ||||
数学(文) | ||||
数学拔高(文) | ||||
物理 | ||||
数学(期中串讲) | ||||
数学(期末串讲)(理) | ||||
数学(期末串讲)(文) | ||||
化学 | ||||
生物(一) | ||||
生物(二) | ||||
生物(三) | ||||
地理 | ||||
历史 | ||||
政治 | ||||
高三 |
高考第一轮复习
|
语文 | ||
英语 | ||||
数学(理) | ||||
数学拔高(理) | ||||
数学(文) | ||||
数学拔高(文) | ||||
物理 | ||||
物理拔高 | ||||
化学 | ||||
生物 | ||||
地理 | ||||
政治 | ||||
历史(韩校版) | ||||
历史(李晓风版) | ||||
高考第二轮复习
|
数学(理) | |||
数学(文) | ||||
英语 | ||||
物理 | ||||
化学 | ||||
地理 | ||||
高考第三轮冲刺串讲
|
语数英串讲(理) | |||
语数英串讲(文) | ||||
物化生串讲 | ||||
史地政串讲 | ||||
高考试题精讲
|
数学(理) | |||
英语 | ||||
化学 | ||||
物理 | ||||
2021高考研究2021高考策略(理) | ||||
2021高考研究2021高考策略(文) | ||||
Copyright © 2005-2020 Ttshopping.Net. All Rights Reserved . |
云南省公安厅:53010303502006 滇ICP备16003680号-9
本网大部分资源来源于会员上传,除本网组织的资源外,版权归原作者所有,如有侵犯版权,请立刻和本网联系并提供证据,本网将在三个工作日内改正。