nKey return Value

[areang]

Hi All !

How to get nKey return value of Alt+F1, Ctrl+F1 and Shift+F1

Thanks

Best Regard
Areang

[Enrico Maria Giordano]

This is a sample for Ctrl+F1 and Shift+F1:

Code: Select all  Expand view

#include "Fivewin.ch"


FUNCTION MAIN()

    LOCAL oDlg

    LOCAL cVar := SPACE( 30 )

    SETKEY( VK_F1, { || Keys() } )

    DEFINE DIALOG oDlg

    @ 1, 1 GET cVar OF oDlg

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

    ACTIVATE DIALOG oDlg;
             CENTER

    RETURN NIL


STATIC FUNCTION KEYS()

    IF GETKEYSTATE( VK_CONTROL )
        ? "CTRL-F1"
    ENDIF

    IF GETKEYSTATE( VK_SHIFT )
        ? "SHIFT-F1"
    ENDIF

    RETURN NIL

EMG

[James Bott]

Areang,

I believe the Alt keys are reserved for Windows (menus and hot-keys).

James