Combinacion de teclas en un GET

[jvtecheto]

Hola amigos:

En un objeto GET en un cuadro de dialogo me gustaria que al pulsar una combinacion de letras realizara una determinada accion.
hago esto. Tengo puesto en el valid del oCodigo !(Empty(cCodigo)) para que no dejen el campo vacio. No creo que influya.

Code: Select all  Expand view

#include "inkey.ch"

oCodigo:bKeyDown := { | nKey | IIf( nKey == K_CTRL_INS,MsgInfo("Hola") ,  ) }

 

¿Que hago mal?

Gracias por vuestra ayuda.

Saludos.

Jose.

[compubrion]

Saludos !
oCodigo es la variable ó el objeto get

[Armando]

Jvtecheto:

Aquí un ejemplo

Code: Select all  Expand view

       IF GetAsyncKey( VK_F2, VK_F12 )
       ……
       ……
       ENDIF
 

Aplica cuando el usuario oprime las teclas F2 + F12 y RETURN

SAludos

[jvtecheto]

Hola.

Gracias por tu interés

Es el objeto get, la variable es cCodigo

Saludos.

Enviado desde mi POCOPHONE F1 mediante Tapatalk

[cnavarro]

Jose Vicente, a ver si esto te sirve de algo

Code: Select all  Expand view

#include "FiveWin.Ch"

Function Main()
   Local oDlg
   Local oGet
   local cVar := space( 20 )

   DEFINE DIALOG oDlg from 0,0 to 400,400 pixel

      @ 15,15 GET oGet VAR cVar PICTURE "@!" BITMAP "..\bitmaps\chkyes.bmp" ACTION( msginfo( "action" ) );
         SIZE 120,12 OF oDlg PIXEL
      oGet:lAdjustBtn := .t.
      oGet:bKeyDown   := { | nKey, nFlag | TeclaPulsada( nKey, nFlag ) }

   ACTIVATE DIALOG oDlg
 
 return nil

Function TeclaPulsada( nKey, nFlag )

   local lControl := GetKeyState( VK_CONTROL )
   local lShift   := GetKeyState( VK_SHIFT )
   local lMenu    := GetKeyState( VK_MENU )

   if lControl .and. nKey = 65
      FWLOG nkey, nFlag, lControl, lShift, lMenu
   endif

Return 0
 

[horacio]

Hola Cristobal, que hace esta instrucción?

Code: Select all  Expand view

FWLOG nkey, nFlag, lControl, lShift, lMenu
 

Gracias

Saludos

[cnavarro]

Horacio, te crea un fichero con extensión .LOG ( con el nombre del EXE ), y va guardando lo que tu le pongas después del comando FWLOG, y se usa como alternativa a la depuración, aunque yo suelo utilizar también esta otra "modalidad"

Code: Select all  Expand view

#include "Fivewin.ch"

Static oWnd

function Main()

   //StartFWLog( nTop, nLeft, nHeight, nWidth, lDown, lLines, lCouple, cTitle )
   StartFWLog( , , 622, 590, .F., .T., , )    //.F.
   DEFINE WINDOW oWnd FROM 0, 0 TO 750, 1365 PIXEL ;
      TITLE "FWH Test FWINLOG - " + FWVERSION MENU BuildMenu()
   ACTIVATE WINDOW oWnd ON INIT Inicial() MAXIMIZED

return nil

//----------------------------------------------------------------------------//

Static Function BuildMenu()

   local oMnu
   MENU oMnu
      MENUITEM "Options"
      MENU
         MENUITEM "Option - 1" ACTION Uno()
         SEPARATOR
         MENUITEM "Exit" ACTION oWnd:End()
      ENDMENU
      MENUITEM "Others"
      MENU
         MENUITEM "Others - 2" ACTION Dos()
         SEPARATOR
         MENUITEM "Others - 3" ACTION Tres()
      ENDMENU
   ENDMENU
   
Return oMnu

//----------------------------------------------------------------------------//

Function Inicial()

FWINLOG Len( oWnd:oMenu:aMenuItems )

Return nil

//----------------------------------------------------------------------------//

Function Uno()

FWINLOG oWnd

Return nil

//----------------------------------------------------------------------------//

Function Dos()

FWINLOG oWnd:oMenu

Return nil

//----------------------------------------------------------------------------//

Function Tres()

FWINLOG oWnd:nHeight

Return nil

//----------------------------------------------------------------------------//

 

[horacio]

Cristobal, muchas gracias por el tip

Saludos

[joseluisysturiz]

Saludos !
oCodigo es la variable ó el objeto get

Disculpen use este modo, saludos Compubrion, por favor comunicate conmigo por joseluisturiz@yahoo.com, 04142317600, wsap, gracias...

[nageswaragunupudi]

Hola amigos:

En un objeto GET en un cuadro de dialogo me gustaria que al pulsar una combinacion de letras realizara una determinada accion.
hago esto. Tengo puesto en el valid del oCodigo !(Empty(cCodigo)) para que no dejen el campo vacio. No creo que influya.

Code: Select all  Expand view

#include "inkey.ch"

oCodigo:bKeyDown := { | nKey | IIf( nKey == K_CTRL_INS,MsgInfo("Hola") ,  ) }

 

¿Que hago mal?

Gracias por vuestra ayuda.

Saludos.

Jose.

Code: Select all  Expand view

  oGet:bKeyDown := { |k| If( k == VK_INSERT .and. GetKeyState( VK_CONTROL ), ( MsgInfo( "CtrlInsert" ), 0 ), nil ) }
 

[jvtecheto]

Thanks Mr. Rao,

I had solved it by pressing only the + key with this code.

Code: Select all  Expand view

oDlg:bKeydown := {|nKey| IIF(nKey == VK_ADD,(cCodigo:=NextRecord("Emp",2),MsgInfo("El registro siguiente sera " + cCodigo) ),nil )}
 

The function simply calculates the record following the last one.

Thank you always for your support

Jose.