Delphi中的图形显示技巧

王朝delphi·作者佚名  2006-01-08
窄屏简体版  字體: |||超大  

(06/11/1999)

概述

----目前在许多学习软件、游戏光盘中,经常会看到各种

图形显示技巧,凭着图形的移动、交错、雨滴状、百页窗、积木堆叠等显现方式,使画面变得更为生动活泼,更 能吸引观众。本文将探讨如何在Delphi中实现各种图形显示技巧。

基本原理

----在Delphi中,实现一副图象的显示是非常简单的,只要在Form中定义一个TImage组件,设置其picture属性,然后选 择任何有效的.ICO、.BMP、.EMF或.WMF文件,进行Load,所选文 件就显示在TImage组件中了。但这只是直接将图形显示在窗体中,毫无技巧可言。为了使图形显示具有别具一格的效果,可以按下列步骤实现:

----定义一个TImage组件,把要显示的图形先装入到TImage组件中,也就是说,把图形内容从磁盘载入内存中, 做为图形缓存。

----创建一新的位图对象,其尺寸跟TImage组件中的图形一样。

----利用画布(Canvas)的CopyRect功能(将一个画布的矩形区域拷贝到另一个画布的矩形区域),使用技巧,动态形

成位图文件内容,然后在窗体中显示位图。

----实现方法

下面介绍各种图形显示技巧:

1.推拉效果

将要显示的图形由上、下、左、右方向拉进屏幕内显示,同时将屏幕上原来的旧图盖掉,此种效果可分为四

种,上拉、下拉、左拉、右拉,但原理都差不多,以上拉 效果为例。

原理:首先将放在暂存图形的第一条水平线,搬移至要显示的位图的最后一条,接着再将暂存图形的前两条水平线,依序搬移至要显示位图的最后两条水平线,然后搬移前三条、前四条叄?直到全部图形数据搬完为止。在搬移的过程中即可看到显示的位图由下而上浮起,而达到上拉的效果。

程序算法:

procedure TForm1.Button1Click(Sender: TObject);

var

newbmp: TBitmap;

i,bmpheight,bmpwidth:integer;

begin

newbmp:= TBitmap.Create;

newbmp.Width:=image1.Width;

newbmp.Height:=image1.Height;

bmpheight:=image1.Height;

bmpwidth:=image1.Width;

for i:=0 to bmpheight do

begin

newbmp.Canvas.CopyRect(Rect

(0,bmpheight-i,bmpwidth,bmpheight),

image1.Canvas,

Rect(0,0,bmpwidth,i));

form1.Canvas.Draw(120,100,newbmp);

end;

newbmp.free;

end;

2.垂直交错效果

原理:将要显示的图形拆成两部分,奇数条扫描线由上往下搬移,偶数条扫描线的部分则由下往上搬移,而且两者同时进行。从屏幕上便可看到分别由上下两端出现的较淡图形向屏幕中央移动,直到完全清楚为止。

程序算法:

procedure TForm1.Button4Click(Sender: TObject);

var

newbmp:TBitmap;

i,j,bmpheight,bmpwidth:integer;

begin

newbmp:= TBitmap.Create;

newbmp.Width:=image1.Width;

newbmp.Height:=image1.Height;

bmpheight:=image1.Height;

bmpwidth:=image1.Width;

i:=0;

while i< =bmpheight do

begin

j:=i;

while j >0 do

begin

newbmp.Canvas.CopyRect(Rect(0,j-1,bmpwidth,j),

image1.Canvas,

Rect(0,bmpheight-i+j-1,bmpwidth,bmpheight-i+j));

newbmp.Canvas.CopyRect(Rect

(0,bmpheight-j,bmpwidth,bmpheight-j+1),

image1.Canvas,

Rect(0,i-j,bmpwidth,i-j+1));

j:=j-2;

end;

form1.Canvas.Draw(120,100,newbmp);

i:=i+2;

end;

newbmp.free;

end;

3.水平交错效果

原理:同垂直交错效果原理一样,只是将分成两组后的图形分别由左右两端移进屏幕。

程序算法:

procedure TForm1.Button5Click(Sender: TObject);

