No sale el en los Labels

[Xevi]

Pues resulta que en un Edit puedo poner el símbolo anderstand & y lo
visualiza correctamente, ahora bien, al mostrarlo en un Label me muestra un
guión inferior sacando el espacio de la derecha del &.
En un Edit...
Prueba & Prueba
Viaualización en un Label...
Prueba _Prueba
Un Saludo,
Xevi.

[ignacio]

Xevi,
Prueba a poner 2: Prueba && Prueba
Saludos
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"Xevi" <xevicomas@gmail.com> escribió en el mensaje
news:46025357$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> Pues resulta que en un Edit puedo poner el símbolo anderstand & y lo
> visualiza correctamente, ahora bien, al mostrarlo en un Label me muestra
> un guión inferior sacando el espacio de la derecha del &.
>
> En un Edit...
> Prueba & Prueba
> Viaualización en un Label...
> Prueba _Prueba
>
> Un Saludo,
> Xevi.
>

[Xevi]

Ignacio,
Si pongo dos, muestra uno... pero Los Edits, Browses que muestran los datos
visualizan dos!!!
¿Que les digo a mis clientes??? que visualizarán en unos campos 1 o 2 &
dependiendo de donde se visualize???
Antes creo que lo solucioné sobreescribiendo la clase TLabel...
CLASS TLabel FROM XLabel
PROPERTY cText WRITE METHOD SetText
METHOD SetText( cText )
ENDCLASS
*
**
METHOD SetText( cText ) CLASS TLabel
RETURN Super:SetText( StrTran( cText, "&", "&&" ) )
Pero creo que desde la 1.2 ya no me funciona y en este caso me muestra
quatro &
Prueba &&&& Prueba
Por cierto, el mismo problema está al imprimir!!!
Un saludo,
Xevi.
"Ignacio Ortiz de Zúñiga" <NoName@xailer.com> escribió en el mensaje
news:[email=460253f5@news.xailer.com...]460253f5@news.xailer.com...[/email]
> Xevi,
>
> Prueba a poner 2: Prueba && Prueba
>
> Saludos
>
> --
> Ignacio Ortiz de Zúñiga
> http://www.xailer.com
>
>
> "Xevi" <xevicomas@gmail.com> escribió en el mensaje
> news:46025357$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
>> Pues resulta que en un Edit puedo poner el símbolo anderstand & y lo
>> visualiza correctamente, ahora bien, al mostrarlo en un Label me muestra
>> un guión inferior sacando el espacio de la derecha del &.
>>
>> En un Edit...
>> Prueba & Prueba
>> Viaualización en un Label...
>> Prueba _Prueba
>>
>> Un Saludo,
>> Xevi.
>>
>
>

[ignacio]

