Page 1 of 1
TSBUTTON
![Post Post](./styles/prosilver/imageset/icon_post_target.gif)
Posted:
Tue Aug 04, 2009 7:42 pm
by 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
Re: TSBUTTON
![Post Post](./styles/prosilver/imageset/icon_post_target.gif)
Posted:
Wed Aug 05, 2009 7:08 pm
by mmercado
Hola Carlos:
colthop wrote: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
![Smile :-)](./images/smilies/icon_smile.gif)
, me podrías explicar paso a paso que debería hacer en un programa para reproducir el error que mencionas ?
Un abrazo.
Manuel Mercado.
Re: TSBUTTON
![Post Post](./styles/prosilver/imageset/icon_post_target.gif)
Posted:
Wed Aug 05, 2009 9:44 pm
by Patricio Avalos Aguirre
hola
Prueba modificando la clase TCONTROL de fwh
en el method KILLFOCUS, pon
,TSBUTTON"- Code: Select all Expand view
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
Re: TSBUTTON
![Post Post](./styles/prosilver/imageset/icon_post_target.gif)
Posted:
Mon Aug 17, 2009 11:24 pm
by 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
Re: TSBUTTON
![Post Post](./styles/prosilver/imageset/icon_post_target.gif)
Posted:
Tue Sep 01, 2009 9:28 am
by 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
Re: TSBUTTON
![Post Post](./styles/prosilver/imageset/icon_post_target.gif)
Posted:
Tue Sep 01, 2009 10:31 pm
by mmercado
Hola Carlos:
colthop wrote: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.
Re: TSBUTTON
![Post Post](./styles/prosilver/imageset/icon_post_target.gif)
Posted:
Tue Sep 08, 2009 7:05 am
by colthop
Hola Manuel:
Te envie el correo mediante email pero aqui tambien te lo pongo:
carlos@colthop.esUn saludo
Carlos
Re: TSBUTTON
![Post Post](./styles/prosilver/imageset/icon_post_target.gif)
Posted:
Tue Sep 08, 2009 7:19 am
by StefanHaupt
Hi Manuel,
could you please send me the corrections, too
sthaupt@uni-kassel.deThanks
Re: TSBUTTON
![Post Post](./styles/prosilver/imageset/icon_post_target.gif)
Posted:
Sat Sep 12, 2009 3:47 pm
by colthop
Para Manuel Mercado:
Sigo esperando las modificaciones que me habias comentado, puedes decirme algo de este tema.
Un saludo
Carlos
Re: TSBUTTON
![Post Post](./styles/prosilver/imageset/icon_post_target.gif)
Posted:
Tue Sep 15, 2009 9:56 am
by mmercado
Hola Carlos:
colthop wrote: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.