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
--
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.
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
-
Claudio[1]
- Mensajes: 59
- Registrado: Vie May 01, 2009 5:40 am
cambiar color en TextOut
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
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
cambiar color en TextOut
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$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
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
--
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$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
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
--