Xevi,
El '&' lo considera Windows como indicador de acelarador y lo sustituye por
un "_" en todos los Labels. Para evitarlo has de poner dos EN LOS TLABEL.
Por lo tanto si deseas evitar ese comportamiento deberás sustituir el '&'
por '&&' en los labels que utilices.
> RETURN Super:SetText( StrTran( cText, "&", "&&" ) )
>
> Pero creo que desde la 1.2 ya no me funciona y en este caso me muestra
> quatro &
> Prueba &&&& Prueba
Eso es que asignas o se asigna el texto dos veces. Quizas deberías controlar
que no haya ningún '&&' a priori.
En cuanto a la impresión, compruebo que oCanvas:TextOut() funciona
perfectamente, es decir, muestra el '&' correctamente
Saludos
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"Xevi" <xevicomas@gmail.com> escribió en el mensaje
news:4602557d$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> Ignacio,
>
> Si pongo dos, muestra uno... pero Los Edits, Browses que muestran los
> datos visualizan dos!!!
> ¿Que les digo a mis clientes??? que visualizarán en unos campos 1 o 2 &
> dependiendo de donde se visualize???
>
> Antes creo que lo solucioné sobreescribiendo la clase TLabel...
> CLASS TLabel FROM XLabel
> PROPERTY cText WRITE METHOD SetText
> METHOD SetText( cText )
> ENDCLASS
> *
> **
> METHOD SetText( cText ) CLASS TLabel
> RETURN Super:SetText( StrTran( cText, "&", "&&" ) )
>
> Pero creo que desde la 1.2 ya no me funciona y en este caso me muestra
> quatro &
> Prueba &&&& Prueba
>
> Por cierto, el mismo problema está al imprimir!!!
>
> Un saludo,
> Xevi.
>
>
> "Ignacio Ortiz de Zúñiga" <NoName@xailer.com> escribió en el mensaje
> news:[email=460253f5@news.xailer.com...]460253f5@news.xailer.com...[/email]
>> Xevi,
>>
>> Prueba a poner 2: Prueba && Prueba
>>
>> Saludos
>>
>> --
>> Ignacio Ortiz de Zúñiga
>> http://www.xailer.com
>>
>>
>> "Xevi" <xevicomas@gmail.com> escribió en el mensaje
>> news:46025357$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
>>> Pues resulta que en un Edit puedo poner el símbolo anderstand & y lo
>>> visualiza correctamente, ahora bien, al mostrarlo en un Label me muestra
>>> un guión inferior sacando el espacio de la derecha del &.
>>>
>>> En un Edit...
>>> Prueba & Prueba
>>> Viaualización en un Label...
>>> Prueba _Prueba
>>>
>>> Un Saludo,
>>> Xevi.
>>>
>>
>>
>
>

[Xevi]

Entiendo lo que me dices, ahora bien, no soy capaz de hacerlo utilizando un
solo & y que ponga dos && en sobreescribiendo la clase TLabel.
Si es posible y me puedes decir como hacerlo sobreescribiendo la clase, te
lo agradeceria.
O si alguien sabe como hacerlo... gracias.
Por lo que hace referencia a la impresión, lo imprimo utilizando...
Printer:oCanvas:TextRect()
pues me interesa en según que ocasiones alinear o centrar texto según el
caso... y puedo decirte que es ahí donde no escribe el & y lo sustituye por
un guión
Gracias.
Un Saludo,
Xevi.

[Xevi]

Ya me funcionan los Labels...
Para quien le interese...
CLASS TLabel FROM XLabel
PROPERTY cText WRITE METHOD SetText
METHOD SetText( cText )
ENDCLASS
*
**
METHOD SetText( cText ) CLASS TLabel
RETURN Super:SetText( If( At( "&&", cText ) > 0, cText, StrTran( cText, "&",
"&&" ) ) )
Me queda el tema de imprimir con TextRect()
Gracias.
Un Saludo,
Xevi.
"Xevi" <xevicomas@gmail.com> escribió en el mensaje
news:46025d8e$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> Entiendo lo que me dices, ahora bien, no soy capaz de hacerlo utilizando
> un
> solo & y que ponga dos && en sobreescribiendo la clase TLabel.
>
> Si es posible y me puedes decir como hacerlo sobreescribiendo la clase, te
> lo agradeceria.
> O si alguien sabe como hacerlo... gracias.
>
> Por lo que hace referencia a la impresión, lo imprimo utilizando...
> Printer:oCanvas:TextRect()
> pues me interesa en según que ocasiones alinear o centrar texto según el
> caso... y puedo decirte que es ahí donde no escribe el & y lo sustituye
> por
> un guión
>
> Gracias.
>
>
> Un Saludo,
> Xevi.
>
>

[ignacio]

