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
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour xBrowse Trap Down Arrow key
XBrowse does not allow this.
You need to write your own KeyDown() method and override and have a derived class.
Regards
G. N. Rao.
Hyderabad, India
G. N. Rao.
Hyderabad, India
Hi Rick.
Do you resolved it?
Can share your solution?
Best regards.
Francisco J. Alegría P.
Chinandega, Nicaragua.
Fwxh-MySql-TMySql
Chinandega, Nicaragua.
Fwxh-MySql-TMySql
I faced this problem this days and solved using bChange.
EMG
Enrico.
Can you post a litle sample?
Thanks
Francisco J. Alegría P.
Chinandega, Nicaragua.
Fwxh-MySql-TMySql
Chinandega, Nicaragua.
Fwxh-MySql-TMySql
Here it is:
EMG
#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 NILEMG
Great! Enrico.
Thanks
Francisco J. Alegría P.
Chinandega, Nicaragua.
Fwxh-MySql-TMySql
Chinandega, Nicaragua.
Fwxh-MySql-TMySql
Francisco
Enrico's solution is much better than mine .. I actually modified the xBrowse.prg code ..
Rick Lipkin
Rick.
Got it.
Thanks for your kindly.
Francisco J. Alegría P.
Chinandega, Nicaragua.
Fwxh-MySql-TMySql
Chinandega, Nicaragua.
Fwxh-MySql-TMySql