wbrowse ----> xbrowse

[Silvio]

With Wbrowse( ceccarelli) I used a function to use user functions

Code: Select all  Expand view


   oBlistbox:bKeyDown:={|nKey| Val_nKey(nKey)}




and then this function
….

Code: Select all  Expand view


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

[VeRCE]

The same way silvio.

Regards

[Silvio]

Dear Jcso ,
the same not run ok ...

[VeRCE]

Dear Jcso ,
the same not run ok ...

Check your code, it must run ok.