22 de marzo de 2000

Convertir un número de color devuelto por GetColor() a formato RGB(nR,nG,nB)

Rutina que convierte el valor numerico retornado por GETCOLOR() a formato RGB(,,).
*------------------------------------------------
FUNCTION _Col2RGB(tnColor)
*------------------------------------------------
* Pasa un número de color a formato RGB.
* USO: _Col2RGB(1547)
* RETORNA: Caracter - "RGB(nR, nG, nB)" 
*------------------------------------------------
  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
Luis María Guayán

No hay comentarios. :

Publicar un comentario