xBrowse - control de combinacion de teclas

[MarioG]

Hola Gente;
En un xBrowse tengo lo siguiente

Code: Select all  Expand view

     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

[karinha]

Code: Select all  Expand view

   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
 

[MarioG]

Gracias Karinha!!