Convert Color to RGB
By Sergey - Posted on January 1st, 2008
| 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
Recent comments
11 hours 4 min ago
1 week 22 hours ago
4 weeks 14 hours ago
5 weeks 5 hours ago
5 weeks 5 hours ago
7 weeks 4 days ago
8 weeks 1 day ago
8 weeks 1 day ago
8 weeks 4 days ago
8 weeks 4 days ago