Page 1 of 1

wbrowse ----> xbrowse

Posted: Thu Jan 12, 2006 12:37 am
by Silvio
With Wbrowse( ceccarelli) I used a function to use user functions

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

Posted: Thu Jan 12, 2006 3:54 pm
by VeRCE
The same way silvio.

Regards

Posted: Thu Jan 12, 2006 4:18 pm
by Silvio
Dear Jcso ,
the same not run ok ...

Posted: Thu Jan 12, 2006 6:54 pm
by VeRCE
Silvio wrote:Dear Jcso ,
the same not run ok ...
Check your code, it must run ok.