var

newbmp:TBitmap;

i,j,bmpheight,bmpwidth:integer;

begin

newbmp:= TBitmap.Create;

newbmp.Width:=image1.Width;

newbmp.Height:=image1.Height;

bmpheight:=image1.Height;

bmpwidth:=image1.Width;

i:=0;

while i< =bmpwidth do

begin

j:=i;

while j >0 do

begin

newbmp.Canvas.CopyRect(Rect(j-1,0,j,bmpheight),

image1.Canvas,

Rect(bmpwidth-i+j-1,0,bmpwidth-i+j,bmpheight));

newbmp.Canvas.CopyRect(Rect

(bmpwidth-j,0,bmpwidth-j+1,bmpheight),

image1.Canvas,

Rect(i-j,0,i-j+1,bmpheight));

j:=j-2;

end;

form1.Canvas.Draw(120,100,newbmp);

i:=i+2;

end;

newbmp.free;

end;

4.雨滴效果

原理:将暂存图形的最后一条扫描线,依序搬移到可视位图的第一条到最后一条扫描线,让此条扫描线在屏幕上留下它的轨迹。接着再把暂存图形的倒数第二条扫描线,依序搬移到可视位图的第一条到倒数第二条扫描线。其余的扫描线依此类推。

程序算法:

procedure TForm1.Button3Click(Sender: TObject);

var

newbmp:TBitmap;

i,j,bmpheight,bmpwidth:integer;

begin

newbmp:= TBitmap.Create;

newbmp.Width:=image1.Width;

newbmp.Height:=image1.Height;

bmpheight:=image1.Height;

bmpwidth:=image1.Width;

for i:=bmpheight downto 1 do

for j:=1 to i do

begin

newbmp.Canvas.CopyRect(Rect(0,j-1,bmpwidth,j),

image1.Canvas,

Rect(0,i-1,bmpwidth,i));

form1.Canvas.Draw(120,100,newbmp);

end;

newbmp.free;

end;

5.百叶窗效果

原理:将放在暂存图形的数据分成若干组,然后依次从第一组到最后一组搬移,第一次每组各搬移第一条扫描线到可视位图的相应位置,第二次搬移第二条扫描线,接着搬移第三条、第四条扫描线.

程序算法:

procedure TForm1.Button6Click(Sender: TObject);

var

newbmp:TBitmap;

i,j,bmpheight,bmpwidth:integer;

xgroup,xcount:integer;

begin

newbmp:= TBitmap.Create;

newbmp.Width:=image1.Width;

newbmp.Height:=image1.Height;

bmpheight:=image1.Height;

bmpwidth:=image1.Width;

xgroup:=16;

xcount:=bmpheight div xgroup;

for i:=0 to xcount do

for j:=0 to xgroup do

begin

newbmp.Canvas.CopyRect(Rect

(0,xcount*j+i-1,bmpwidth,xcount*j+i),

image1.Canvas,

Rect(0,xcount*j+i-1,bmpwidth,xcount*j+i));

form1.Canvas.Draw(120,100,newbmp);

end;

newbmp.Free;

end;

6.积木效果

原理:是雨滴效果的一种变化,不同之处在于,积木效果每次搬移的是一块图形,而不只是一根扫描线。

程序算法:

procedure TForm1.Button7Click(Sender: TObject);

var

newbmp:TBitmap;

i,j,bmpheight,bmpwidth:integer;

begin

newbmp:= TBitmap.Create;

newbmp.Width:=image1.Width;

newbmp.Height:=image1.Height;

bmpheight:=image1.Height;

bmpwidth:=image1.Width;

i:=bmpheight;

while i>0 do

begin

for j:=10 to i do

begin

newbmp.Canvas.CopyRect(Rect(0,j-10,bmpwidth,j),

image1.Canvas,

Rect(0,i-10,bmpwidth,i));

form1.Canvas.Draw(120,100,newbmp);

end;

i:=i-10;

end;

newbmp.free;

end;

结束语

上述图形显示效果均已上机通过,软件环境Delphi 3.0 ,硬件环境Pentium 100M兼容机。使用效果很好。

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航