creo que no se le puede cambiar el font en la edicion, pero te doy una solucion...
en la clase TXBrwColumn agrega una nueva data
oEditFont
en el metodo Adjust()
- Code: Select all Expand view
DEFAULT ::oDataFont := ::oBrw:oFont,;
::oHeaderFont := ::oBrw:oFont,;
::oFooterFont := ::oBrw:oFont,;
::oEditFont := ::oBrw:oFont //<====agrega esto
en el metodo Edit()
- Code: Select all Expand view
local oFont // < == agregar
if ValType ( ::oEditFont ) == "B" // <== agregar
oFont = Eval( ::oEditFont, Self ) // <== agregar
else // <== agregar
oFont = ::oEditFont // <== agregar
endif // <== agregar
en el mismo metodo agregar el objeto oFont al crear el get
- Code: Select all Expand view
if Empty( cPic ) .and. ::oBrw:nDataLines > 1
::oEditGet := TMultiGet():New( 0,0,{ | u | If(PCount()==0,uValue,uValue:= u ) },;
::oBrw,0,0,oFont,.F.,aColors[ 1 ],aColors[ 2 ];
,,.F.,,.F.,,lCenter,lRight,.F.,,,.F.,.T.,.T. )
else
::oEditGet := TGet():New( 0,0,{ | u | If(PCount()==0,uValue,uValue:= u ) },;
::oBrw,0,0,cPic,,aColors[ 1 ],aColors[ 2 ];
,oFont,.F.,,.F.,,.F.,,lCenter,lRight,,.F.,.f.,.T.,,.F.,,,,)
endif
si detallas bien esta incluido el objeto oFont en la creacion de GET.
la data oEditFont se puede usar como code block u objeto
oBrw:aCols[ 1 ]:oEditFont = oFont // objeto
oBrw:aCols[ 1 ]:oEditFont = {|| if ( verdadero, oFont1, oFont2 } // code block