Ayuda con @...PUSHBUTTON

por **Ruben Dario** » 02 Fev 2020 19:58

Saludos al Forum
Tengo este codigo como hago para que me tome los valores de STATE diferentes deacuerdo a la opcion

Caso 1
No lo toma el valor toma el ultimo nCont

  nBtn := 0
    FOR nCont = 1 TO Len( ::acButtons )   
           @ pos, iif( nCont == 1, cpos+2, Col()+ 6 ) GET lPrimero PUSHBUTTON;
           CAPTION ::acButtons[ nCont,5 ] STATE  { || nBtn := IsPressed1(nCont)  } ;  
           MESSAGE ::acButtons[ nCont,3 ] COLOR if(::jlopm1,::cBtnClr,::cBtnCl1)
        endif
   NEXT  

      FUNCTION IsPressed1( nButton )
      IF GetActive():control:buffer
         ReadKill( .T. )
      ELSE
         nButton := 0
      ENDIF
   RETURN nButton

Caso 2, tampoco lo ejecuta, el valor del cComExec puede tomar diferentes valores

    cComExec := { || ::reg_nav0001("X0") } 
    FOR nCont = 1 TO Len( ::acButtons )   
           @ pos, iif( nCont == 1, cpos+2, Col()+ 6 ) GET lPrimero PUSHBUTTON;
           CAPTION ::acButtons[ nCont,5 ] STATE  { ||cComExec  } ;  
           MESSAGE ::acButtons[ nCont,3 ] COLOR if(::jlopm1,::cBtnClr,::cBtnCl1)
        endif
   NEXT

por **JoséQuintas** » 03 Fev 2020 11:02

O problema está no codeblock.
Se o codeblock usa o conteúdo da variável nCont, vai ser usada essa variável quando clicar, e o conteúdo vai ser outro.
Talvez usar uma função de construção do codeblock, pra manter o valor fixo.

FOR nCont = 1 TO 5
   BlockButton( nCont )
NEXT

FUNCTION BlockButton( n )
   RETURN { || bBtn := IsPressed1( n ) }

por **Ruben Dario** » 03 Fev 2020 12:51

Gracias por tu informacion, si esto fue lo que hice pero no funciona.