www.pudn.com > jq_transfile.ARJ > 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