uso de checkres()

[surGom]

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

y me da este resultado

Code: Select all  Expand view

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: Select all  Expand view

      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]

Luis,

Prueba a hacer esto en tu PRG:

Code: Select all  Expand view

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 )

[surGom]

Gracias Antonio, ahora funcionó.

Luis

[Antonio Linares]

Luis,

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

[cnavarro]

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

[Antonio Linares]

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 )

[surGom]

Sí Antonio en el programa principal.

Luis