FiveTech Software tech support forums

Code: Select all

   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
 

Code: Select all

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

METHOD bloquear(cFile)
   RETURN {||cFile}
 

Code: Select all

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

 

Code: Select all

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}