行业应用

开发平台：

VFP

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","<S. 系统","SDK.ICO")
=defipad(5,20,"Tool","MainMenu","<T. 工具","NOTE.ICO")
=defipad(9,5,"SetUp","MainMenu","<O. 安装","Setup.ICO")
on sele pad Sys  of MainMenu do SysProc
on sele pad Tool of MainMenu do ToolProc
do _ActiMenu in MisTool with 'MainMenu'
=DeacMenu('MainMenu')
=ReleMenu('MainMenu')
retu
proc SysProc
*-----------------------------------------------------------------
priv Color
Color='B/W,W+/B,W/W,W+/B,W/B,W+/B,GR/W,W/B,N/W,W+/W'
=defiwind("Sys",4,20,12,60,"colo (Color) titl '系统窗口'")
=actiwind("Sys")
=DnRect(C2X(1)-2,R2Y(1)-2,C2X(38)+2,R2Y(7)+2)
=SetColor(7)
=Rect(C2X(1)-1,R2Y(1)-1,C2X(38)+1,R2Y(7)+1)
=SetFillStyle(1,15)
=DrawBar(C2X(1),R2Y(1),C2X(38),R2Y(7))
Color='N+/W*,N/W*,GR/W*,GR+/W,N/W,W+/B,GR/W*,N+/N,GR+/B,R+/B'
=DefiMenu("Sys",2,0,4,50,"colo &Color")
=defipad(2,4, "Ver", "Sys", "<V. 版本","SDK.ICO")
=defipad(2,16,"Help","Sys", "<H. 帮助","HELP.ICO")
on sele pad Ver  of Sys do ToolProc
do _ActiMenu in MisTool with 'Sys'
=DeacMenu('Sys')
=ReleMenu('Sys')
=relewind("Sys")
retu
proc ToolProc
*-----------------------------------------------------------------
priv Color
Color='B/W,W+/B,W/W,W+/B,W/B,W+/B,GR/W,W/B,N/W,W+/W'
=defiwind("Tool",6,26,14,55,"colo (Color) titl '工具窗口'")
=actiwind("Tool")
Color='N+/W,N/W,GR/W,GR+/W,N/W,W+/B,GR/W,N+/N,GR+/B,R+/B'
=DefiMenu("Tool",2,0,4,50,"colo &Color")
=defipad(2,4, "Ver", "Tool", "<P. 图像","PAINT.ICO")
=defipad(2,16,"Help","Tool", "<C. 图表","CHART.ICO")
on sele pad Ver  of Tool do HZ
on sele pad Help of Tool do Chart
do _ActiMenu in MisTool with 'Tool'
=DeacMenu('Tool')
=ReleMenu('Tool')
=relewind("Tool")
retu

						