FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour TSBUTTON
colthop
Posts: 505
Joined: Sat Apr 22, 2006 09:09 AM
TSBUTTON
Posted: Tue Aug 04, 2009 07:42 PM

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

Colt Hop ED, S.L.
Carlos Blas Fernández Domínguez
Tlfo: 645847093
E-Mail: carlos@colthop.es

Nunca se termina de aprender, por eso necesito siempre ayuda.
mmercado
Posts: 782
Joined: Wed Dec 19, 2007 07:50 AM
Re: TSBUTTON
Posted: Wed Aug 05, 2009 07:08 PM
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 :-), me podrías explicar paso a paso que debería hacer en un programa para reproducir el error que mencionas ?

Un abrazo.

Manuel Mercado.
manuelmercado at prodigy dot net dot mx
Patricio Avalos Aguirre
Posts: 1074
Joined: Fri Oct 07, 2005 01:56 PM
Re: TSBUTTON
Posted: Wed Aug 05, 2009 09:44 PM
hola

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

Code (fw): Select all Collapse
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
Saludos
Patricio

__________________________________________________________________
Version: Harbour 3.2.0dev (r1307082134),Compiler: Borland C++ 5.8.2 (32-bit)
PCode version: 0.3, FWH 13.2
http://www.sialm.cl
colthop
Posts: 505
Joined: Sat Apr 22, 2006 09:09 AM
Re: TSBUTTON
Posted: Mon Aug 17, 2009 11:24 PM

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

Colt Hop ED, S.L.
Carlos Blas Fernández Domínguez
Tlfo: 645847093
E-Mail: carlos@colthop.es

Nunca se termina de aprender, por eso necesito siempre ayuda.
colthop
Posts: 505
Joined: Sat Apr 22, 2006 09:09 AM
Re: TSBUTTON
Posted: Tue Sep 01, 2009 09:28 AM

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

Colt Hop ED, S.L.
Carlos Blas Fernández Domínguez
Tlfo: 645847093
E-Mail: carlos@colthop.es

Nunca se termina de aprender, por eso necesito siempre ayuda.
mmercado
Posts: 782
Joined: Wed Dec 19, 2007 07:50 AM
Re: TSBUTTON
Posted: Tue Sep 01, 2009 10:31 PM
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.
manuelmercado at prodigy dot net dot mx
colthop
Posts: 505
Joined: Sat Apr 22, 2006 09:09 AM
Re: TSBUTTON
Posted: Tue Sep 08, 2009 07:05 AM

Hola Manuel:

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

carlos@colthop.es

Un saludo

Carlos

Colt Hop ED, S.L.
Carlos Blas Fernández Domínguez
Tlfo: 645847093
E-Mail: carlos@colthop.es

Nunca se termina de aprender, por eso necesito siempre ayuda.
StefanHaupt
Posts: 824
Joined: Thu Oct 13, 2005 07:39 AM
Re: TSBUTTON
Posted: Tue Sep 08, 2009 07:19 AM

Hi Manuel,

could you please send me the corrections, too

sthaupt@uni-kassel.de

Thanks

kind regards

Stefan
colthop
Posts: 505
Joined: Sat Apr 22, 2006 09:09 AM
Re: TSBUTTON
Posted: Sat Sep 12, 2009 03:47 PM

Para Manuel Mercado:

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

Un saludo

Carlos

Colt Hop ED, S.L.
Carlos Blas Fernández Domínguez
Tlfo: 645847093
E-Mail: carlos@colthop.es

Nunca se termina de aprender, por eso necesito siempre ayuda.
mmercado
Posts: 782
Joined: Wed Dec 19, 2007 07:50 AM
Re: TSBUTTON
Posted: Tue Sep 15, 2009 09:56 AM
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.
manuelmercado at prodigy dot net dot mx

Continue the discussion

Static archive · New replies & topics via GitHub Discussions