Home » Pages » Visual Foxpro

Convert Color to RGB

By Sergey - Posted on January 1st, 2008
Tagged:

This is sample code. Add error handling and adjust to your requirements as necessary.

&& Converts color number into RGB components and RGB() string  
FUNCTION Color2RGB
LPARAMETERS tnColor
&& nColor = nR + nG*256 + nB*256*256
 
LOCAL loColor 
loColor = CREATEOBJECT("Empty") 
ADDPROPERTY(loColor, "nR", BITAND(tnColor, 0xFF))
ADDPROPERTY(loColor, "nG", BITAND(BITRSHIFT(tnColor, 8), 0xFF)) 
ADDPROPERTY(loColor, "nB", BITAND(BITRSHIFT(tnColor, 16), 0xFF))
ADDPROPERTY(loColor, "cRGB", "RGB(" + ;
		TRANSFORM(loColor.nR) + "," +  ; 
		TRANSFORM(loColor.nG) + "," +  ;
		TRANSFORM(loColor.nB) + ")")
RETURN loColor
 
&&-----------------------------------------------
&& Example
loColor = Color2RGB( RGB(64,128,255) ) 
? loColor.cRGB  
? loColor.nR, loColor.nG, loColor.nB
RETURN

See Also Convert Color to HTML