FiveTech Software tech support forums

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

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

Posted: **Mon Jul 22, 2013 10:01 am**

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 )

Posted: **Mon Jul 22, 2013 1:10 pm**

Gracias Antonio, ahora funcionó.

Luis

Posted: **Mon Jul 22, 2013 3:48 pm**

Luis,

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

Posted: **Mon Jul 22, 2013 4:13 pm**

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

Posted: **Mon Jul 22, 2013 5: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 )

Posted: **Tue Jul 23, 2013 11:04 am**

Sí Antonio en el programa principal.

Luis

FiveTech Software tech support forums

uso de checkres()

uso de checkres()

Re: uso de checkres()

Re: uso de checkres() (solucionado)

Re: uso de checkres()

Re: uso de checkres()

Re: uso de checkres()

Re: uso de checkres()