topic-7215

Posts: 1956

Joined: Fri Oct 07, 2005 07:08 PM

Twbrowse y el font
Posted: Thu Jun 07, 2007 09:10 AM

Gente.

Estoy intentando cambiar el tipo de fuente de la TW modificada por Hernan y no me da un tronco de bola.

      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.

FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/

Francisco Horta

Posts: 845

Joined: Sun Oct 09, 2005 05:36 PM

Twbrowse y el font
Posted: Thu Jun 07, 2007 03:34 PM

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

____________________

Paco

goosfancito

Posts: 1956

Joined: Fri Oct 07, 2005 07:08 PM

Twbrowse y el font
Posted: Thu Jun 07, 2007 06:08 PM

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

FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/

FiveTech Support Forums

Continue the discussion