VFP 把GETCOLOR(）反回的颜色号 分解为 GRB色号的算法。GETCOLOR(）、RGB()

*lnColor 颜色号

local lnColor
LOCAL lnR,lnG,lnB,lcrvalue
lnColor = 0
lnColor = GETCOLOR(lnColor)

lnR=BITAND(tnColor, 255)
lnG=BitRShift(BitLShift(tnColor, 16), 24)
lnB=BitRShift(tnColor, 16)
lcrvalue = "rgb(" + str(lnR,3) + ","+ str(lnG,3) +","+str(lnB,3)+")"
retu lcrvalue 

RGB模式反相计算公式：

R = 255-R
G = 255-G
B = 255-B

* RGB反相

Lparameters  tncolor
Local lncolor
Local lnr,lng,lnb,lnrvalue

If Vartype(tncolor) = "N"  And Between(tncolor ,  Rgb(0,0,0) , Rgb(255,255,255))
	lncolor = tncolor

Else
	Return -1
Endif

*lnColor = GETCOLOR(lnColor)

* RGB 反相
lnr = 255 - Bitand(lncolor, 255)
lng = 255 - Bitrshift(Bitlshift(lncolor, 16), 24)
lnb = 255 - Bitrshift(lncolor, 16)
*lcrvalue = "rgb(" + str(lnR,3) + ","+ str(lnG,3) +","+str(lnB,3)+")"

lnrvalue = Rgb(lnr,lng,lnb)

Retu lnrvalue