FiveTech Software tech support forums

Code: Select all  Expand view

#include "inkey.ch"

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

 

Code: Select all  Expand view

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

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
 

Code: Select all  Expand view

FWLOG nkey, nFlag, lControl, lShift, lMenu
 

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

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

 

compubrion wrote:Saludos !
oCodigo es la variable ó el objeto get

jvtecheto wrote: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 ) }
 

Code: Select all  Expand view

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