To all,
How could you override a method in FW?
I would like to disable VK_LEFT and VK_RIGHT and to use this keys to navigate between the different tabs of a folder.
Thanks in advance,
Otto
METHOD KeyDown( nKey, nFlags ) CLASS TWBrowse
do case
case nKey == VK_UP
::GoUp()
case nKey == VK_DOWN
::GoDown()
case nKey == VK_LEFT
::GoLeft()
case nKey == VK_RIGHT
::GoRight()
case nKey == VK_HOME
::GoTop()
case nKey == VK_END
::GoBottom()
case nKey == VK_PRIOR
if GetKeyState( VK_CONTROL )
::GoTop()
else
::PageUp()
endif
case nKey == VK_NEXT
if GetKeyState( VK_CONTROL )
::GoBottom()
else
::PageDown()
endif
otherwise
return Super:KeyDown( nKey, nFlags )
endcase
return 0