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

********************************************************* 
* 
* Name: IcoMenu 
*       此程序演示图符菜单函数 
* 
********************************************************** 
set talk off 
set esca off 
set path to .. 
do LoadSDK                    && 装入SDK 
 
clea 
=ShowBmp(0,0,"9516.bmp") 
priv Color 
Color='W/BG,N/BG,W+/BG,GR+/W,N/W,W+/GR,GR/BG,N+/N,GR+/B,R+/B' 
=DefiMenu("MainMenu",5,1,11,30,"colo (Color)") 
=defipad(5,5, "Sys", "MainMenu","\