Ignacio,
Solucionado.
Gracias.
Saludos
Jose A. Suarez
Ignacio Ortiz de Zúñiga escribió:
> José Alfonso,
>
> Visto el problema. Te mando el módulo corregido con este Email.
>
> Gracias y un saludo,
>
> "Jose Alfonso Suárez Moreno" <
jasm.nospam@chochurro.com> escribió en el
> mensaje news:[email=
4374a501@ozsrvnegro.ozlan.local...]
4374a501@ozsrvnegro.ozlan.local...[/email]
>
>>Ignacio,
>>
>>Me temo que el problema está al asignar el color CLR_BALCK.
>>
>>Adjunto ejemplo autocontenido.
>>
>>Saludos,
>>
>>Jose A. Suarez
>>
>>Ignacio Ortiz de Zúñiga escribió:
>>
>>>José Alfonso,
>>>
>>>Acabo de modificar el ejemplo PrinterInfo para que pinte un Texto en
>>>amarillo después de pintar en azul y funciona correctamente:
>>>
>>>[Form1.pg: linea 180 aprox]
>>>
>>>For n := 10 to :TextLines()
>>> :TextOut( 4, n, "Xailer printing demo, line: " + ltrim( str( n ) ),30,
>>>CLR_BLUE)
>>>Next
>>>:nTextAlignment:=taLEFT
>>>:nMapMode := mmHIMETRICS
>>>:TextOut( 200, 200, "Esta linea en amarillo", 30, CLR_YELLOW)
>>>Saludos,
>>>
>>>"Jose Alfonso Suárez Moreno" <
jasm.nospam@chochurro.com
>>><mailto:
jasm.nospam@chochurro.com>> escribió en el mensaje
>>>news:[email=
43749588@ozsrvnegro.ozlan.local...]
43749588@ozsrvnegro.ozlan.local...[/email]
>>> > Con la PR6 tambien ocurre.
>>> >
>>> >
>>> >
>>> > Jose Alfonso Suárez Moreno escribió:
>>> >> Hola,
>>> >>
>>> >> No se si esto es así, pero me sucede que cuando asigno color a una
>>>linea
>>> >> de texto en tCanvas con:
>>> >>
>>> >> :TextOut( 100, 100, "ESTA LINEA SADRA EN AZUL", 830, CLR_HBLUE )
>>> >>
>>> >> a partir de ese momento TODO el texto se pone en azul aunque depués
>>>haga:
>>> >>
>>> >> :TextOut( 100, 200, "ESTA LINEA DEBE SALIR EN NEGRO", 830,
>>>CLR_BLACK )
>>> >>
>>> >> Usando Xailer PR5a (ahora probare en la 6)
>>> >>
>>> >> Saludos
>>> >>
>>> >> Jose A. Suarez
>>
>
>