行业应用

开发平台：

VFP

COLOR.PRG：源码内容

							set path to ..
do LoadSDK
priv all like p*
dime pcColorName(8)
pcColorName(1)="W"
pcColorName(2)="BG"
pcColorName(3)="G"
pcColorName(4)="B"
pcColorName(5)="GR"
pcColorName(6)="RB"
pcColorName(7)="R"
pcColorName(8)="N"
=DefiWind("Color",2,10,20,70,"colo b/w,,,w+/b titl 'FOXPRO 颜色表'")
=ActiWind("Color")
for pnI=1 to 8
   frColor=pcColorName(pnI)
   for pnJ=1 to 8
      BkColor=pcColorName(pnJ)
      ColorPair=frColor+"/"+BkColor
      @pnI,(pnJ-1)*7+1 say ColorPair colo (ColorPair) size 1,8
      BkColor=pcColorName(pnJ)+"*"
      ColorPair=frColor+"/"+BkColor
      @pnI+8,(pnJ-1)*7+1 say ColorPair colo (ColorPair) size 1,8
   endfor
endfor
do while inkey(0)#27
enddo
for pnI=1 to 8
   frColor=pcColorName(pnI)+"+"
   for pnJ=1 to 8
      BkColor=pcColorName(pnJ)
      ColorPair=frColor+"/"+BkColor
      @pnI,(pnJ-1)*7+1 say ColorPair colo (ColorPair) size 1,8
      BkColor=pcColorName(pnJ)+"*"
      ColorPair=frColor+"/"+BkColor
      @pnI+8,(pnJ-1)*7+1 say ColorPair colo (ColorPair) size 1,8
   endfor
endfor
do while inkey(0)#27
enddo
=ReleWind("Color")
retu

						