shift + F5

[dbSoft]

THAT I CAN CALL A FUNCTION
WITH COMBINATION OF KEYS ( shift + F5 )


JOHN

[Enrico Maria Giordano]

This is a working sample:

Code: Select all

#include "Fivewin.ch"


FUNCTION MAIN()

    LOCAL oDlg

    LOCAL cVar := SPACE( 30 )

    SETKEY( VK_F2, { || If( GetKeyState( VK_CONTROL ), MsgInfo( "Hello!" ), ) } )
    SETKEY( VK_F3, { || If( GetKeyState( VK_SHIFT ), MsgInfo( "Hello!" ), ) } )

    DEFINE DIALOG oDlg

    @ 1, 1 GET cVar OF oDlg

    @ 3, 1 BUTTON "&Close" OF oDlg ACTION oDlg:End()

    ACTIVATE DIALOG oDlg;
             CENTER

    RETURN NIL

EMG

[dbSoft]

Enrico
I A LOT THANK