Extraer el back color de un objeto textbox en formato RGB

[Douglas Sánchez]

Hola que tal foro, saludes a todos.

Tengo un textbox y me gustaria saber si se puede obtener el backcolor de este en este formato.

RGB(202,255,202)

El problema es que si yo hago esto:

Replace Color1 with thisform.text1.backcolor

este me almacena asi:  13303754

Hay Alguna forma de hacerlo directamente en formgate RGB.

Gracias de antemanos.

Douglas

[Ricardo Pina]

Hola Douglas

 

Quizas esta funcion que alguna vez nos presento Victor Espina te sirva

 

FUNCTION ColorToRGB(pnColor)
*
LOCAL oRGB
oRGB=CREATEOBJECT("Custom")
oRGB.AddProperty("Red",0)
oRGB.AddProperty("Green",0)
oRGB.AddProperty("Blue",0)
LOCAL nExp,nBase,nRest,nValue
LOCAL ARRAY aValues[3]
nRest = pnColor
FOR nExp=2 TO 0 STEP -1
nBase = 256 ^ nExp
nValue = INT(nRest / MAX(1,nBase) )
aValues[nExp + 1]=nValue
nRest = nRest - (nValue * nBase)
ENDFOR
oRGB.Red = aValues[1]
oRGB.Green = aValues[2]
oRGB.Blue = aValues[3]
RETURN oRGB
*
ENDFUNC

 

Saludos

--
 
 

--

            

                   Ricardo Pina

Desarrollo y Servicios Informáticos

                  Profesionales
               www.dsip.com.ar

 

 

[Douglas Sánchez]

Muchas gracias Ricardo, creo que es la unica manera.

Saludes

Douglas

[Luis Maria Guayan]

-- Convertir un número de color devuelto por GetColor() a formato RGB(nR,nG,nB) --
http://www.portalfox.com/article.php?sid=26

Luis María Guayán
Tucumán, Argentina
_________________________
http://www.PortalFox.com
Nada corre como un zorro
_________________________

--
 
 

[Douglas Sánchez]

Gracias LMG lo tomaare en cuenta se ve genial tambien. 

Saludes

Douglas

--
 
 

[FidelJ]

Douglas:

La función que remite Luis María Guayán funciona perfectamente. Pero me surge una curiosidad que tal vez quieras responder: por qué no te sirve guardar el número de color?

Disculpa mi ignorancia.

Fidel

[miltonvas]

yo uso getcolor() y guardo el color de fondo en una tabla de parametros, de esa forma el usuario puede escoger la combinacion que desee