行业应用

开发平台：

VFP

DEMO.PRG：源码内容

							*********************************************************
*
* Name: Demos
*       此程序演示此目录下的部分.prg程序
*
**********************************************************
set talk off
set esca off
set sysm off
set path to ..
do LoadSDK                    && 装入SDK
clea
=ShowBmp(0,0,"Demo.bmp")
priv Color
Color='W/BG,N/BG,W+/BG,GR+/W,N/W,W+/GR,W+/BG,N+/N,GR+/B,R+/B'
=DefiMenu("DemoMenu",5,1,16,75,"colo (Color)")
=defipad(5,5,  "What",    "DemoMenu","<A SDK???", "SDK.ICO")
=defipad(5,20, "BGI",     "DemoMenu","<B 图形函数","Graphic.ICO")
=defipad(5,35, "Image3",  "DemoMenu","<P 图像函数","Paint.ICO")
=defipad(5,50, "Image2",  "DemoMenu","<S 图形特技","Critter.ICO")
=defipad(5,65, "HZ",      "DemoMenu","<Z 汉字显示","HZ.ICO")
=defipad(9,5,  "Menu",    "DemoMenu","<M 菜单函数","DLLDemo.ICO")
=defipad(9,20, "Ctrl3",   "DemoMenu","<G GUI控制", "Wins1.ICO")
=defipad(9,35, "Chart",   "DemoMenu","<C 图表函数","Chart1.ICO")
=defipad(9,50, "SDKMenu1","DemoMenu","<E 菜单生成器","HotSpot.ICO")
=defipad(9,65, "SDKScre1","DemoMenu","<I 界面生成器","HotSpot.ICO")
=defipad(13,5, "Rpt2",    "DemoMenu","<R 报表工具","ToPrn.ICO")
=defipad(13,20,"Brow1",   "DemoMenu","<W Brow工具","Note1.ICO")
=defipad(13,35,"Help1",   "DemoMenu","<H 帮助工具","Help.ICO")
=defipad(13,50,"Stuff",   "DemoMenu","<E 应用实例","Pad1.ICO")
on sele menu DemoMenu do DemoProc
do _ActiMenu in MisTool with 'DemoMenu'
=DeacMenu('DemoMenu')
=ReleMenu('DemoMenu')
=cls()
set sysm to defa
retu
proc DemoProc
*-----------------------------------------------------------------
priv pProc,pImg
pImg=GetImage(0,0,GetMaxx(),GetMaxy())
do case
case pad()=="WHAT"
	do What
case pad()=="BGI"
	do Bgi
case pad()=="IMAGE3"
	do Image3
case pad()=="IMAGE2"
	do Image2
case pad()=="HZ"
	do HZ
case pad()=="MENU"
	do Menu
case pad()=="CTRL3"
	do Ctrl3
case pad()=="CHART"
	do Chart
case pad()=="RPT2"
	do Rpt2
case pad()=="SDKMENU1"
	do SDKMenu1.mpr
case pad()=="SDKSCRE1"
	do SDKScre1.spr
case pad()=="BROW1"
	do Brow1
case pad()=="HELP1"
	do Help1
case pad()=="STUFF"
	do Stuff
endc	
=PutImage(0,0,pImg)
=ReleImage(pImg)
retu

						