Modificando KeyDown de TwBrowse. Antonio Linares

Board index FiveWin para Harbour/xHarbour Modificando KeyDown de TwBrowse. Antonio Linares

Posts: 24

Joined: Sat Dec 10, 2005 07:42 AM

Modificando KeyDown de TwBrowse. Antonio Linares
Posted: Mon Jul 16, 2007 05:02 PM

Buen Día
Saludos a Todos.

Agregando. Las siguientes Líneas a la Clase Twbrowse;
De acuerdo a las recomendaciones de Antonio Linares,
Para capturar las Teclas de Movimiento.

Code: Select all Collapse

METHOD KeyDown( nKey, nFlags ) CLASS TWBrowse

   local lRefresh

   if ::bKeyDown != nil
       Eval( ::bKeyDown, nKey, nFlags, Self )
   endif

Al hacer esto si captura las teclas de Movimiento, eso esta bien.

Pero Oprimir digamos un Enter o un Supr, lo captura DOS VECES.

Help.....

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Modificando KeyDown de TwBrowse. Antonio Linares
Posted: Mon Jul 16, 2007 05:18 PM

Code: Select all Collapse

   if ::bKeyDown != nil 
       Eval( ::bKeyDown, nKey, nFlags, Self ) 
       return nil
   endif

regards, saludos

Antonio Linares
www.fivetechsoft.com

jhugono

Posts: 24

Joined: Sat Dec 10, 2005 07:42 AM

Modificando KeyDown de TwBrowse. Antonio Linares
Posted: Mon Jul 16, 2007 06:56 PM

Gracias Antonio Linares.

Con eso ya no se captura el Enter o el Supr dos veces, Pero ahora ya no captura las teclas como INICIO, FIN, AVPAG, y demás Teclas de movimiento.

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Modificando KeyDown de TwBrowse. Antonio Linares
Posted: Mon Jul 16, 2007 09:34 PM

Ponlo al final del método

regards, saludos

Antonio Linares
www.fivetechsoft.com

jhugono

Posts: 24

Joined: Sat Dec 10, 2005 07:42 AM

Modificando KeyDown de TwBrowse. Antonio Linares
Posted: Thu Jul 19, 2007 01:40 AM

Antonio Linares.

Si Funciono.

Saludos y Gracias ...

FiveTech Support Forums

Continue the discussion