wbrowse ----> xbrowse
Posted: Thu Jan 12, 2006 12:37 am
With Wbrowse( ceccarelli) I used a function to use user functions
and then this function
….
on Xbrowse How I can make it ?
regards
Code: Select all
oBlistbox:bKeyDown:={|nKey| Val_nKey(nKey)}
and then this function
….
Code: Select all
STAT FUNC Val_nKey(nKey)
DO CASE
CASE nKey==VK_INSERT .AND. lABC
KeyToggle(VK_INSERT)
Captura(.T.)
CASE nKey==VK_DELETE .AND. lABC
Sup_Movs()
CASE nKey==VK_RETURN .AND. lABC
Captura(.F.)
CASE nKey==VK_F9
Sel_Pict()
CASE nKey==Asc('I') .AND. GetKeyState(VK_CONTROL)
Imprimir(.F.)
CASE nKey==Asc('P') .AND. GetKeyState(VK_CONTROL)
Imprimir(.T.)
ENDCASE
RETURN (NIL)
on Xbrowse How I can make it ?
regards