Convert Color to HTML

Submitted by Sergey on January 1, 2008 - 17:31

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

lnRGBColor = RGB(64,128,255)
loColor = Color2Html(lnRGBColor)
? lnRGBColor, loColor.cHTMLcolor
? loColor.nR, loColor.nG, loColor.nB
RETURN 
* Converts color number to HTML color format
FUNCTION Color2Html
LPARAMETERS tnColor
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, "cHTMLcolor", STRTRAN("#" + ;
		TRANSFORM(loColor.nR, "@0") +   ; 
		TRANSFORM(loColor.nG, "@0") +   ;
		TRANSFORM(loColor.nB, "@0"), "0x000000", "" ))
RETURN loColor

See Also Convert Color to RGB

No votes yet