|
下面的位图表示一只羊旋转的动作，该动作由8个占40×40点阵的状态组成，下面的定时器时间的代码就是要让小羊动起来。NBmLinux联盟
NBmLinux联盟
代码中imgdest和imgsource为两个Image 控件的名字。在imgdest中装入了上面提到的位图作为源，其Visible属性为false；imgdest则作为目的位图进行动画显示，高度和宽度均设为40。计时器的时间间隔设为100毫秒。NBmLinux联盟
NBmLinux联盟
NBmLinux联盟
procedure TForm1.Timer1Timer(Sender: TObject);NBmLinux联盟
beginNBmLinux联盟
imgdest.canvas.copyrect(rect(0,0,40,40)NBmLinux联盟
imgsource.canvas.rect(tag*40,0,tag*40+40,40));NBmLinux联盟
if tag=7 then {动作状态编号从零开始，一共有8个状态}NBmLinux联盟
tag:=0NBmLinux联盟
elseNBmLinux联盟
tag:=tag+1; {用表单的tag属性表示动作状态，初始值为0}NBmLinux联盟
imgdest.refresh; {刷新图像}NBmLinux联盟
end;NBmLinux联盟
|
|
|
