Copiar y pegar en GET

Copiar y pegar en GET

Postby fleal » Wed Nov 29, 2006 6:22 pm

Algunos buscan más funcionalidad y otros que no la quieren.
Me han solicitado quitar el Control+C y Control+V en los gets.
Tambien que no aparezca el menú al hacer click en el botón derecho del mouse.

¿Ideas?
fleal
 
Posts: 234
Joined: Tue Oct 25, 2005 12:39 am
Location: México, DF

Postby horacio » Wed Nov 29, 2006 7:19 pm

fleal

Podes usar oGet : bKeyDown para asignar acciones desde el teclado
y para que no te aparezca el menu de contexto oGet : bRClicked := { || .t. }
horacio
 
Posts: 1358
Joined: Wed Jun 21, 2006 12:39 am
Location: Capital Federal Argentina

Buena idea, pero...

Postby fleal » Wed Nov 29, 2006 7:31 pm

Horacio,
bkeydown es buena idea.... ¿Pero como saber si han presionando Ctrl+C ó Ctrl+V ?

Puedo saber si ha presiona una tecla pero no sé como identificar una combinación de teclas.

Gracias
Fernando
fleal
 
Posts: 234
Joined: Tue Oct 25, 2005 12:39 am
Location: México, DF

Postby Francisco Horta » Wed Nov 29, 2006 10:30 pm

Fer, para verificar la combinacion de teclas yo la uso asi sin problemas:
GETASYNCKEY(VK_SHIFT,VK_TAB)
espero te sirva
salu2
paco
Francisco Horta
 
Posts: 845
Joined: Sun Oct 09, 2005 5:36 pm
Location: la laguna, mexico.

Gracias

Postby fleal » Wed Nov 29, 2006 11:16 pm

Paco,
Ya veo que hay más de un camino para lograr lo mismo.

Sucede que en la captura de un dato largo he importante, el capturista marca el get completo, entonces hace Ctrl+C y luego el programa solicita se confirme ese dato. Pues el muy listillo ahora solo usa Ctrl+V y pues ya se jodio la cosa. Por que ese paso está hecho para confirmar la veracidad de la información. Asi pues... al hacer eso el dato se confirma.
Pero si a patadas vamos... pues entonces. Yo he puesto esto:

aGets[1]:bKeyDown := { | nKey, nFlags, oGet | IF( GetKeyState( VK_CONTROL ) , ;
msgstop("blocked") , TRUE ) }

aGets[1]:bRClicked := { | nRow, nCol, nFlags | msginfo("blocked" ) }

Como ves les estoy incapacitando el usar la tecla CONTROL y también el botón Derecho del mouse. :-) Como decimos aquí. ¡¡ A la Goma, que hagan bien el trabajo como se debe!!

Gracias
fleal
 
Posts: 234
Joined: Tue Oct 25, 2005 12:39 am
Location: México, DF


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 30 guests