Keyboard tagging
Posted: Wed Feb 24, 2010 10:15 am
Roger,
I have been using the TAGENABLE cluase of DCBROWSE and it works nicely.
I've written a Tag handler routine that allows the user to use keyboard tagging shortcuts.
Can you add this to the TAGENABLE feature of DCBROWSE.
I've included a snippet of the code below to give you an idea of what I mean.
Bobby
I have been using the TAGENABLE cluase of DCBROWSE and it works nicely.
I've written a Tag handler routine that allows the user to use keyboard tagging shortcuts.
Can you add this to the TAGENABLE feature of DCBROWSE.
I've included a snippet of the code below to give you an idea of what I mean.
Bobby
Code: Select all
*--------------------------------------
function TagArrayHandler( nEvent, mp1, mp2, oXbp, oDialog, Getlist, aRef )
IF nEvent == xbeP_Keyboard
IF mp1 = xbeK_CTRL_DOWN
aRef[2,aRef[1]:cargo[4],aRef[3]] := IIF(aRef[2,aRef[1]:cargo[4],aRef[3]] == "Y", " ", "Y" )
aRef[1]:refreshCurrent()
PostAppEvent( xbeP_Keyboard, xbeK_DOWN, nil, oXbp )
ELSEIF mp1 = xbeK_CTRL_UP
aRef[2,aRef[1]:cargo[4],aRef[3]] := IIF(aRef[2,aRef[1]:cargo[4],aRef[3]] == "Y", " ", "Y" )
aRef[1]:refreshCurrent()
PostAppEvent( xbeP_Keyboard, xbeK_UP, nil, oXbp )
ELSEIF mp1 == xbeK_SPACE
aRef[2,aRef[1]:cargo[4],aRef[3]] := IIF(aRef[2,aRef[1]:cargo[4],aRef[3]] == "Y", " ", "Y" )
aRef[1]:refreshCurrent()
ENDIF
ENDIF
RETURN DCGUI_NONE