Sugerencia: Activar bAction de tGet con F3

Post Reply
RSalazarU
Posts: 177
Joined: Wed Jul 16, 2008 12:59 pm
Location: Cochabamba-Bolivia
Contact:

Sugerencia: Activar bAction de tGet con F3

Post by RSalazarU »

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

   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

        :
        case nKey == VK_F3 .AND. ::lActionOnF3
               Eval(:bAction, Self)
               Return 0
       :
 
Espero que le sirva a alguien .

Rolando
Cochabamba, Bolivia
Post Reply