Delphi中动画设计(2)_Deiphi多媒体编程_Deiphi_编程开发

Delphi中动画设计(2)

日期：2008-10-20 22:12:26　　　　来源：

Delphi中动画设计。n

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环境下调试通过

　[1]

delphi创建桌面快捷方式

◎→	本类最新
在delphi中使用flash控件在Delphi中实现动态字幕在Delphi下用Direct Sound 实现混在Delphi里播放Flash 循环播放音乐用Delphi 5.0编写在线播放器生成一个波文件

◎→相关资源
C语言入门视频教程 C#编程WinForm入门视频 Asp.net入门视频教程下载 VC++编程视频教程下载 VB窗体文章 HTML入门教程 Deiphi实例教程 Deiphi窗体文章 Deiphi数据库编程 Deiphi网络编程 Deiphi图形图象文章 Deiphi系统文件

◎→	热门资源
九赢广告联盟的优点和缺点通过IP反查域名用VB的Printer对象编写打印程序用DELPHI通过写注册表来实现建立网络积件再思考。（其实也只是胡 AfxMessageBox参数详解顶级黑客年收入超千万元!