Twbrowse y el font

[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.

[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

[goosfancito]

Andubo Gracias.

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