Combinar teclas dentro xbrowse (Solucionado)

Posts: 1816

Joined: Wed Oct 26, 2005 02:49 PM

Combinar teclas dentro xbrowse (Solucionado)
Posted: Fri Aug 28, 2020 07:05 PM

Buenas tardes para todos,

como dice el encabezado, necesito lanzar una accion al hacer una combinación de teclas dentro de xbrowse, de momento tengo definida una funcion, pero no lo hace con las combinaciones.

Code (fw): Select all Collapse

    oBrwFt := TXBrowse():New( oWChPq )
        ......
    oBrwFt:bKeyDown              := {|nKey,oGet,nCol|TeclasFtr(nKey,oGet,nCol)}
        .......

Que esta mal, o hace falta?

Code (fw): Select all Collapse

Function TeclasFtr(nKey,oGet,nCol)
Do Case
    Case nKey=VK_RETURN
        manteFacturas()
    Case nKey=VK_DELETE .or. nKey=VK_F5
        borrarFactura()
    Case nKey=VK_F2
        manteFacturas(0)
    Case nKey=VK_F3
        EVAL(cbImpreFt)
    Case nKey=VK_F6
        EVAL(cbEnvio)   
    Case nKey=VK_F7
        EnviarEST(oRsFtr:Fields( "ll_consec" ):Value)
    Case GetKeyState( VK_CONTROL ) .AND. nKey = VK_F9 //intente asi pero no funciona 
        msginfo("lanzar funcion")
EndCase

Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]

Manuel Aranda

Posts: 610

Joined: Wed Oct 19, 2005 08:20 PM

Re: Combinar teclas dentro xbrowse
Posted: Sat Aug 29, 2020 08:56 AM

Hola Leandro,

A ver si esto te da una pista y puedes adaptarlo a tus necesidades

SetKey( VK_F12 , {|| if(GetKeyState( VK_SHIFT ), Calendario(), if(GetKeyState( VK_CONTROL ), EliminarDatos(), Calculador() ) ) } )

Un saludo,

Manuel

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

leandro

Posts: 1816

Joined: Wed Oct 26, 2005 02:49 PM

Re: Combinar teclas dentro xbrowse
Posted: Sun Aug 30, 2020 12:59 PM

Gracias Manuel por responder

Fue muy valiosa tu ayuda, quedo resuelto de la siguiente manera:

Code (fw): Select all Collapse

Function TeclasFtr(nKey,oGet,nCol)
Do Case
    Case nKey=VK_RETURN
        manteFacturas()
    Case nKey=VK_DELETE .or. nKey=VK_F5
        borrarFactura()
    Case nKey=VK_F2
        manteFacturas(0)
    Case nKey=VK_F3
        EVAL(cbImpreFt)
    Case nKey=VK_F6
        EVAL(cbEnvio)   
    Case nKey=VK_F7
        EnviarEST(oRsFtr:Fields( "ll_consec" ):Value)
    Case nKey = VK_F12
        eval ({|| if(GetKeyState( VK_SHIFT ), msginfo("shift+f12"), if(GetKeyState( VK_CONTROL ), msginfo("control+f12"), msginfo("f12") ) ) })
EndCase

Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]

FiveTech Support Forums

Continue the discussion