Delphi中动画设计

扫一扫
分享文章到微信
扫一扫
关注官方公众号
至顶头条

下面就作者的经验,谈谈利用Delphi设计动画的一些技巧,并提供完整的示例程序。

作者：佚名来源：逸仙时空 2007年11月2日

Delphi是Borland公司推出的面向对象的开发工具,用它可以快速地创建Windows应用程序。它拥有快捷的编译器,并提供了丰富的构件集、强大的代码自动生成功能和丰富的数据库管理工具等。下面就作者的经验,谈谈利用Delphi设计动画的一些技巧,并提供完整的示例程序。

　　Timage构件变换法利用多个Timage构件在同一位置显示图像,而每个Timage构件装入的图像又各不相同,连续显示的效果可以形成动态感。下面以本公司徽标为例,介绍在封面制作中徽标的动作。在封面窗体(TQD_start) 中放入10个(其数目可根据实际情况确定)Timage图像构件和1个time 时钟构件。其中第一个Timage构件的VISIBLE的属性置为False,其他T image构件的VISIBLE属性均设置为True;Timer构件的INTERVAL值可根据要求的动作频率来确定,本例定为200。

　　Delphi中的Timage构件装入的图形文件格式一般为bmp、ico、em f、wmf等,改变图像时可选用支持上述格式的图形软件。例如,首先将徽标存入文件LS1.BMP,利用PHOTOSHOP软件的Image Size(Pixel Dime nsions)来逐步改变图形的大小,分别按LS2、LS3...LS10.BMP文件名存盘。值得注意的是,图形的背景应和封面背景颜色保持一致,并且不留边框痕迹。图1 ls1,ls2......ls10.bmp 双击Ttimer构件的ONTIMER事件的处理程序如下:

procedure TQD_start.Timer1Timer(Sender:TObject);

CONST i:integer=2;

begin

case i of

2:image1.picture:=image4.picture;

3:image1.picture:=image5.picture;

4:image1.picture:=image6.picture;

5:image1.picture:=image7.picture;

6:image1.picture:=image8.picture;

7:image1.picture:=image9.picture;

8:image1.picture:=image10.picture;

9:image1.picture:=image11.picture;

10:image1.picture:=image12.picture;

11:image1.picture:=image13.picture;

12:begin

image1.picture:=image14.picture;

i:=2;

end;

i=:i+1

end;

end.

不难看出,本程序执行后徽标由大至小不断覆盖,仿佛该徽标由远及近在运动。请注意其运动轨迹是反复由大至小,如果希望其运动效果是由远及近、由近及远,又由远及近,周而复始,可将程序作相应修改,本文由于篇幅所限从略。

　　如果希望将动作效果再改变一下,徽标由叫　⒂山霸兜耐?按顺时针或反时针旋转,可利用PHOTOSHOP软件的Rotate来逐步改变图形的转向,然后重新装入Timage构件。显然,图形数量取得愈多则动画效果愈平滑,可根据实际情况选定。

　　数据库GRAPHICS字段变换法首先在Delphi下建立数据库(例如:QD_T.db),其结构如下:表1 数据库结构然后可利用PHOTOSHOP软件的Image Size或Rotate功能反复编辑图片,按Ctrl+C拷贝;切换回Delphi,选中Dbimage构件,按Ctrl+v粘贴。Dbimage构件的Stretch属性扩展图片的大小,以便它填满整个Dbima ge构件,即如果图片太大,该构件会自动按比例缩小图片。

　　在封面窗体(TQD_start)中放入1个Table构件(从Data Access页中选择,其中Name选QDT able,TableName选QD_T.db)、1个DataSource 构件(从Data Access页中选择,其中Name选Q_S ource,DataSet选QD_T able)、1个DBImage构件(从Data Controls页中选择,其中DataSouce 选QD_Source,DataField选QD,Stretch选True)和1个Ttimer时钟构件( 从Data Access页中选择)。

　　双击Ttimer构件的ONTIMER事件的处理程序如下:
procedure TQD_start.Timer1Timer(Sender:TObject);

begin

