Sugerencia: Activar bAction de tGet con F3

Sugerencia: Activar bAction de tGet con F3

Postby RSalazarU » Sat Nov 25, 2017 12:06 am

Antonio:

La clase TGet deberia tener un acelerador en el teclado que ejecute ::bAction de la clase TGet.

Para tener esta opcion en mis programas yo hago los siguiente:
Code: Select all  Expand view

   oCtrl:bKeyDown := {|nK, nF, oGet|if(nK = VK_F3, (Eval(oGet:bAction,oGet),0), NIL)}
 

Esto funciona perfecto.

Si embargo, en la clase TGET, esto podria estar por defecto y bajo alguna DATA condicional.
Asi entonces en el metodo ::KeyDown() se podria insertar este codigo.
Code: Select all  Expand view

        :
        case nKey == VK_F3 .AND. ::lActionOnF3
               Eval(:bAction, Self)
               Return 0
       :
 


Espero que le sirva a alguien .

Rolando
Cochabamba, Bolivia
RSalazarU
 
Posts: 211
Joined: Wed Jul 16, 2008 12:59 pm
Location: Cochabamba-Bolivia

Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot], Willi Quintana and 10 guests