topic-35499

Board index FiveWin para Harbour/xHarbour xBrowse - control de combinacion de teclas

Posts: 1380

Joined: Fri Oct 14, 2005 01:28 PM

xBrowse - control de combinacion de teclas
Posted: Wed Apr 11, 2018 02:04 PM

Hola Gente;
En un xBrowse tengo lo siguiente

      oBrw:bKeyDown:= {|nK| if( GetKeyState( VK_CONTROL ) .and. nK==VK_X, "OK", "tecla/s erroneas" ) }

La respuesta es que, siempre, evalúa la pulsación de la tecla Control; por lo que recibo respuesta por .F.
Probé con ACC_CONTROL; pero el efecto es el mismo
También probé con GetKeyState( VK_CONTROL ) + GetKeyState( VK_X )... sin el resultado esperado

Cual es la forma correcta?
gracias

Resistencia - "Ciudad de las Esculturas"

Chaco - Argentina

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: xBrowse - control de combinacion de teclas
Posted: Wed Apr 11, 2018 02:57 PM

Code (fw): Select all Collapse

   oBrw:bKeyDown := { | nKey | StdKey( nKey ) }

STATIC FUNCTION StdKey( nKey )

   IF GETKEYSTATE( VK_UP )
      RETURN( .F. )
   ENDIF

   do case
      case nKey == 65 .and. GetKeyState( VK_CONTROL ) // Crtl + A

         CreateInfoArticulo()

      case nKey == 66 .and. GetKeyState( VK_CONTROL ) // Crtl + B

         BrwSelArticulo()

      case nKey == 68 .and. GetKeyState( VK_CONTROL ) // Crtl + C

         BrwClient()

      case nKey == 38 .and. GetKeyState( VK_CONTROL ) // Ctrl + Down

         NextEmpresa()

      case nKey == 40 .and. GetKeyState( VK_CONTROL ) // Ctrl + Up

         PriorEmpresa()

      case nKey == 48 .and. GetKeyState( VK_CONTROL ) // Ctrl + 0

      ...

   end case

RETURN Nil

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

MarioG

Posts: 1380

Joined: Fri Oct 14, 2005 01:28 PM

Re: xBrowse - control de combinacion de teclas
Posted: Wed Apr 11, 2018 09:10 PM

Gracias Karinha!!

Resistencia - "Ciudad de las Esculturas"

Chaco - Argentina

FiveTech Support Forums

Continue the discussion