用CANVAS实现动画显示

时间:2010-01-28 08:41:09  来源:第二电脑网  作者:第二电脑网

  第二电脑网导读:e属性为false;imgdest则作为目的位图进行动画显示,高度和宽度均设为40。计时器的时间间隔设为100毫秒。procedure TForm1.Timer1Timer(Sender: TObject);begin  imgdest.canvas.copyr...
  正文:下面的位图表示一只羊旋转的动作,该动作由8个占40×40点阵的状态组成,下面的定时器时间的代码就是要让小羊动起来。

    代码中imgdest和imgsource为两个Image 控件的名字。在imgdest中装入了上面提到的位图作为源,其Visible属性为false;imgdest则作为目的位图进行动画显示,高度和宽度均设为40。计时器的时间间隔设为100毫秒。


procedure TForm1.Timer1Timer(Sender: TObject);
begin
  imgdest.canvas.copyrect(rect(0,0,40,40)
  imgsource.canvas.rect(tag*40,0,tag*40+40,40));
  if tag=7 then {动作状态编号从零开始,一共有8个状态}
  tag:=0
  else
  tag:=tag+1; {用表单的tag属性表示动作状态,初始值为0}
  imgdest.refresh; {刷新图像}
end;
用CANVAS实现动画显示》由第二电脑网原创提供,转载请注明:http://www.002pc.com/master/College/Language/Delphi/12547.html


关键字:

关于《用CANVAS实现动画显示》文章的评论

站内搜索: 高级搜索

热门搜索: Windows style 系统 tr IP QQ CPU 安装 function 注册 if td