Hola;
En el LISTBOX para cambiar la fuente hacía:
oBrowse:Selfont()
oBrowse:Refresh()
Pero no marcha en TXBrowse(), ¿por qué?. Muchas gracias.
Salu2
cambiar fuente en TXBrowse()
-
- Posts: 287
- Joined: Fri Apr 14, 2006 5:52 pm
- Location: Córdoba (España)
-
- Posts: 33
- Joined: Sat Jul 07, 2007 5:53 pm
- Antonio Linares
- Site Admin
- Posts: 37481
- Joined: Thu Oct 06, 2005 5:47 pm
- Location: Spain
- Contact:
-
- Posts: 33
- Joined: Sat Jul 07, 2007 5:53 pm
-
- Posts: 33
- Joined: Sat Jul 07, 2007 5:53 pm
ayuda!!!
Por favor, necesito que el usuario pueda cambiar la fuente durante la visualización del xbrowse!!.
Muchísimas gracias!!!!!!!!!!!!!!!!!!
Muchísimas gracias!!!!!!!!!!!!!!!!!!
- Antonio Linares
- Site Admin
- Posts: 37481
- Joined: Thu Oct 06, 2005 5:47 pm
- Location: Spain
- Contact:
Edu,
Añade este método a la Clase TXBrowse:
Para usarlo:
oXBrowse:SelFont()
Añade este método a la Clase TXBrowse:
Code: Select all
METHOD SelFont() CLASS TXBrowse
local oFont, n
DEFINE FONT oFont FROM USER
for n = 1 to Len( ::aCols )
::aCols[ n ]:oDataFont = oFont
next
::Refresh()
return nil
oXBrowse:SelFont()
-
- Posts: 33
- Joined: Sat Jul 07, 2007 5:53 pm
- Antonio Linares
- Site Admin
- Posts: 37481
- Joined: Thu Oct 06, 2005 5:47 pm
- Location: Spain
- Contact:
Edu,
Se soluciona con un pequeño cambio:
Se soluciona con un pequeño cambio:
Code: Select all
METHOD SelFont() CLASS TXBrowse
local oFont, n
DEFINE FONT oFont FROM USER
if oFont:cFaceName != "SYSTEM_FONT"
for n = 1 to Len( ::aCols )
::aCols[ n ]:oDataFont = oFont
next
::Refresh()
endif
return nil