Press Shift on the column xBrowse

[Natter]

Hello !

I press Shift on the column xBrowse and process is to a block of code bKeyDown. Is it possible to handle the event releasing Shift ?

[Silvio.Falconi]

you must create a func and insert a codeblock

type this:

oBrw:bKeyDown := {|nKey| MyfunctionTecla(nKey,oBrw,oDlg) }

Function MyfunctionTecla(nKey,oGrid,oDlg)
Do case
case nKey==VK_RETURN
// here your function of modify record
case nKey==VK_INSERT
// here your function of add record
case nKey==VK_DELETE
// here your function of delete record
case nKey==VK_ESCAPE
oDlg:End()
OTHERWISE
IF nKey >= 96 .AND. nKey <= 105
// here your function of search record
ELSEIF HB_ISSTRING(CHR(nKey))
// here your function of search record
ENDIF
EndCase

return nil

[Natter]

I do not understand how using bKeyDown you can handle releasing the previously pressed the Shift key. I tried to use bKeyUp. Did not work

[MGA]

Natter,

...
CASE ( nKey == VK_F11 )
if GetKeyState( VK_SHIFT )
endif
...