行业应用

开发平台：
VFP

WHAT.PRG：源码内容
							*********************************************************
*
* Name: What
*       什么是SDK
*
**********************************************************
set talk off
set esca off
set curs off
set path to ..
do LoadSDK                    && 装入SDK
priv all like P_*
P_Color='B/W,W+/B,W/W,W+/B,W/B,W+/B,GR/W,W/B,N/W,W+/W'
=DefiWind("Demo",1,2,23,77,"colo &P_Color titl '什么是SDK?'")
=ActiWind("Demo")
do ShowMsg
=ReleWind('Demo')
retu
proc ShowMsg
*--------------
priv Msg
dime Title[3],TitleIco[3],Msg[3,9]
Title[1]="SDK for FoxPro的含义"
Title[2]="SDK for FoxPro的目的"
Title[3]="SDK for FoxPro的构成"
TitleIco[1]="Help.Ico"
TitleIco[2]="HotSpot.Ico"
TitleIco[3]="Key.Ico"
Msg[1,1]="    SDK for FoxPro是一个包含了从图形、图像、"
Msg[1,2]="图表、汉字处理直至图形用户界面函数库的功能强"
Msg[1,3]="大而完善的开发工具包。 SDK系统地弥补了FoxPro"
Msg[1,4]="语言本身存在的缺陷，对FoxPro语言功能作了重要"
Msg[1,5]="的扩展。"
Msg[1,6]="    SDK支持FoxPro 2.5至2.6间的所有版本，包括"
Msg[1,7]="西文版、中文版、单机版、网络版、标准版和扩展"
Msg[1,8]="版， SDK支持上述所有版本的FoxPro编译器，彻底"
Msg[1,9]="支持FoxPro编译器所有的三种.EXE编译模式。"
Msg[2,1]="1.实现从汉字平台向开发平台的扩展，改变汉字平"
Msg[2,2]="  台与应用程序开发脱节的状况。"
Msg[2,3]="2.弥补FoxPro语言本身的缺陷，扩展FoxPro语言的"
Msg[2,4]="  功能，解决开发人员迫切要求解决的技术难题；"
Msg[2,5]="3.实现DOS下应用程序的设备无关性， 使应用程序"
Msg[2,6]="  支持范围最广泛的软硬件环境；"
Msg[2,7]="4.提供一套功能强大的开发工具包，对中文应用程"
Msg[2,8]="  序开发提供高层次的支持， 降低DOS下编程的难"
Msg[2,9]="  度及工作量。"
Msg[3,1]="系统控制：显示方式、提示行及输入法等的控制"
Msg[3,2]="图形处理：类似C/C++的Graphics的图形函数库"
Msg[3,3]="图像处理：常见格式的图像文件的存取及处理"
Msg[3,4]="汉字输出：各种风格汉字的输出及控制"
Msg[3,5]="统计图表：各类常见统计图表的生成及显示"
Msg[3,6]="GUI函数 ：图形化的FoxPro界面函数 "
Msg[3,7]="打印管理：屏幕及报表打印的管理"
Msg[3,8]="工具函数：通用的MIS系统工具"
Msg[3,9]=""
P_X1=C2X(1)
P_Y1=R2Y(1)
P_X2=C2X(wcol("Demo")-1)
P_Y2=R2Y(wrow("Demo"))
=DnRect(P_X1-1,P_Y1-6,P_X2+1,P_Y2+1)
i=1
=SetHZPutMode(_OR)
=SetHZDirect(0)
=AutoSize(.f.)
do whil .t.
   =ShowBmpIn(P_X1,P_Y1-5,P_X2,P_Y2,"_Marble.Bmp")
   =SetHZFont(2)
   =SetASCIIFont(4)
   =SetHZSize(36,36,1)
   =SetHZColor(5)
   =ShowIco(P_X1+80,P_Y1+5,TitleIco[i])
   =ShowMsgStr(P_X1+120,P_Y1+5,left(Title[i],14))
   =SetHZColor(6)
   =ShowMsgStr(P_X1+120+270,P_Y1,subs(Title[i],15))
   =SetHZFont(0)
   =SetASCIIFont(1)
   =SetHZSize(24,24,0)
   =SetHZColor(6)
   for j=1 to 9
     =ShowMsgStr(P_X1+25,P_Y1+15+j*35,Msg[i,j])
   endf
   if inke(30)=27
      exit
   endi
   i=iif(i<3,i+1,1)
endd
retu
func ShowMsgStr
*--------------
para X1,Y1,Str
=SetHZStyle(_Shadow)
=SetHZShadow(1,1,255)
=ShowHZ(X1,Y1,Str)
=SetHZShadow(4,1,0)
=ShowHZ(X1+1,Y1+1,Str)
retu

						