QD_Table.MoveBy(1);

if QD_Table.EOF then

begin

QD_Table.First;

end;

本程序可参考Timage构件变换法,修改以上源程序来变换动作顺序或旋转方向,以达到要求的动画效果。

　　Tpanel构件变换法利用Tpanel构件作背景,Timage构件装载图像,图像的移动效果相当平滑,通过改变图像构件的物理位置来描绘动画轨迹或随机漫游。

　　在封面窗体(TQD_start)中放入1个Tpanel构件。在Tpanel构件内放入1个Timage构件,在该构件内装载一幅图像,其AUTOSIZE属性设置为True。另设置1个Ttimer时钟构件。双击Ttm er构件的ONTIMER事件的处理程序如下:

procedure TQD_start.Timer2Timer(Sender:TObject);

CONST s:integer=1;

begin

i:=i+s;

image2.left:=arrposi[i];

if i=50 then s:=-1;

if i=1 then s:=1;

end;

激活TQD_Start窗体的OnCreate事件的处理程序如下:

procedure TQD_start.Timer2Timer(Sender:TObject);

var ii:Integer;

begin

i:=0

for ii:=1 to 50 do

arrposi[ii]:=ii;

end;

显然,适当修改以上程序的相关数值,可增加或减少移动范围,或者改变图像的移动轨迹。

　　CANVAS画面变换法Delphi在许多构件中都提供了CANVAS画布类,利用该属性也可以设计出漂亮的动画图案。下面以本公司的简介为例,说明如何在软件中实现移动字幕,造成整块字体的动画效果。

　　首先在"公司简介"子模块的窗体内放入1个Tpanel构件(可将其Be velinner和Beveloutr属性设置为bvlowered,造成显示框内凹的感觉),在该构件内放入1个Timage构件及1个Ttier构件。并在FormCreate 事件中设置动画初值如下:

procedure TQD_About.Form Create(Sender:TObject);

begin

timer1.enabled:=true;

timer1.Interval:=10;

x:=image1.height+20;

image1.Canvas.brush.color:=clGray;

pic:=Rect(0,0,image1.width,image1.height);

imagel.Canvas.FillRect(pic);

end;

双击Ttimer构件的ONTIMER事件的处理程序如下:

procedure TQD_About.Timer1Timer(Sender:TObject);

begin

x:=x-1;

if x$#@60;-540 then

x:=imagel.height+20;

image1.Canvas.font.size:=18

image1.Canvas.font.color:=$120000ff;

image1.Canvas.TextOut(80,x,‘江西奇达通讯网络有限公司简介’);

image1.Canvas.font.color:=$1200ffff;

image1.Canvas.font.size:=12;

image1.Canvas.TextOut(80,x+60,‘奇达公司是……’);

image1.Canvas.TextOut(40,x+100, ‘…公司简介内容…’);

end;

　　图标颜色变换法Delphi的Additional页的构件中有一个图形构件(Shape),可以十分方便地处理多种几何图形,例如椭圆、正方形、矩形、圆角矩形等, 这为在某些特定的环境下利用颜色变换来实现动画技术提供了方便。

　　下例在软件封面的某处设定一些TShape构件和一个Ttimer构件,改变图标颜色变化及运行轨迹,形成动感。

　　由于篇幅有限,仅提供部分双击Ttimer构件的ONTIMER事件的处理程序:

procedure TQD_start.Timer1Timer(Sender:TObject);

label hhr;

begin

if (Shape1.brush.color=clRed) then

begin

Shape1.brush.color:=clWhite;

goto hhr;

end;

if (Shape1.brush.color=clWhite) then

begin

Shapel.brush.color:=clRed;

goto hhr;

end;

hhr:end;

以上程序均在Windows95、Delphi2.0环境下调试通过

查看本文来源

基于OpenGL动画设计研究与实现

VIP专区

VIP用户

普通用户

邮件订阅

如果您非常迫切的想了解IT领域最新产品与技术信息，那么订阅至顶网技术邮件将是您的最佳途径之一。

重磅专题

往期文章

Delphi中动画设计

业界热点: