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

********************************************************* 
* 
* Name: BmpShow 
*       此程序演示图像无级缩放 
* 
********************************************************** 
set talk off 
set esca off 
set path to .. 
do LoadSDK                    && 装入SDK 
 
if !SetDmode(10) 
   do _Info in MisTool with; 
      "无法进入640*480*256色模式",; 
      "只能在16色模式下抖动显示256色图像" 
endi     
 
=AutoSize(.t.) 
set colo to w/n 
 
set curs off 
for i=0 to 150 step 5 
   =ShowBmpin(200-i,200-i,250+i,250+i,"256_1.bmp") 
endf 
wait '' 
 
=Cls() 
for i=50 to 400 step 10 
   =ShowBmpin(0,0,i,i,"256_1.bmp") 
endf 
wait '' 
 
=Cls() 
for i=50 to 400 step 10 
   =ShowBmpin(0,0,i,400,"256_1.bmp") 
endf 
wait '' 
set curs on 
retu