font en browse

[Francisco Sanchez]

es un dbfbrowse, y como puedo hacer para cambiar el font de una de las
lineas en funcion del valor logico de uno de los campos de la tabla ?, o por
ejemplo, en los t reeview se puede controlar con lBold, pues supongo que con
el browse seria :oFont:lBold := .T., pero como lo hago para unas lineas si
otras no?
puse esto :oFont:lBold := iif( ( ::aAliasTEMP[1] )->l_grupo == .T., .T.,
..F. ) pero me lo toma en todas las filas,
Atentamente : Francisco Sanchez GERENTE GRUPO ST - Software TOTAL

[ignacio]

Francisco,
Lo más correcto sería tener dos fonts ya que sino estas creando y
destruyendo fonts constantemente que puede ser muy lento. A continuación te
propongo una forma de hacerlo. Fijate en la definición de cada método que
indica claramente sobre que eventos actuan.
Un saludo,
//---------------------------------------------------------- --------------------
METHOD FormCreate( oSender ) CLASS TForm1
With Object ::oFontBold := ::oFont:Clone()
:lBold := .t.
End with
RETURN Nil
//---------------------------------------------------------- --------------------
METHOD FormDestroy( oSender ) CLASS TForm1
::oFontBold:Destroy()
RETURN Nil
//---------------------------------------------------------- --------------------
METHOD DbfBrowse1DrawRow( oSender, nRowPos ) CLASS TForm1
With Object oSender
if nRowPos % 2 == 0
:lParentFont := .f.
:oFont := ::oFontBold
else
:oFont := nil
:lParentFont := .t.
endif
End with
RETURN Nil
//---------------------------------------------------------- --------------------
"Francisco Sanchez" <francisco@softwaretotal.biz> escribió en el mensaje
news:4284f0ef$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
> es un dbfbrowse, y como puedo hacer para cambiar el font de una de las
> lineas en funcion del valor logico de uno de los campos de la tabla ?, o
> por ejemplo, en los t reeview se puede controlar con lBold, pues supongo
> que con el browse seria :oFont:lBold := .T., pero como lo hago para unas
> lineas si otras no?
>
> puse esto :oFont:lBold := iif( ( ::aAliasTEMP[1] )->l_grupo == .T., .T.,
> .F. ) pero me lo toma en todas las filas,
>
> Atentamente : Francisco Sanchez GERENTE GRUPO ST - Software TOTAL
>