xBrowse Trap Down Arrow key

[Rick Lipkin]

To All

I am trying to trap the down arrow key in an xBrowse .. and this does not work

oLbxB:bKeyDown := { |nKey| MsgInfo(nKey) }

It traps 'Enter', "Insert' .. any ideas ?

Thanks
Rick Lipkin

[nageswaragunupudi]

XBrowse does not allow this.
You need to write your own KeyDown() method and override and have a derived class.

[FranciscoA]

Hi Rick.
Do you resolved it?
Can share your solution?

Best regards.

[Enrico Maria Giordano]

I faced this problem this days and solved using bChange.

EMG

[FranciscoA]

Enrico.
Can you post a litle sample?
Thanks

[Enrico Maria Giordano]

Here it is:

Code: Select all

#include "Fivewin.ch"


FUNCTION MAIN()

    LOCAL oDlg, oBrw

    USE CUSTOMER

    DEFINE DIALOG oDlg;
           SIZE 800, 600

    @ 0, 0 XBROWSE oBrw

    oBrw:bChange = { || Test() }

    oBrw:CreateFromCode()

    ACTIVATE DIALOG oDlg;
             ON INIT oBrw:AdjClient();
             CENTER

    CLOSE

    RETURN NIL


STATIC FUNCTION TEST()

    IF GETKEYSTATE( VK_UP )
        ? "VK_UP"
    ENDIF

    IF GETKEYSTATE( VK_DOWN )
        ? "VK_DOWN"
    ENDIF

    RETURN NIL

EMG

[FranciscoA]

Great! Enrico.
Thanks

[Rick Lipkin]

Francisco

Enrico's solution is much better than mine .. I actually modified the xBrowse.prg code ..

Rick Lipkin

[FranciscoA]

Rick.
Got it.
Thanks for your kindly.