Button Alt+ tecla

[colthop]

Hola a todos.

No se como solucionar un problema que tengo ya que cuando pongo un Botón con el "&" en una letra si le pongo en una WINDOW funciona pero si le pongo en un DIALOG no.

He estado probando en la carpeta simple y pasa lo mismo hay algunos que funcionan siempre sobre una WINDOW y otros no los que están en DIALOG. excepto el TESTBUBM, que en un principio en la pantalla que aparece no funciona y si pulsas sobre "From Resources" en la pantalla que aparece si funciona el "&". Podrias indicarme como solucionar el problema.

También he visto algunos post del 2011 y se solucionaba con un METHOD pero no he sabido integrarlo.

Ayuda, por favor.

Un saludo

Carlos

[karinha]

Mira se ayuda:

viewtopic.php?f=6&t=23250&p=125210&hilit=Alt+tecla#p125210

Salu2

[colthop]

Hola Karinha:

En la versión de FWH que tengo esta incluida esa modificación o por lo menos lo que comenta en ese post está en la clase button.

No obstante gracias por tu tiempo.

Un saludo

Carlos

[cnavarro]

Hola a todos.

No se como solucionar un problema que tengo ya que cuando pongo un Botón con el "&" en una letra si le pongo en una WINDOW funciona pero si le pongo en un DIALOG no.

He estado probando en la carpeta simple y pasa lo mismo hay algunos que funcionan siempre sobre una WINDOW y otros no los que están en DIALOG. excepto el TESTBUBM, que en un principio en la pantalla que aparece no funciona y si pulsas sobre "From Resources" en la pantalla que aparece si funciona el "&". Podrias indicarme como solucionar el problema.

También he visto algunos post del 2011 y se solucionaba con un METHOD pero no he sabido integrarlo.

Ayuda, por favor.

Un saludo

Carlos

Carlos, en relacion al ejemplo TESTBUBM prueba lo siguiente:
- Edita la clase CONTROL.PRG y copia y pega su contenido al final del ejemplo TESTBUBM (elimina el include "fivewin.ch" que trae la clase y pasa las variables estaticas al principio del prg)
- y en la siguiente funcion haz la siguiente modificacion:

Code: Select all  Expand view

Static function CallClick( nKey, aControls, Self )

   local n, cPrompt, nAt, oControl
   
   for n = 1 to Len( aControls )
      oControl = aControls[ n ]
      if oControl:Classname() == "TBTNBMP" .OR. oControl:Classname() == "TRBTN" ;
        .OR. oControl:Classname() == "TBUTTONBMP" .OR. oControl:Classname() == "TBUTTON"  // Esto es lo que he modificado

 

Pruébalo a ver si funciona (para mi es OK)

Aunque lo mejor seria poner:

Code: Select all  Expand view

      if Upper( oControl:Classname() ) $ "TBTNBMP;TRBTN;TBUTTONBMP"

 

[colthop]

Hola Cristóbal:

He probado lo que me has comentado y ha funcionado lo he pasado a la aplicación y compilando el control.prg con la variación parece que funciona.

Muchas gracias por tu aportación, espero que si esta todo bien Antonio pueda incluirlo en la siguiente versión del FWH para no tener que compilar el Control.prg.

Un saludo

Carlos

[cnavarro]

Antonio
¿Que opinas?

[colthop]

Hola Cristóbal:

Perdona por tenerte abandonado pero he realizado demasiadas modificaciones y hasta la semana que viene no puedo volver a investigar para terminar.

La verdad es que funciona perfecto excepto cuando la tecla es "+" o "-", como he dicho no he tenido tiempo de seguir investigando, pero si que interesaría que se incluyera en la siguiente actualización.

Que opinas Antonio.

Un saludo.

Carlos.

[cnavarro]

+1