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