Xailer & OZ Software

Estoy haciendo pruebas de impresión con TexOut y cuando quiero cambiar de
color, pongo por ejemplo:
:TextOut(150,linea,Texto1,,CLR_RED)
Después de este texto, imprimo más columnas, y tengo que indicar el color,
ya que de lo contrario me lo imprime en negro.
:TextOut(300,linea,Texto2,,CLR_RED)
:TextOut(435,linea,Texto3,,CLR_RED)
¿Se puede indicar de alguna forma el color para que todo lo que imprima a
continuación sea en el color indicado en el primer TexOut, sin tener que
ponerlo otra vez?
Gracias y un saludo
Francisco Martínez
pacoelche@hotmail.com

Francisco,
CLASS tCanvas FROM xCanvas
PUBLIC:
DATA nClrText
METHOD TextOut( nX, nY, cText, nWidth, nColor )
ENDCLASS
METHOD TextOut( nX, nY, cText, nWidth, nColor ) CLASS tCanvas
DEFAULT nColor TO ::nClrText
RETURN Super:TextOut( nX, nY, cText, nWidth, nColor ) CLASS tCanvas
Saludos,
José Luis Capel
PD: no lo he probado. Supongo que funcionará
"Francisco Martí­nez Garcí­a" <pacoelche@hotmail.com> escribió en el mensaje
de noticias news:[email=467171e5@ozsrv2.ozlan.local...]467171e5@ozsrv2.ozlan.local...[/email]
> Estoy haciendo pruebas de impresión con TexOut y cuando quiero cambiar de
> color, pongo por ejemplo:
>
> :TextOut(150,linea,Texto1,,CLR_RED)
>
> Después de este texto, imprimo más columnas, y tengo que indicar el color,
> ya que de lo contrario me lo imprime en negro.
>
> :TextOut(300,linea,Texto2,,CLR_RED)
> :TextOut(435,linea,Texto3,,CLR_RED)
>
> ¿Se puede indicar de alguna forma el color para que todo lo que imprima a
> continuación sea en el color indicado en el primer TexOut, sin tener que
> ponerlo otra vez?
>
> Gracias y un saludo
> Francisco Martí­nez
> pacoelche@hotmail.com
>