Cursor in XBROWSE "down" instead of "right" after ENTER
Posted: Sat Jun 10, 2023 11:20 pm
hi,
i have Set EDIT_NONE and use oWnd:bKeyDown to react on VK_RETURN
this work fine but Cursor in XBROWSE is move to "right" and i want "down" ... how
i have Set EDIT_NONE and use oWnd:bKeyDown to react on VK_RETURN
- Code: Select all Expand view
- oBrw:nEditTypes := EDIT_NONE
oWnd:bKeyDown := { | nKey, nFlag | DoBrowseKey( nKey, nFlag, oWnd, oGet, oBar, oBrw, aHead ) }
- Code: Select all Expand view
- STATIC PROCEDURE DoBrowseKey( nKey, nFlag, oWnd, oGet, oBar, oBrw , aHead)
DEFAULT aHead := {}
DO CASE
CASE nKey = VK_ESCAPE
oWnd:End()
CASE nKey = VK_RETURN
IF EMPTY(aHead)
oBrw:EditSource( .F., Struc2String( ALIAS() ) )
ELSE
oBrw:EditSource( .F., Struc2String( aHead ) )
ENDIF
this work fine but Cursor in XBROWSE is move to "right" and i want "down" ... how