Menu popup no me ejecuta como quiero

[goosfancito]

Hola.
Tengo esto:

Code: Select all  Expand view

  Menu oMenu popup

   EndMenu

   FOR nItem := 1 TO Len( ::aUltimosProyectos )
      cFile := ::aultimosProyectos[ nItem ][ 1 ]
      cB:= ::aUltimosProyectos[ nItem ][ 2 ]
      oMenu:ADD( TMenuItem():New( cB,,,, { || MsgInfo( cfile ), ::cargarproyecto( cB ) } ), .F. )
   NEXT nItem
 

pero cada vez que va a ::cargaProyecto(cb) el valor de cb siempre es el mismo,
como hago para que cambie' que estoy haciendo mal en la definicion ?

gracias.

[Mike Serra]

Gustavo, buenas tardes:

Creo que el problema está en que necesitas usar "detached locals". Busca en el foro con esa descripción y creo que podrás resolver el problema.

Un Saludo,

[Mike Serra]

Prueba en este enlace:

viewtopic.php?f=3&t=20940&start=0&hilit=detached+locals

[goosfancito]

ahora lo veo.

GRACIAS!

[goosfancito]

Sigue sin funcionar.

He probado:

Code: Select all  Expand view

for nItem:= 1 to 5
     ...
     oMenu:ADD( TMenuItem():New( cB,,,, { || ::cargarproyecto( ::bloquear(cFile )) } ), .F. )
...

METHOD bloquear(cFile)
   RETURN {||cFile}
 

y luego hago

Code: Select all  Expand view

method cargarProyecto(cFile)
    cAux:=eval(cFile)
    ? cAux
    ...

 

y siempre devuelve el mismo valor,

[RenOmaS]

Code: Select all  Expand view

for nItem:= 1 to 5
     ...
 //    oMenu:ADD( TMenuItem():New( cB,,,, { || ::cargarproyecto( ::bloquear(cFile )) } ), .F. )
                 MENUITEM oItem PROMPT cB OF oMenu ;
                          BLOCK { |o| ::cargarproyecto( ::bloquear( o:Cargo )) }
                oItem:Cargo := cFile
...

METHOD bloquear(cFile)
   RETURN {||cFile}