TSBUTTON

[colthop]

Hola a todos:

Mi problema es el siguiente:

Estoy usando la Clase TSBUTTON y cuando pongo un boton en una ventana y el raton pasa por encima se cambia de color o se ilumina y el cursor cambia de una flecha a una mano, visualmente es muy bonito, pero me da problemas ya que cuando esta encima de un boton no me funcionan los cursores que realizan movimientos en pantalla y cuando pincho en un boton y este desaparece de pantalla y pongo otro si no muevo el raton y vuelvo a pinchar ejecuta el primer boton y no el que se ve en pantalla.

Alguien me podria indicar algo para poder subsanar este problema.

Gracias y un Saludo

Carlos

[mmercado]

Hola Carlos:

pero me da problemas ya que cuando esta encima de un boton no me funcionan los cursores que realizan movimientos en pantalla y cuando pincho en un boton y este desaparece de pantalla y pongo otro si no muevo el raton y vuelvo a pinchar ejecuta el primer boton y no el que se ve en pantalla.

Disculpa, no entiendo completamente el problema (soy un poco lento , me podrías explicar paso a paso que debería hacer en un programa para reproducir el error que mencionas ?

Un abrazo.

Manuel Mercado.

[Patricio Avalos Aguirre]

hola

Prueba modificando la clase TCONTROL de fwh
en el method KILLFOCUS, pon ,TSBUTTON"

Code: Select all

METHOD KillFocus( hCtlFocus ) CLASS TControl

   local oWnd

   if ! Empty( hCtlFocus ) .and. ::bValid != nil .and. WndParents( hCtlFocus, ::hWnd ) .and. ;
      ( oWnd := oWndFromhWnd( hCtlFocus ) ) != nil .and. ;
      Upper( oWnd:Classname() ) $ "TBUTTON;TBTNBMP;TBUTTONBMP;TSBUTTON" .and. ;
      ( oWnd:lCancel != nil .and. oWnd:lCancel .and. ;
        ( ::oWnd:nLastKey != VK_TAB .and. ::oWnd:nLastKey != VK_RETURN .and. ;
          ::oWnd:nLastKey != VK_DOWN .and. ::oWnd:nLastKey != VK_UP ) )
      ::oWnd:lValidating = .t.
      ::oWnd:nLastKey := 0
      ::ForWhen()
      ::oWnd:lValidating = .f.
      ::LostFocus( hCtlFocus )
      return nil
 

[colthop]

Hola :

He estado unos dias fuera y cuando he regresado he visto vuestros mensajes, lo primero agradeceros vuestro interes y comentaros que he realizado lo que me has dicho Patricio y no me ha resuelto el problema ya que sigue cogiendo el foco y lo que comentas no me ha solucionado`el problema. A ti Manuel decirte que lo que me pasa es que como dice Patricio coje el foco y hay teclas que no me funcionan y tambien cuando elimino el boton y pulso el raton sin moverlo me ejecuta el ACTION del Boton.

Un saludo

Carlos

[colthop]

Hola :

Lo primero agradeceros vuestro interes y comentaros que he realizado lo que me has dicho Patricio y no me ha resuelto el problema ya que sigue cogiendo el foco y lo que comentas no me ha solucionado`el problema.

A ti Manuel decirte que lo que me pasa es que como dice Patricio coje el foco y hay teclas que no me funcionan y tambien cuando elimino el boton y pulso el raton sin moverlo me ejecuta el ACTION del Boton. Esto pasa si por ejemplo pongo un boton donde estaba el anterior y no muevo el raton y vuelvo a pulsar me ejecuta la acion del primer boton y no del segundo

Un saludo

Carlos

[mmercado]

Hola Carlos:

A ti Manuel decirte que lo que me pasa es que como dice Patricio coje el foco y hay teclas que no me funcionan y tambien cuando elimino el boton y pulso el raton sin moverlo me ejecuta el ACTION del Boton. Esto pasa si por ejemplo pongo un boton donde estaba el anterior y no muevo el raton y vuelvo a pulsar me ejecuta la acion del primer boton y no del segundo

Dame por favor tu email para enviarte algunas correcciones.

Un abrazo.

Manuel Mercado.

[colthop]

Hola Manuel:

Te envie el correo mediante email pero aqui tambien te lo pongo:

carlos@colthop.es

Un saludo

Carlos

[StefanHaupt]

Hi Manuel,

could you please send me the corrections, too

sthaupt@uni-kassel.de

Thanks

[colthop]

Para Manuel Mercado:

Sigo esperando las modificaciones que me habias comentado, puedes decirme algo de este tema.

Un saludo

Carlos

[mmercado]

Hola Carlos:

Sigo esperando las modificaciones que me habias comentado, puedes decirme algo de este tema.

Una disculpa por mi tardanza, lo que pasa es que me pareció innecesario enviarte la corrección ante la inminente liberación de TSButton V.7.0.

Espero que el problema que mencionaste haya quedado resuelto en esta nueva versión, en caso contrario siempre estoy a tus órdenes para seguir mejorando la clase.

Un abrazo.

Manuel Mercado Gómez.