2024年7月2日发(作者：)
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
事件中，键入代码后如下所示：
lClick(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目录下的。
----（3）在类TForm1的private局部，参加语句：
procedureDivideCanvas(formBegX,
ImageBaseX,HalfImageWidth:Integer);
在单元的implementation局部加
上过程DivideCanvas的实现。
procedure
Canvas(formBegX,
ImageBaseX,HalfImageWidth:Integer);
varx,y:integer;
begin
forx:=0toHalfImageWidth-1do
begin
fory:=-1do
begin
[formBegX x,y]:=
[ImageBaseX x,y];
end;
end;
end;
----（4）在Form1的OnPaint事件中，参加代码后如下所示：
int(Sender:TObject);
varHalfImageWidth:integer;
begin
HalfImageWidth:=iv2;
DivideCanvas(0,0,HalfImageWidth);
{复制图像的左半局部}
DivideCanvas(HalfImageWidth 50,
HalfImageWidth,HalfImageWidth);
{复制图像的右半局部}
end;
----（5）运行程序进行测试。
----以上两个演示程序在Delphi6.0和Delphi7.0中均调试通过。论文出处(作者):
VBA在限定Excel工作表用户按钮中的应用
浅析规划管理信息整合与效劳——以南昌市规划管理信息系
发布者：admin，转转请注明出处：http://www.yc00.com/news/1719895656a2759118.html
评论列表（0条）