Page 1 of 1

shift + F5

Posted: Thu Dec 01, 2005 11:05 am
by dbSoft
THAT I CAN CALL A FUNCTION
WITH COMBINATION OF KEYS ( shift + F5 )


JOHN

Re: shift + F5

Posted: Thu Dec 01, 2005 11:08 am
by 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

Posted: Thu Dec 01, 2005 11:24 am
by dbSoft
Enrico
I A LOT THANK