www.pudn.com > jq_transfile.ARJ > IMAGE1.PRG

********************************************************** 
* 
* Name: ImageDemo 
*       此程序演示用SDK函数来做一个简单动画，演示一个图符从左到右移动 
* 
********************************************************** 
set path to .. 
set talk off 
set esca off 
set curs off 
do LoadSDK                    && 装入SDK 
 
=RefreshScr()                 && 强制屏幕刷新 
=SetFillStyle(1,0)            && 设置填充模式 
=DrawBar(0,0,639,449)         && 清除屏幕 
 
=SetPutMode(_XOR)               && 设置XOR作图方式 
=ShowICO(0,200,"Help.ICO")      && 显示图符 
Img=GetImage(0,200,31,200+31)   && 保存Img 
=PutImage(0,200,Img)            && 在XOR方式下重画Img（擦除Img） 
 
i=0 
do whil last()!=27 
   =PutImage(i,200,Img)         && 显示Img 
   =inke(0.000000001)           && 延时 
   =PutImage(i,200,Img)         && 在XOR方式下重画Img（擦除Img） 
   i=iif(i+7>600,0,i+7) 
endd 
 
=ReleImage(Img) 
=SetPutMode(_COPY) 
retu