Hi to all,
I found an alternative that works:
1. I disabled oBrowse:verticalMovementBlock := {|| SomeApp(oBrowse) }
2. Used only: oBrowse:navigationBlock := {|nKey,xData,oBrowse| ApplyKey( nKey,oBrowse,oDlg ) }
...
STATIC FUNCTION ApplyKey( nKey,oBrowse,oDlg )
...
DO CASE
CASE nKey = K_ESC ; oDlg:close()
CASE (nKey = K_LBUTTONDOWN .OR. nKey = K_UP .OR. nKey = K_PGUP .OR. nKey = K_CTRL_PGUP .OR. nKey = K_DOWN .OR. nKey = K_PGDN .OR. nKey = K_CTRL_PGDN)
DO CASE
CASE nKey = K_UP ; oBrowse:Up()
CASE nKey = K_DOWN ; oBrowse:Down()
CASE nKey = K_PGUP ; oBrowse:pageUp()
CASE nKey = K_PGDN ; oBrowse:pageDown()
CASE nKey = K_CTRL_PGUP ; oBrowse:goTop()
CASE nKey = K_CTRL_PGDN ; oBrowse:goBottom()
CASE nKey = K_LBUTTONDOWN ENDCASE
SomeApp( oBrowse )
...
Added the mouse pressed left button in Applykey() and It works fine, also have to add all the up/down other keys that is not required from oBrowse:verticalMovementBlock()
This works, just I hoped ... that oBrowse:verticalMovementBlock() works also completely in the same manner.
Any suggestions are welcome
Zoran