topic-21433

Posts: 610

Joined: Wed Oct 19, 2005 08:20 PM

Tecla ESCAPE y XBROWSE
Posted: Thu Apr 28, 2011 06:10 AM

En un xBrowse necesito evaluar la tecla Escape. He probado bKeyDown con Key ==VK_ESCAPE pero nada de nada. ¿Hay alguna forma de hacerlo?

Un saludo,

Manuel

xH 1.2.3, FWH 23.07 32 bits, BC++ 7.4, xVerce CW 1.0, PellesC

FiveWiDi

Posts: 1445

Joined: Mon Oct 10, 2005 02:38 PM

Re: Tecla ESCAPE y XBROWSE
Posted: Thu Apr 28, 2011 07:57 AM

Manuel Aranda wrote:En un xBrowse necesito evaluar la tecla Escape. He probado bKeyDown con Key ==VK_ESCAPE pero nada de nada. ¿Hay alguna forma de hacerlo?

Hola Manuel,

Pruébalo así:

Code (fw): Select all Collapse

oMiXBrowse:bKeyChar   := {| nKey , nflags | If( nKey = VK_ESCAPE, oMiVentana:End(), Nil ) }

A mi me ha funcionado.

Un Saludo

Carlos G.

FiveWin 25.12 + Harbour 3.2.0dev (r2502110321), BCC 7.7 Windows 11 Home

acuellar

Posts: 1710

Joined: Tue Oct 28, 2008 06:26 PM

Re: Tecla ESCAPE y XBROWSE
Posted: Thu Apr 28, 2011 12:08 PM

Manuel, la tecla ESC viene activada por defecto para salir del dialogo del xBrowse, a no ser que este desactivada con SetDialogEsc(.F.)

Si no hazlo asi:

Code (fw): Select all Collapse

  oBrw:bKeyDown:={ |nKey| iif( nKey=VK_ESCAPE,oDlg:End(), )  }

Saludos,

Adhemar

Saludos,

Adhemar C.

Manuel Aranda

Posts: 610

Joined: Wed Oct 19, 2005 08:20 PM

Re: Tecla ESCAPE y XBROWSE
Posted: Thu Apr 28, 2011 01:57 PM

Gracias a los dos, Carlos y Adhemar:

Funciona perfectamente vuestro código cuando se trata de un diálogo, pero el xbrowse está en una ventana windows y no en un diálogo y de esta forma no funciona, ignora completamente la tecla ESCAPE, no así otras como ESPACIADOR, etc.....

Un saludo,

Manuel

xH 1.2.3, FWH 23.07 32 bits, BC++ 7.4, xVerce CW 1.0, PellesC

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: Tecla ESCAPE y XBROWSE
Posted: Thu Apr 28, 2011 10:00 PM

Manuel Aranda wrote:Gracias a los dos, Carlos y Adhemar:

Funciona perfectamente vuestro código cuando se trata de un diálogo, pero el xbrowse está en una ventana windows y no en un diálogo y de esta forma no funciona, ignora completamente la tecla ESCAPE, no así otras como ESPACIADOR, etc.....

For trapping ESC key, please use oBrw:bKeyDown := { |nKey| <yourcode>(nKey) }

Regards

G. N. Rao.

Hyderabad, India

Manuel Aranda

Posts: 610

Joined: Wed Oct 19, 2005 08:20 PM

Re: Tecla ESCAPE y XBROWSE
Posted: Thu Apr 28, 2011 11:33 PM

Haciendolo así:

Code (fw): Select all Collapse

oLbx:oVentPrinc:bKeyDown := { |nKey| IIf( nKey = VK_ESCAPE, MsgInfo("Holaaaa"), )}

Este es el mensaje de error que obtengo:

Error description: Error BASE/1004 Message not found: TXBROWSE:OVENTPRINC

Stack Calls
===========
Called from: .\source\function\HARBOUR.PRG => _CLSSETERROR(166)
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:OVENTPRINC(7546)

Un saludo,

Manuel

xH 1.2.3, FWH 23.07 32 bits, BC++ 7.4, xVerce CW 1.0, PellesC

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: Tecla ESCAPE y XBROWSE
Posted: Thu Apr 28, 2011 11:42 PM

Not

Code (fw): Select all Collapse

oLbx:oVentPrinc:bKeyDown := { |nKey| IIf( nKey = VK_ESCAPE, MsgInfo("Holaaaa"), )}

Correct:

Code (fw): Select all Collapse

oLbx:oWnd:bKeyDown := { |nKey| IIf( nKey = VK_ESCAPE, MsgInfo("Holaaaa"), )}

Regards

G. N. Rao.

Hyderabad, India

Manuel Aranda

Posts: 610

Joined: Wed Oct 19, 2005 08:20 PM

Re: Tecla ESCAPE y XBROWSE
Posted: Fri Apr 29, 2011 05:49 AM

Sr. Rao, muchas gracias, ha funcionado perfectamente.

Un saludo,

Manuel

xH 1.2.3, FWH 23.07 32 bits, BC++ 7.4, xVerce CW 1.0, PellesC

MarioG

Posts: 1380

Joined: Fri Oct 14, 2005 01:28 PM

Re: Tecla ESCAPE y XBROWSE
Posted: Mon Nov 28, 2011 02:38 PM

Hace 2 dias que estoy tratando de que evalúe ESCAPE!...."agarra los libros que no queman"... decia mi viejo!

:lol:

Resistencia - "Ciudad de las Esculturas"

Chaco - Argentina

FiveTech Support Forums

Continue the discussion