In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.

Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.

cambiar color en TextOut

Foro público de Xailer en español
pacoelche
Posts: 137
Joined: Tue Jul 11, 2006 10:32 am

cambiar color en TextOut

Postby pacoelche » Wed Apr 02, 2014 10:48 am

Quisiera cambiar el color en un TextOut, pero utilizando una variable, no indicándo directamente el color.
Si pongo :TextOut(100,100,"Prueba",,CLR_RED) me imprime en rojo, pero si pongo:
nColor:="CLR_RED"
:TextOut(100,100,"Prueba,,nColor) me imprime en el color por omisión NEGRO.
¿Como puedo hacer, en este segundo caso, para que asuma el color de la variable nColor.
Mil gracias anticipadas
--
Claudio[1]
Posts: 59
Joined: Fri May 01, 2009 5:40 am

cambiar color en TextOut

Postby Claudio[1] » Wed Apr 02, 2014 4:47 pm

Hola Francisco
Cuando escribis CLR_RED estás indicando al compilador que utilice la
definicion del archivo Colors.ch que dice:
#define CLR_RED 0x000080
O sea, que en realidad lo que pasas a la TextOut es el número 0x000080,
que esta en hexadecimal y es el número 128 en decimal
En el formato RGB es el color Rojo.
Vos le estas pasando el string "CLR_RED"
Deberí­as pasarle el numero de color rgb que podés calcularlo con:
(( r + ( g * 256 ) + ( b * 256 * 256 ) ))
Saludos.
El 02/04/2014 05:48 a.m., Francisco Martí­nez Garcí­a escribió:
> Quisiera cambiar el color en un TextOut, pero utilizando una variable,
> no indicándo directamente el color.
> Si pongo :TextOut(100,100,"Prueba",,CLR_RED) me imprime en rojo, pero si
> pongo:
> nColor:="CLR_RED"
> :TextOut(100,100,"Prueba,,nColor)me imprime en el color por omisión NEGRO.
> ¿Como puedo hacer, en este segundo caso, para que asuma el color de la
> variable nColor.
> Mil gracias anticipadas
---
Este mensaje no contiene virus ni malware porque la protección de avast! Antivirus está activa.
http://www.avast.com
pacoelche
Posts: 137
Joined: Tue Jul 11, 2006 10:32 am

cambiar color en TextOut

Postby pacoelche » Thu Apr 03, 2014 8:31 am

Gracias por la aclaración.
Ahora he conseguido lo que querí­a.
Un saludo
Francisco Martí­nez
"Contacto en Xailer" <contacto@especta.com.ar> escribió en el mensaje news:533c231d$1@svctag-j7w3v3j....
Hola Francisco
Cuando escribis CLR_RED estás indicando al compilador que utilice la
definicion del archivo Colors.ch que dice:
#define CLR_RED 0x000080
O sea, que en realidad lo que pasas a la TextOut es el número 0x000080,
que esta en hexadecimal y es el número 128 en decimal
En el formato RGB es el color Rojo.
Vos le estas pasando el string "CLR_RED"
Deberí­as pasarle el numero de color rgb que podés calcularlo con:
(( r + ( g * 256 ) + ( b * 256 * 256 ) ))
Saludos.
El 02/04/2014 05:48 a.m., Francisco Martí­nez Garcí­a escribió:
> Quisiera cambiar el color en un TextOut, pero utilizando una variable,
> no indicándo directamente el color.
> Si pongo :TextOut(100,100,"Prueba",,CLR_RED) me imprime en rojo, pero si
> pongo:
> nColor:="CLR_RED"
> :TextOut(100,100,"Prueba,,nColor)me imprime en el color por omisión NEGRO.
> ¿Como puedo hacer, en este segundo caso, para que asuma el color de la
> variable nColor.
> Mil gracias anticipadas
---
Este mensaje no contiene virus ni malware porque la protección de avast! Antivirus está activa.
http://www.avast.com
--

Return to “Spanish”