Hola,
es posible en un xbrowse crear lineas que tengan distintos tipos o colores de letra en la misma linea ? Algo como esto: http://widefido.com/products/todopaper/
Saludos,
DEFINE FONT aFont[ 1 ] NAME 'arial' SIZE 0,-8
DEFINE FONT aFont[ 2 ] NAME 'arial' SIZE 0,-10 italic
DEFINE FONT aFont[ 3 ] NAME 'arial' SIZE 0,-12 bold
....
for j = 1 to len( oBrw:aArraydata )
oBrw:aCols[ j ]:oDataFont := {|| if ( oBrw:aRow[ MB_NIVEL ] == 1, aFont[ 1 ],;
( if ( oBrw:aRow[ MB_NIVEL ] == 2, aFont[ 2 ], aFont[ 3 ] ) ) ) }
next
oBrw:aCols[ MB_SALDO ]:bClrStd := {|| if ( val( oBrw:aRow[ MB_SALDO ] ) > 0, {negro, blanco}, {rojo,blanco} )}
DEFAULT ::oDataFont := ::oBrw:oFont,;
::oHeaderFont := ::oBrw:oFont,;
::oFooterFont := ::oBrw:oFont,;
::oEditFont := ::oBrw:oFont //<====agrega esto
local oFont // < == agregar
if ValType ( ::oEditFont ) == "B" // <== agregar
oFont = Eval( ::oEditFont, Self ) // <== agregar
else // <== agregar
oFont = ::oEditFont // <== agregar
endif // <== agregar
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
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: No registered users and 45 guests