FiveTech Software tech support forums

Gracias Francisco, funcionó perfecto

gdeteran wrote:Necesito cambiar el color del texto en fila que cumpla una condición.

mira si este post ayuda.
viewtopic.php?f=6&t=29036&hilit=color+texto+en+xbrowse#p163479
Saludos.

Necesito cambiar el color del texto en fila que cumpla una condición.

... en el Foro y pienso que me
pueden servir. La tengo en un programa que se llama Treepad Lite.
Suerte.

nNumeroDaColunaAColorar := 2
...
oTBLLbx:bTextColor := {|nRow,nCol| CLR_BLACK }
oTBLLbx:bbkColor := {|nRow,nCol| PintaCelula(nRow,nCol,DBF->CAMPO,nNumeroDaColunaAColorar) }
...

Function ...

Te pongo este ejemplo amigo, espero que te sirva, esta hecho con listbox

oLbx4:bTextColor := { | nRow, nCol, nStyleLine | ColoresTexto( nRow, nCol, nStyleLine, oDlg2 ) }

STATIC Function ColoresTexto( pnRow, pnCol, pnStyle, oFolder )
Local cColor, nPaso, i:=0, cCampo:=""

DO CASE
CASE pnStyle = 0 ...

... bLine,;
::aColSizes, ::nColPos, ::nClrText, ::nClrPane,;
If( ::oFont != nil, ::oFont:hFont, 0 ), ::aJustify, ;
::nLineStyle, 0 , .f., ::bTextColor, ::bBkColor, ::nClrLine,;
::oBrush:nRGBColor, ::bFont ) )
#endif

if ::nLen < ::nRowPos
::nRowPos = ::nLen
endif
::DrawSelect()

endif ...

... hWnd, hDC, nRow, aText, aSizes, nFirstItem, ;
// nClrFore, nClrBack, hFont, lTree, aJustify, nPressed,
// nStyle, nColAct, lFocused )
// bTextColor, bBkColor, nClrLine, lFooter, lSelect,
// bFont, lDrawFocusRect ) // New's by CesoTech

{
HWND hWnd = (HWND) hb_parnl( 1 );
HDC hDC = (HDC) hb ...

... lo siguiente, pero pierdo la cabecera:
oLbx:lCellstyle:=.t.
///oLbx:nFreeze:=1
oLbx:nlineStyle:=3
///Olbx:aHJustify:={2,2,2,2,2,2}
///olbx:bTextColor:={ |nRow,nCol| if(nCol==1,CLR_BLACK,)}
///olbx:bBkColor:={ |nRow,nCol| if(nCol==1,wClrBack,)}
///olbx:nHeaderHeight:=33 //permite definir el ...

... jpg

he aqui el codigo
oBCmp:nClrPane := {|| IIF((oBCmp:cAlias)->(OrdKeyNo())%2==0,nRGB(248,248,248),nRGB(220,255,220))} //236,255,236
oBCmp:bTextColor:={|nRow,nCol,nStyleLine| IF(nCol>1 .AND. nStyleLine=0 .AND. (oDCmp)->Status=="C",CLR_HRED,)}

oBCmp:bBkColor := {|nRow,nCol,nStyle| If( nStyle ...

... hWnd, hDC, nRow, aText, aSizes, nFirstItem, ;
// nClrFore, nClrBack, hFont, lTree, aJustify, nPressed,
// nStyle, nColAct, lFocused )
// bTextColor, bBkColor, nClrLine, lFooter, lSelect,
// bFont, lDrawFocusRect ) // New's by CesoTech

{
HWND hWnd = (HWND) hb_parnl( 1 );
HDC hDC = (HDC) hb ...

... nKey| If(nKey==VK_RETURN,EVAL(oBrf:bLDblClick),EVAL(oBrf:bLClicked))}
oBrf:aColSizes :={20,20,20,20,20,20,20}
oBrf:lCellStyle :=.T.
oBrf:bTextColor :={|nRow,nCol,nStyle| IF(nCol=1 .AND. nStyle=0,CLR_HRED,)}

oDlf:lHelpIcon := .f.
REDEFINE BUTTON ID 104 OF oDlf ACTION (lSel:=.T.,oDlf:End ...

... jpg

he aqui el codigo
oBCmp:nClrPane := {|| IIF((oBCmp:cAlias)->(OrdKeyNo())%2==0,nRGB(248,248,248),nRGB(220,255,220))} //236,255,236
oBCmp:bTextColor:={|nRow,nCol,nStyleLine| IF(nCol>1 .AND. nStyleLine=0 .AND. (oDCmp)->Status=="C",CLR_HRED,)}

oBCmp:bBkColor := {|nRow,nCol,nStyle| If( nStyle ...

... 3006/brw1&#46;jpg
aqui el codigo:
oBrw[x]:bBkColor := { | nRow, nCol, nStyleLine | ColoresCelda( nRow, nCol, nStyleLine, oFolder ) }
oBrw[x]:bTextColor := { | nRow, nCol, nStyleLine | ColoresTexto( nRow, nCol, nStyleLine, oFolder ) }
oBrw[x]:bFont := {|nRow,nCol,nStyleLine| SeleccionaFuente ...

... nHeight-200, .t. )
Brw1:bBkColor:= {|nRow,nCol,nStyle| ;
if( nStyle==3 .OR. nStyle=0, if( nCol==1,GetSysColor( COLOR_BTNFACE ),),) }
Brw1:bTextColor:= {|nRow,nCol,nStyle| ;
if( nStyle==3 .OR. nStyle=0, if( nCol==1,RGB( 192,192,192 ),),) }
Brw1:bKeyChar := {|nK| if( nK==VK_RETURN,Brw1:Edit ...

Solucionado.,. sorry..

oLbxR:bTextColor := { |nRow,nCol|ColorRegComVen(nCol))}


Function ColorRegComVen(nCol)
DO CASE
CASE nCol = 1 .OR. nCol = 4 .OR. nCol = 9 // fecha y ruc
Return CLR_GREEN
CASE nCol = 2 // valores
Return CLR_HBLUE
CASE nCol = 3 // valores
Return CLR_BLUE
CASE ...