topic-28236

juan fco. vasquez Mendoza

Posts: 102

Joined: Fri May 09, 2008 08:19 PM

Cambiar de Color una linea del LISTBOX
Posted: Wed Mar 26, 2014 06:38 PM

Hola quiero cambiar de color con una condición las lineas del listbox que cumplen con la misma, como lo debo hacer.

Gracias anticipadas,

Juan Fco.
Rep. Dom.

ACC69

Posts: 632

Joined: Tue Dec 12, 2006 07:34 PM

Re: Cambiar de Color una linea del LISTBOX
Posted: Wed Mar 26, 2014 07:19 PM

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 .AND. pnCol = 6 .AND. (S13)->MV_CARG < 0
cColor := CLR_HRED
CASE pnStyle = 0 .AND. pnCol = 7 .AND. (S13)->MV_ABON < 0
cColor := CLR_HRED

CASE pnStyle = 0 .AND. pnCol = 8 .AND. (S13)-&gt;IMPBS1 &lt; 0
      cColor := CLR_HRED
CASE pnStyle = 0 .AND. pnCol = 10 .AND. (S13)-&gt;IVA_1 &lt; 0
      cColor := CLR_HRED

CASE pnStyle = 0 .AND. pnCol = 11 .AND. (S13)-&gt;IMPBS2 &lt; 0
      cColor := CLR_HRED
CASE pnStyle = 0 .AND. pnCol = 13 .AND. (S13)-&gt;IVA_2 &lt; 0
      cColor := CLR_HRED
CASE pnStyle = 0 .AND. pnCol = 14 .OR. pnCol = 16 .AND. (S13)-&gt;OTROS &lt; 0
      cColor := CLR_HRED

ENDCASE
RETURN( cColor )

Saludos

Atte: Adrian C. C.

FiveTech Support Forums

Continue the discussion