topic-32934

Posts: 1956

Joined: Fri Oct 07, 2005 07:08 PM

Menu popup no me ejecuta como quiero
Posted: Fri Sep 09, 2016 08:40 AM

Hola.
Tengo esto:

   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.

FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/

Mike Serra

Posts: 297

Joined: Fri Apr 14, 2006 05:52 PM

Re: Menu popup no me ejecuta como quiero
Posted: Fri Sep 09, 2016 10:55 AM

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

Posts: 297

Joined: Fri Apr 14, 2006 05:52 PM

Re: Menu popup no me ejecuta como quiero
Posted: Fri Sep 09, 2016 11:00 AM

Prueba en este enlace:

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

&&&

goosfancito

Posts: 1956

Joined: Fri Oct 07, 2005 07:08 PM

Re: Menu popup no me ejecuta como quiero
Posted: Fri Sep 09, 2016 11:34 AM

ahora lo veo.

GRACIAS!

FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/

goosfancito

Posts: 1956

Joined: Fri Oct 07, 2005 07:08 PM

Re: Menu popup no me ejecuta como quiero
Posted: Sat Sep 10, 2016 10:43 AM

Sigue sin funcionar.

He probado:

Code (fw): Select all Collapse

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

METHOD bloquear(cFile)
   RETURN {||cFile}

y luego hago

Code (fw): Select all Collapse

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

y siempre devuelve el mismo valor,

FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/

RenOmaS

Posts: 205

Joined: Fri Oct 07, 2005 05:07 PM

Re: Menu popup no me ejecuta como quiero
Posted: Sat Sep 10, 2016 04:09 PM

Code (fw): Select all Collapse

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}

Saludos/regards

RenOmaS

skype: americo.balboa

FiveTech Support Forums

Continue the discussion