THAT I CAN CALL A FUNCTION
WITH COMBINATION OF KEYS ( shift + F5 )
JOHN
#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
Return to FiveWin for CA-Clipper
Users browsing this forum: No registered users and 5 guests