Xevi,
Espero que se arregle la impresión con el módulo que te adjunto.
Un saludo
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"Xevi" <xevicomas@gmail.com> escribió en el mensaje
news:46025fb7$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> Ya me funcionan los Labels...
> Para quien le interese...
>
> CLASS TLabel FROM XLabel
> PROPERTY cText WRITE METHOD SetText
> METHOD SetText( cText )
> ENDCLASS
> *
> **
> METHOD SetText( cText ) CLASS TLabel
> RETURN Super:SetText( If( At( "&&", cText ) > 0, cText, StrTran( cText,
> "&",
> "&&" ) ) )
>
>
> Me queda el tema de imprimir con TextRect()
> Gracias.
>
>
> Un Saludo,
> Xevi.
>
> "Xevi" <xevicomas@gmail.com> escribió en el mensaje
> news:46025d8e$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
>> Entiendo lo que me dices, ahora bien, no soy capaz de hacerlo utilizando
>> un
>> solo & y que ponga dos && en sobreescribiendo la clase TLabel.
>>
>> Si es posible y me puedes decir como hacerlo sobreescribiendo la clase,
>> te
>> lo agradeceria.
>> O si alguien sabe como hacerlo... gracias.
>>
>> Por lo que hace referencia a la impresión, lo imprimo utilizando...
>> Printer:oCanvas:TextRect()
>> pues me interesa en según que ocasiones alinear o centrar texto según el
>> caso... y puedo decirte que es ahí donde no escribe el & y lo sustituye
>> por
>> un guión
>>
>> Gracias.
>>
>>
>> Un Saludo,
>> Xevi.
>>
>>
>
>


Attached files Canvas.rar (3.8 KB)Â

[Xevi]

Tema solucionado!!!
Gracias.
Un Saludo,
Xevi.
"Ignacio Ortiz de Zúñiga" <NoName@xailer.com> escribió en el mensaje
news:46029c88$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> Xevi,
>
> Espero que se arregle la impresión con el módulo que te adjunto.
>
> Un saludo
>
> --
> Ignacio Ortiz de Zúñiga
> http://www.xailer.com
>
>
> "Xevi" <xevicomas@gmail.com> escribió en el mensaje
> news:46025fb7$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
>> Ya me funcionan los Labels...
>> Para quien le interese...
>>
>> CLASS TLabel FROM XLabel
>> PROPERTY cText WRITE METHOD SetText
>> METHOD SetText( cText )
>> ENDCLASS
>> *
>> **
>> METHOD SetText( cText ) CLASS TLabel
>> RETURN Super:SetText( If( At( "&&", cText ) > 0, cText, StrTran( cText,
>> "&",
>> "&&" ) ) )
>>
>>
>> Me queda el tema de imprimir con TextRect()
>> Gracias.
>>
>>
>> Un Saludo,
>> Xevi.
>>
>> "Xevi" <xevicomas@gmail.com> escribió en el mensaje
>> news:46025d8e$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
>>> Entiendo lo que me dices, ahora bien, no soy capaz de hacerlo utilizando
>>> un
>>> solo & y que ponga dos && en sobreescribiendo la clase TLabel.
>>>
>>> Si es posible y me puedes decir como hacerlo sobreescribiendo la clase,
>>> te
>>> lo agradeceria.
>>> O si alguien sabe como hacerlo... gracias.
>>>
>>> Por lo que hace referencia a la impresión, lo imprimo utilizando...
>>> Printer:oCanvas:TextRect()
>>> pues me interesa en según que ocasiones alinear o centrar texto según el
>>> caso... y puedo decirte que es ahí donde no escribe el & y lo sustituye
>>> por
>>> un guión
>>>
>>> Gracias.
>>>
>>>
>>> Un Saludo,
>>> Xevi.
>>>
>>>
>>
>>
>
>
>

[Rene Flores]

Ignacio y Xevi:
Tengo entendido que el subrayado en los labels no aparece en Windows XP,
hasta que no se activa en el panel de control.
Prueben esto, abran un formulario donde tengan teclas aceleradoras
Alt+tecla, si no aparecen las letras subrayadas, presionen la tecla ALT
(solo la tecla ALT), y entonces veran como aparecen las letras subrayadas.
Si efectivametne, aparecen las letras subrayadas correctamente cuando
presionan la tecla ALT, entonces deberan ir al panel de control, para
configurar la opcion de SIEMPRE MOSTRAR LETRAS ACELERADORAS.
Saludos
Rene Flores
http://www.ciber-tec.com