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

********************************************************* 
* 
* Name: Menu 
*       此程序演示菜单函数 
* 
********************************************************** 
set talk off 
set esca off 
set path to .. 
do LoadSDK                    && 装入SDK 
 
clea 
Color='B/W,W+/B,W/W,W+/B,W/B,W+/B,W+/W,W/B,N/W,W+/W' 
=defiwind("WT",4,2,15,75,"colo &Color titl '演示窗口1'") 
=actiwind("WT") 
=ShowBMPIn(C2X(0),R2Y(1),C2X(wcol("WT")),R2Y(wrow("WT")),"_Castle.bmp") 
 
Color='BG/W,N/W,GR/W,GR+/W,N+/W,W+/B,W+/W,N+/N,GR+/B,R+/B' 
=DefiMenu("MAINMENU",0,0,0,50,"colo &Color") 
defi pad SysInfo  of MAINMENU prom '\