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.

... veo 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:="" ...

... Self, ::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 ::DispEnd( ...

... ) // ( 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) ...

... 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 ...

... 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| ...

... ) // ( 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) ...

... :={|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()) ...

... 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| ...

... 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( ...

... oWnd: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(Brw1:nColAct,.t.),) ...

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 ...