topic-26826

Posts: 652

Joined: Wed Oct 19, 2005 12:03 PM

uso de checkres()
Posted: Mon Jul 22, 2013 12:26 AM

Hola a todos estoy tratando de ver si me quedan recursos en memoria usando SetResDebug( .T. )

y me da este resultado

21/07/2013 21:03:14: FONT,-1811279999,ORIGEN(130)
    
21/07/2013 21:03:14: FONT,487198102,TMSGBAR:DEFAULT(205)->TMSGBAR:NEW(136)->ORIGEN(141)
    
21/07/2013 21:03:14: FONT,923405619,PEDIDO(272)->(b)PEDIDOVE(77)->TBTNBMP:CLICK(465)->TBTNBMP:LBUTTONUP(656)->TCONTROL:HANDLEEVENT(1714)->TBTNBMP:HANDLEEVENT(1408)->_FWH(3177)->DIALOGBOX(0)->TDIALOG:ACTIVATE(270)->PEDIDOVE(150)->(b)ORIGEN(159)->TBTNBMP:CLICK(465)->TBTNBMP:LBUTTONUP(656)->TCONTROL:HANDLEEVENT(1714)->TBTNBMP:HANDLEEVENT(1408)->_FWH(3177)->WINRUN(0)->TMDIFRAME:ACTIVATE(990)->ORIGEN(208)
    
21/07/2013 21:03:14: ====================================================================================================   
21/07/2013 21:04:46: FONT,2013926003,TMSGBAR:DEFAULT(205)->TMSGBAR:NEW(136)->ORIGEN(141)
    
21/07/2013 21:04:46: FONT,722078738,PEDIDO(272)->(b)PEDIDOVE(77)->TBTNBMP:CLICK(465)->TBTNBMP:LBUTTONUP(656)->TCONTROL:HANDLEEVENT(1714)->TBTNBMP:HANDLEEVENT(1408)->_FWH(3177)->DIALOGBOX(0)->TDIALOG:ACTIVATE(270)->PEDIDOVE(150)->(b)ORIGEN(159)->TBTNBMP:CLICK(465)->TBTNBMP:LBUTTONUP(656)->TCONTROL:HANDLEEVENT(1714)->TBTNBMP:HANDLEEVENT(1408)->_FWH(3177)->WINRUN(0)->TMDIFRAME:ACTIVATE(990)->ORIGEN(208)
    
21/07/2013 21:04:46: ====================================================================================================   
21/07/2013 21:06:56: ====================================================================================================   
21/07/2013 21:10:05: FONT,1158286410,TMSGBAR:DEFAULT(205)->TMSGBAR:NEW(136)->ORIGEN(141)
    
21/07/2013 21:10:05: ====================================================================================================   
21/07/2013 21:20:53: FONT,587861728,TMSGBAR:DEFAULT(205)->TMSGBAR:NEW(136)->ORIGEN(141)
    
21/07/2013 21:20:53: FONT,1963593745,TWBROWSE:LEDITCOL(3853)->EDITACELDA(486)->(b)PEDIDO(369)->__EDIT(3624)->(b)TWBROWSE:EDIT(3570)->(b)TDIALOG:TDIALOG(87)->TDIALOG:DISPLAY(0)->TDIALOG:HANDLEEVENT(874)->DIALOGBOXINDIRECT(0)->TDIALOG:ACTIVATE(270)->TWBROWSE:EDIT(3571)->(b)PEDIDO(43)->(b)PEDIDO(316)->TGET:LVALID(1199)->TGET:FWLOSTFOCUS(1134)->TCONTROL:HANDLEEVENT(1699)->TGET:HANDLEEVENT(584)->_FWH(3177)->SYSREFRESH(0)->TCONTROL:KEYCHAR(825)->TGET:KEYCHAR(1113)->TWINDOW:HANDLEEVENT(0)->TCONTROL:HANDLEEVENT(1724)->TGET:HANDLEEVENT(584)->_FWH(3177)->DIALOGBOX(0)->TDIALOG:ACTIVATE(270)->PEDIDO(398)->(b)PEDIDOVE(77)->TBTNBMP:CLICK(465)->TBTNBMP:LBUTTONUP(656)->TBTNBMP:LBUTTONDOWN(596)->TCONTROL:HANDLEEVENT(1711)->TBTNBMP:HANDLEEVENT(1408)->_FWH(3177)->DIALOGBOX(0)->TDIALOG:ACTIVATE(270)->PEDIDOVE(150)->(b)ORIGEN(159)->TBTNBMP:CLICK(465)->TBTNBMP:LBUTTONUP(656)->TCONTROL:HANDLEEVENT(1714)->TBTNBMP:HANDLEEVENT(1408)->_FWH(3177)->WINRUN(0)->TMDIFRAME:ACTIVATE(990)->ORIGEN(208)
    
21/07/2013 21:20:53: ====================================================================================================

Mi consulta es si me esta cerrando el objeto font, ya que en el programa lo destruyo con font.end()

Code (fw): Select all Collapse

      oBmp:Progress( .f. )
      oBmp:LoadImage( , "fondomeg.jpg" )

  ACTIVATE WINDOW oVentPrinc MAXIMIZED

  oFont:end()
  SET RESOURCES TO

No tengo claro si lo esta cerrando.

Gracia

Antonio Linares

Posts: 44162

Joined: Thu Oct 06, 2005 05:47 PM

Re: uso de checkres()
Posted: Mon Jul 22, 2013 10:01 AM

Luis,

Prueba a hacer esto en tu PRG:

Code (fw): Select all Collapse

while oFont:nCount > 0
   oFont:End()
end

y comprueba si te limpia esos fonts que te quedan. Normalmente cuando los fonts quedan activos es porque no se han asignado correctamente, es decir nunca hay que hacer:

oVentanaDialogoControl:oFont = oMiFont

en vez de eso:

oVentanaDialogoControl:SetFont( oMiFont )

regards, saludos

Antonio Linares
www.fivetechsoft.com

surGom

Posts: 652

Joined: Wed Oct 19, 2005 12:03 PM

Re: uso de checkres() (solucionado)
Posted: Mon Jul 22, 2013 01:10 PM

Gracias Antonio, ahora funcionó.

Luis

Antonio Linares

Posts: 44162

Joined: Thu Oct 06, 2005 05:47 PM

Re: uso de checkres()
Posted: Mon Jul 22, 2013 03:48 PM

Luis,

has comprobado si tenias alguna asignación directa de <Objeto>:oFont en tus PRGs ?

regards, saludos

Antonio Linares
www.fivetechsoft.com

cnavarro

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: uso de checkres()
Posted: Mon Jul 22, 2013 04:13 PM

Antonio
Este mismo criterio hay que seguir con los : oBrush := oBrush1 p.e., es decir no usarlo?
Gracias

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

Antonio Linares

Posts: 44162

Joined: Thu Oct 06, 2005 05:47 PM

Re: uso de checkres()
Posted: Mon Jul 22, 2013 05:05 PM

Cristobal,

Asi es. Los brushes en FWH tambien usan un contador, por lo que nunca se puede hacer una asignación directa de un brush.

La forma de asignarlos es similar a los fonts:

oControl:SetBrush( oBrush )

regards, saludos

Antonio Linares
www.fivetechsoft.com

surGom

Posts: 652

Joined: Wed Oct 19, 2005 12:03 PM

Re: uso de checkres()
Posted: Tue Jul 23, 2013 11:04 AM

Sí Antonio en el programa principal.

Luis

FiveTech Support Forums

Continue the discussion