FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour xbrowse y las fonts...
Posts: 1956
Joined: Fri Oct 07, 2005 07:08 PM

xbrowse y las fonts...

Posted: Tue Nov 11, 2014 03:10 PM
Hola.

Mi problema es que cuando se crea el objeto xBrowse. La primera vez que defino las fuentes a utilizar y el xbrowse se pone en funcionamiento todo anda barbaro, pero luego
cuando hago un:
Code (fw): Select all Collapse
   ::oBrw:END()
   ::aFonts := NIL
   ::oBrw   := NIL

y genero nuevamente las fuentes y el xbrowse... el xbrowse no me muestra las fuentes que defino, osea las aFonts...

Porque me pasa esto?
gracias.
FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/
Posts: 8523
Joined: Tue Dec 20, 2005 07:36 PM

Re: xbrowse y las fonts...

Posted: Tue Nov 11, 2014 04:54 PM
Y asi?

Code (fw): Select all Collapse
static aFonts

   ::aFonts := oSelf:aFonts

   ::aFonts:End()


João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Posts: 1789
Joined: Tue Oct 11, 2005 05:01 PM

Re: xbrowse y las fonts...

Posted: Tue Nov 11, 2014 05:17 PM
si usas las fuentes en cualquier control, al cerrar la ventana o el dialogo, el mismo este se encarga de eliminar las fuentes si es necesario, siempre y cuando uses:

Code (fw): Select all Collapse
DEFINE DIALOG ... FONT oFont
...
REDEFINE BROWSE .... FONT oFont
..
oControl:SetFont( oFont )
...

ya que asi el contador de uso de cada font e correctamente incrementado, asi al hacer un oDlg:end() este se encarga del decrementar el contador de uso del font, y en los casos necesarios, libera la fuente usada.

no es recomendable usar
Code (fw): Select all Collapse
oControl:oFont := oFont



ya que asi el contador no es usado.
Salu2

Carlos Vargas

Desde Managua, Nicaragua (CA)
Posts: 1956
Joined: Fri Oct 07, 2005 07:08 PM

Re: xbrowse y las fonts...

Posted: Tue Nov 11, 2014 05:24 PM
karinha wrote:Y asi?

Code (fw): Select all Collapse
static aFonts

   ::aFonts := oSelf:aFonts

   ::aFonts:End()




Karinha es lo primero q probe, hasta lo puse en nil. luego verifique que == nil y daba de que si.
pero al crar de nuevo el xbrowse y las fuentes, el xbrowse no me muestra las fuentes.
FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/
Posts: 1956
Joined: Fri Oct 07, 2005 07:08 PM

Re: xbrowse y las fonts...

Posted: Tue Nov 11, 2014 05:24 PM
carlos vargas wrote:si usas las fuentes en cualquier control, al cerrar la ventana o el dialogo, el mismo este se encarga de eliminar las fuentes si es necesario, siempre y cuando uses:

Code (fw): Select all Collapse
DEFINE DIALOG ... FONT oFont
...
REDEFINE BROWSE .... FONT oFont
..
oControl:SetFont( oFont )
...

ya que asi el contador de uso de cada font e correctamente incrementado, asi al hacer un oDlg:end() este se encarga del decrementar el contador de uso del font, y en los casos necesarios, libera la fuente usada.

no es recomendable usar
Code (fw): Select all Collapse
oControl:oFont := oFont



ya que asi el contador no es usado.


Carlos, voy a probar lo que me decis.
FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/
Posts: 1789
Joined: Tue Oct 11, 2005 05:01 PM

Re: xbrowse y las fonts...

Posted: Tue Nov 11, 2014 05:56 PM
ahora, si usas esta forma
Code (fw): Select all Collapse
   ::aFonts := NIL

aca eliminas el contenido del arreglo, pero no las referencias a las fuentes
lo correcto creo, seria:
Code (fw): Select all Collapse
aeval( ::aFonts, {|o| o:end() } )
::aFont := NIL
Salu2

Carlos Vargas

Desde Managua, Nicaragua (CA)

Continue the discussion