by Otto » Wed Apr 07, 2010 6:54 pm
I think you have to insert a keydown method into folder class.
I did this for left/right keys:
Best regards,
Otto
[code
METHOD KeyDown( nKey, nFlags ) CLASS TFolder
local nOption1 := ::nOption
//msginfo(str(nOption1))
do case
CASE nKey == VK_RIGHT //modify
nOption1 := nOption1 + 1
IF nOption1 > Len( ::aDialogs )
nOption1 := 1
ENDIF
::SetOption( nOption1 )
CASE nKey == VK_LEFT //modify
nOption1 := nOption1 - 1
IF nOption1 < 1
nOption1 := Len( ::aDialogs )
ENDIF
::SetOption( nOption1 )
otherwise
return Super:KeyDown( nKey, nFlags )
endcase
return 0
//----------------------------------------------------------------------------//[/code]
********************************************************************
mod harbour - Vamos a la conquista de la Web
modharbour.org
https://www.facebook.com/groups/modharbour.club********************************************************************