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

********************************************************* 
* 
* Name: HZ 
*       此程序演示汉字显示 
* 
********************************************************** 
set talk off 
set esca off 
set path to .. 
set curs off 
do LoadSDK                    && 装入SDK 
 
priv all like P_* 
Demo_X1=21 
Demo_Y1=40 
Demo_X2=618 
Demo_Y2=408 
 
P_Color='B/W,W+/B,W/W,W+/BG,W/B,W+/B,GR/W,W/B,N/W,W+/W' 
=DefiWind("HZ",1,2,22,77,"colo &P_Color titl '汉字显示演示'") 
=ActiWind("HZ") 
=DnRect(Demo_X1-1,Demo_Y1-1,Demo_X2+1,Demo_Y2+1) 
 
=SetPutMode(0) 
=AutoSize(.f.) 
do whil .t. 
	do HZDemos 
	if last()=27 
		exit 
	endi 
endd 
 
=SetPutMode(0) 
=ReleWind("HZ") 
set curs on 
retu 
 
 
func HZDemos 
 
=DnRect(Demo_X1-1,Demo_Y1-1,Demo_X2+1,Demo_Y2+1) 
=SetFillStyle(1,7) 
=DrawBar(Demo_X1,Demo_Y1,Demo_X2,Demo_Y2) 
 
=SetHZPutMode(_OR) 
=SetHZDirect(0) 
=SetHzSize(144,144,0) 
=SetHZColor(1) 
=SetHZStyle(_OUTLINE) 
do ShowDemoHZ 
if inke(2)=27 
	retu 
endi 
 
=SetHZColor(3) 
=SetHZStyle(_NORMAL) 
do ShowDemoHZ 
=SetHZColor(1) 
=SetHZStyle(_OUTLINE) 
do ShowDemoHZ 
if inke(2)=27 
	retu 
endi 
 
=DrawBar(Demo_X1,Demo_Y1,Demo_X2,Demo_Y2) 
=SetHZColor(11) 
=SetHZStyle(_OUTLINE+_SHADOW) 
=SetHZShadow(4,3,8) 
do ShowDemoHZ 
if inke(2)=27 
	retu 
endi 
 
=SetHZColor(3) 
=SetHZStyle(_SHADOW) 
do ShowDemoHZ 
if inke(2)=27 
	retu 
endi 
 
 
=ShowBmpin(Demo_X1,Demo_Y1,Demo_X2,Demo_Y2,"_Marble.bmp") 
 
=SetHZColor(GetMaxColor()) 
=SetHZStyle(_OUTLINE+_SHADOW) 
=SetHZShadow(4,2,0) 
do ShowDemoHZ 
if inke(3)=27 
	retu 
endi 
 
=SetHZColor(3) 
=SetHZStyle(_SHADOW) 
do ShowDemoHZ 
if inke(3)=27 
	retu 
endi 
 
=SetHZColor(1) 
=SetHZSize(300,372,1) 
=SetHZStyle(_SHADOW) 
=SetHZShadow(4,4,0) 
=ShowHZ(Demo_X1,Demo_Y1,"汉字") 
if inke(4)=27 
	retu 
endi 
 
=SetFillStyle(1,0) 
=DrawBar(Demo_X1,Demo_Y1,Demo_X2,Demo_Y2) 
=SetHZColor(GetMaxColor()) 
=SetHZStyle(_NORMAL) 
=ShowHZ(Demo_X1,Demo_Y1,"汉") 
=SetPutMode(_AND) 
=ShowBmpin(Demo_X1,Demo_Y1,Demo_X1+372,Demo_Y2,"_Marble.bmp") 
=ShowHZ(Demo_X1+301,Demo_Y1,"字") 
=ShowBmpin(Demo_X1+301,Demo_Y1,Demo_X2,Demo_Y2,"_Leave.bmp") 
if inke(5)=27 
	retu 
endi 
=ShowBmpin(Demo_X1,Demo_Y1,Demo_X2,Demo_Y2,"_Castle.bmp") 
=SetHZStyle(_OUTLINE) 
=ShowHZ(Demo_X1,Demo_Y1,"汉字") 
if inke(5)=27 
	retu 
endi 
 
=DrawBar(Demo_X1,Demo_Y1,Demo_X2,Demo_Y2) 
=SetHZSize(144,144,0) 
=SetHZStyle(_NORMAL) 
do ShowDemoHZ 
=ShowBmpin(Demo_X1+10,Demo_Y1+30,Demo_X1+300,Demo_Y1+345,"_Leave.bmp") 
=ShowBmpin(Demo_X1+301,Demo_Y1+30,Demo_X2,Demo_Y1+345,"_Marble.bmp") 
if inke(5)=27 
	retu 
endi 
=SetHZStyle(_OUTLINE) 
=SetHZColor(GetMaxColor()) 
do ShowDemoHZ 
=SetPutMode(_OR) 
=ShowBmpin(Demo_X1+300,Demo_Y1,Demo_X2,Demo_Y2,"_Flock.bmp") 
if inke(5)=27 
	retu 
endi 
 
*=SetColor(0) 
=DrawBar(Demo_X1,Demo_Y1,Demo_X2,Demo_Y2) 
=SetHZSize(300,372,0) 
=SetHZColor(GetMaxColor()) 
=SetHZStyle(_NORMAL) 
=ShowHZ(Demo_X1,Demo_Y1,"汉字") 
=SetPutMode(_AND) 
=ShowBmpin(Demo_X1,Demo_Y1,Demo_X2,Demo_Y1+187,"_Marble.bmp") 
=ShowBmpin(Demo_X1,Demo_Y1+187,Demo_X2,Demo_Y2,"_Castle.bmp") 
if inke(2)=27 
	retu 
endi 
=SetPutMode(_OR) 
=SetHZStyle(_OUTLINE) 
=SetHZColor(GetMaxColor()) 
=ShowHZ(Demo_X1,Demo_Y1,"汉字") 
=ShowBmpin(Demo_X1,Demo_Y1,Demo_X2,Demo_Y2,"9516.bmp") 
*=ShowBmpin(Demo_X1,Demo_Y1,Demo_X2,Demo_Y2,"Novell.bmp") 
=inke(5) 
=SetPutMode(_COPY) 
retu 
 
 
func ShowDemoHZ 
priv pcStyle 
 
pcStyle=GetHZStyle() 
=SetHZFont(0) 
=SetHZStyle(_SCroll+pcStyle) 
=SetHZScroll(0) 
=ShowHZ(Demo_X1+10,Demo_Y1+30,"希望") 
=SetHZFont(1) 
=SetHZScroll(1) 
=ShowHZ(Demo_X1+300,Demo_Y1+30,"希望") 
=SetHZFont(2) 
=SetHZScroll(2) 
=ShowHZ(Demo_X1+10,Demo_Y1+200,"希望") 
=SetHZFont(3) 
=SetHZScroll(3) 
=ShowHZ(Demo_X1+300,Demo_Y1+200,"希望") 
=SetHZStyle(pcStyle) 
retu