Hola;
En el LISTBOX para cambiar la fuente hacía:
oBrowse:Selfont()
oBrowse:Refresh()
Pero no marcha en TXBrowse(), ¿por qué?. Muchas gracias.
Salu2
Board index FiveWin para Harbour/xHarbour cambiar fuente en TXBrowse()
Prueba asignandole el font asi:
obrowse:SetFont (no SelFont)
SALUDOS
Nada, sigue sin ir. He probado:
LOCAL oFont
DEFINE FONT oFont FROM USER
oBrowse:Setfont(oFont)
oBrowse:Refresh()
Y NO funciona. Muchas gracias.
Local oFont
DEFINE FONT oFont NAME "Arial" SIZE 0, -8 BOLD
...
oCol := oBrw:AddCol()
oCol:bStrData := { || _FIELD->First}
oCol:cHeader := "First"
oCol:oDataFont := oFont
Gracias, pero lo que quiero es que el usuario pueda cambiar la fuente durante la ejecución del programna
Por favor, necesito que el usuario pueda cambiar la fuente durante la visualización del xbrowse!!.
Muchísimas gracias!!!!!!!!!!!!!!!!!!
Edu,
Añade este método a la Clase TXBrowse:
Para usarlo:
oXBrowse:SelFont()
Añade este método a la Clase TXBrowse:
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 nilPara usarlo:
oXBrowse:SelFont()
Muchas gracias, ahora sí funciona.
No obstante, he encontrado un error al seleccionar la fuente. Pulsa Cancelar y en vez de mantener la fuente original, la vuelve negrita.
Edu,
Se soluciona con un pequeño cambio:
Se soluciona con un pequeño cambio:
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