I think I am too tired...
I have TCbrowse, named oLbx, redefined from RC
I disabled the horizontal scroll slider, it is not visible.
What I need is to disable the user to move left or right the listbox content by using the arrows on keyborad to scroll left or right
I am using this:
oLbx:bKeyDown = { | nKey, nFlags | STOPIRAJ( oLbx, nKey, nFlags ) }
oLbx:bKeyChar = { | nKey, nFlags | STOPIRAJ( oLbx, nKey, nFlags ) }
...
...
and to test:
FUNCTION Stopiraj( oLbx, nKey, nFlags )
do case
case nKey == VK_RIGHT
MsgInfo("right pressed")
case nKey == VK_LEFT
MsgInfo("left pressed")
endcase
? nKey
return nil
Nothing shown. The arrows pressed move the olbx right or left....
Like this function was not even called...
Any help with this?
Thanks
Boris