Dudas con SetResDebug

[horacio]

Amigos, estoy utilizando esta función por 1ra vez. Esto es lo que genera.

Code: Select all  Expand view

17/07/2018 13:52:09: C:\t-fe_win10\QBit-gestion.EXE -- BMP,1392839684,TMENUITEM:NEW(358)->MENUADDITEM(278)->MENUASOCIADOS(1134)->TABLAALUMNOS(63)->(b)EVAL(91)->(b)MSGRUN(1613)->(b)TDIALOG(95)->TDIALOG:DISPLAY(0)->TDIALOG:HANDLEEVENT(901)->DIALOGBOXINDIRECT(0)->TDIALOG:ACTIVATE(296)->MSGRUN(1617)->(b)START(91)->TRBTN:CLICK(717)->TRBTN:LBUTTONUP(917)->TCONTROL:HANDLEEVENT(1721)->TRBTN:HANDLEEVENT(1575)->_FWH(3325)->WINRUN(0)->TMDIFRAME:ACTIVATE(1036)->START(114)->MAIN(40)
 

y la linea de código que me marca

Code: Select all  Expand view

Menu
MenuItem oSub[ 15 ] Prompt 'Tipo &1' Resource "bitmap1"  Action FiltraPorComentario( 1 )
MenuItem oSub[ 16 ] Prompt 'Tipo &2' Resource "bitmap2"  Action FiltraPorComentario( 2 )
MenuItem oSub[ 17 ] Prompt 'Tipo &3' Resource "bitmap3"  Action FiltraPorComentario( 3 )
MenuItem oSub[ 18 ] Prompt 'Tipo &4' Resource "bitmap4"  Action FiltraPorComentario( 4 )
EndMenu         
 

No sé como liberar recursos de un menú. Alguien sabe ? Desde ya muchas gracias.

Saludos

[cnavarro]

Qué version de Fw estás utilizando
Otra cosa, por qué no defines una variable para el objeto menu?

Code: Select all  Expand view

    MENU oMnu
 

[horacio]

Gristobal, gracias por responder. Uso FWH1701, bcc7 y Harbour 3.2. La muestra es una parte de un menú mas extenso en donde esta función me advierte que los recursos no han sido destruidos.

Code: Select all  Expand view

//----------------------------------------------------------------------------//
Function MenuAsociados()

   Local oMenu
   
    oSub := Array( 21 )
   
   Menu oMenu NoBorder ColorMenu GetSysColor( 15 ), 0 ColorSelect CLR_HGRAY, nRGB( 145, 201, 247 ), Rgb( 0, 0, 0 )
      Menuitem oSub[ 1 ] Prompt '&Opciones'
      Menu
         Menuitem oSub[ 2 ] Prompt '&Altas Alumnos' + Chr( 9 ) + 'Ins' Action( Abm( .t. ) )    
         Menuitem oSub[ 3 ] Prompt '&Modificación'  + Chr( 9 ) + 'Ret' Action( Abm( .f. ) )
         Menuitem oSub[ 4 ] Prompt '&Bajas'         + Chr( 9 ) + 'Sup' Action( BorraAlumno() )    
         Separator
         Menuitem oSub[ 5 ] Prompt '&Duplicar registro'  Action DuplicaAlumno()      
         Separator
            Menuitem oSub[ 6 ] Prompt '&Imprimir' Action( oBrw : Report() )
         Menuitem oSub[ 7 ] Prompt '&Exportar' Action( MsgRun( 'Leyendo datos, espere por favor ... ',, { || oBrw : ToExcel() } ) )
         Separator
            Menuitem oSub[ 8 ] Prompt '&Cuenta Corriente' Action( CuentaCorriente() )
         Separator
         Menuitem oSub[ 10 ] Prompt '&Histórico Alumnos' Action( IrTablaHistoricos( oSub[ 10 ], 1 ) )
            Menuitem oSub[ 11 ] Prompt '&Filtros'
            Menu
            MenuItem oSub[ 12 ] Prompt '&Filtrar...  '           Action( FiltroCursoSeccion() )
            MenuItem oSub[ 13 ] Prompt 'Filtrar por &Deudores  ' Action( FiltraPorDeudores() )
            MenuItem oSub[ 14 ] Prompt 'Por tipo &comentario'  
            Menu
                MenuItem oSub[ 15 ] Prompt 'Tipo &1' Resource "bitmap1"  Action FiltraPorComentario( 1 )
                MenuItem oSub[ 16 ] Prompt 'Tipo &2' Resource "bitmap2"  Action FiltraPorComentario( 2 )
                MenuItem oSub[ 17 ] Prompt 'Tipo &3' Resource "bitmap3"  Action FiltraPorComentario( 3 )
                MenuItem oSub[ 18 ] Prompt 'Tipo &4' Resource "bitmap4"  Action FiltraPorComentario( 4 )
                EndMenu         
                MenuItem oSub[ 19 ] Prompt 'E&liminar Filtro ...' Action( LimpiaFiltros(), If( lFiltrado, ( oQry : SetFilter( '' ), oBrw : Refresh(), oBrw : SetFocus(), lFiltrado := .f. ), ) )
         EndMenu
         Separator
         MenuItem oSub[ 20 ] Prompt 'Mailing'  Action( Mailings() )
            Separator
         MenuItem oSub[ 21 ] Prompt 'Cerrar'  Action( oWnd : End() )
      EndMenu
   EndMenu
   Return oMenu

 

Saludos