Page 1 of 1

Reprogramas teclas

PostPosted: Wed Feb 01, 2017 11:00 pm
by artu01
Gente:
Como hago para reprogramar las teclas, es decir estando en la pantalla principal el cliente
no quiere perder tiempo dando click con el mouse para abrir una opcion del menu....quiere hacerlo
directamente con teclado

Gracias

Re: Reprogramas teclas

PostPosted: Wed Feb 01, 2017 11:03 pm
by cnavarro
Code: Select all  Expand view


            MENUITEM "Mi Item" + Chr( 9 ) + "Ctrl+N" ;
              ACTION MyAction() ;
              ACCELERATOR ACC_CONTROL, Asc( "N" )
 

Re: Reprogramas teclas

PostPosted: Thu Feb 02, 2017 10:51 am
by acuellar
Fuera del menú con teclas de función así

Code: Select all  Expand view

SetKey( VK_F11, { || MyAccion() } )  
 

Re: Reprogramas teclas

PostPosted: Thu Feb 02, 2017 10:37 pm
by artu01
Excelente muchachos funciona

Gracias

Re: Reprogramas teclas

PostPosted: Thu Feb 02, 2017 10:49 pm
by artu01
Otra pregunta Saben cual es el codigo para capturar las flechas izquierda, derecha y abajo del teclado?
Son las mismas que de las tablas ASCII ?

Re: Reprogramas teclas

PostPosted: Fri Feb 03, 2017 4:00 pm
by acuellar
Aqui con la ventana principal


Code: Select all  Expand view

 oWnd:bKeyDown:= { |nKey| if(nkey= 37,Izquierda(), ),if(nkey= 38,Arriba(), ) ,if(nkey= 39,Drcha(), ),if(nkey= 40,Abajo(), ) }
 

Re: Reprogramas teclas

PostPosted: Tue Feb 07, 2017 5:49 pm
by artu01
Gracias por responder aCuellar
la reprogramacion de flechas de izquierda y derecha era para que se ordene la columna en el xbrowse a la cual me moviese pero opte por
utilizar la tecla F11 para lograr aquello.

Gracias