topic-35877

Board index FiveWin para Harbour/xHarbour Dudas con SetResDebug

Posts: 1364

Joined: Wed Jun 21, 2006 12:39 AM

Dudas con SetResDebug
Posted: Tue Jul 17, 2018 04:58 PM

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

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 (fw): Select all Collapse

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

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: Dudas con SetResDebug
Posted: Tue Jul 17, 2018 06:10 PM

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

Code (fw): Select all Collapse

    MENU oMnu

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces

horacio

Posts: 1364

Joined: Wed Jun 21, 2006 12:39 AM

Re: Dudas con SetResDebug
Posted: Tue Jul 17, 2018 07:32 PM

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 (fw): Select all Collapse

//----------------------------------------------------------------------------//
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

FiveTech Support Forums

Continue the discussion