>*------------------------------------------------ >* FUNCTION Col2RGB(tnColor) >*------------------------------------------------ >* USE: Col2RGB(1547) >* RETURN: Caracter -> "RGB(nR, nG, nB)" >*------------------------------------------------ >FUNCTION Col2RGB(tnColor) > LOCAL lcRGB, ln > lcRGB = "RGB(" > FOR ln = 1 TO 3 > lcRGB = lcRGB+TRAN(tnColor%256,"999")+IIF(ln=3, "", ",") > tnColor = INT(tnColor/256) > ENDFOR > lcRGB = lcRGB+")" > RETURN lcRGB >ENDFUNC >*------------------------------------------------- >>