FiveTech Software tech support forums

Posted: **Sat May 03, 2014 12:47 am**

Hola amigos del foro:

Se puede asociar un BtnBmp a una tecla de funcion, sin usar la funcion SetKey().

Dicho de otro modo, que al presiona la tecla F3 se ejecute el bAction de un BtnBmp.

El problema del SetKey() es que si abro un dialogo encima del que tiene el BtnBmp y los setkey() asignados, los setkey() tb son validos para el nuevo dialogo.

De antemano, gracias por la ayuda.

Atentamente,

Rolando
Cochabamba, Bolivia

Posted: **Sat May 03, 2014 4:34 pm**

Rolando Prueba asi :

Code: Select all

aKeys    := { VK_F2, VK_F3 } 

REDEFINE BTNBMP oBtn[1] ID 4002 OF oDlg 2007;
    CENTER;
    PROMPT aOptions[1];
    FONT oFont1;
    ACTION ( lExit:= .T., lValYes:= .T., oDlg:End() );
    GRADIENT {|lInvert| if( lInvert, aClrGradInvert(), aClrGradGreen() ) }

REDEFINE BTNBMP oBtn[2] ID 4003 OF oDlg 2007;
    CENTER;
    PROMPT aOptions[2];
    FONT oFont1;
    ACTION ( lExit:= .T., lValYes:= .F., oDlg:End() );
    GRADIENT {|lInvert| if( lInvert, aClrGradInvert(), aClrGradRed() ) }

  oDlg:bKeyDown = {|nKey| KeyDown( nKey, aKeys, oBtn ) }

 ACTIVATE DIALOG oDlg;
    CENTERED;
    VALID lExit

......

static Function KeyDown( nKey, aKeys, oBtn )
  do case 
    case nKey == aKeys[1]; Eval( oBtn[1]:bAction )
    case nKey == aKeys[2]; Eval( oBtn[2]:bAction )
  endcase
Return nil

Posted: **Sun May 04, 2014 12:27 am**

Exactamente como dice albeiroval: (Probado)

Code: Select all

oDlg:bKeyDown := {|nKey| if(nKey == VK_F3, Eval(oBtn:bAction),) }

Posted: **Sun May 04, 2014 12:42 pm**

Albeiroval, Francisco:

Muy buena la solucion, gracias.

Atentamente,

Rolando.

FiveTech Software tech support forums

Asociar BtnBmp a una tecla de funcion

Asociar BtnBmp a una tecla de funcion

Re: Asociar BtnBmp a una tecla de funcion

Re: Asociar BtnBmp a una tecla de funcion

Re: Asociar BtnBmp a una tecla de funcion