Page 1 of 1
Twbrowse y el font
Posted: Thu Jun 07, 2007 9:10 am
by goosfancito
Gente.
Estoy intentando cambiar el tipo de fuente de la TW modificada por Hernan y no me da un tronco de bola.
Code: Select all
case aItems != nil
@ aPos[ 1 ], aPos[ 2 ] COMBOBOX ::oGet VAR uVar ITEMS aItems ;
SIZE nWidth, Max( 200, Len( aItems ) * 25 ) OF Self ;
FONT oFont COLOR nClrFore, nClrBack ;
ON CHANGE ::End() ;
PIXEL
Entiendo que es en ese tramo del fuente, pero no me deja, me hace un font muy chico al momento de editar.
Posted: Thu Jun 07, 2007 3:34 pm
by Francisco Horta
goos,
me imagino que estas cambiando la font en el modo de edicion de browse, porque no cambias la font desde el browse, no en la edicion, le puedes indicar en que columna y listo, creo es mas facil...
prueba a hacer esto:
oBrw:bFont := {|nRow,nCol,nStyleLine| CambiaFuente( nRow, nCol, nStyleLine, oFont[1], oFont[2], oFont[3] ) }
Function CambiaFuente( nRow, nCol, nStyle, oF1, oF2, oF3 )
local cFont
if nStyle = 0 .AND. nCol = 1
cFont := oF1:hFont // celda standard normal
elseif nStyle = 3 .AND. nCol = 1
cFont := oF3:hFont // celda standard normal seleccionada
endif
Return( cFont )
salu2
paco
Posted: Thu Jun 07, 2007 6:08 pm
by goosfancito
Andubo Gracias.
Francisco Horta wrote:goos,
me imagino que estas cambiando la font en el modo de edicion de browse, porque no cambias la font desde el browse, no en la edicion, le puedes indicar en que columna y listo, creo es mas facil...
prueba a hacer esto:
oBrw:bFont := {|nRow,nCol,nStyleLine| CambiaFuente( nRow, nCol, nStyleLine, oFont[1], oFont[2], oFont[3] ) }
Function CambiaFuente( nRow, nCol, nStyle, oF1, oF2, oF3 )
local cFont
if nStyle = 0 .AND. nCol = 1
cFont := oF1:hFont // celda standard normal
elseif nStyle = 3 .AND. nCol = 1
cFont := oF3:hFont // celda standard normal seleccionada
endif
Return( cFont )
salu2
paco
