Cambiar de Color una linea del LISTBOX

Cambiar de Color una linea del LISTBOX

Postby juan fco. vasquez Mendoza » Wed Mar 26, 2014 6: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.
juan fco. vasquez Mendoza
 
Posts: 84
Joined: Fri May 09, 2008 8:19 pm

Re: Cambiar de Color una linea del LISTBOX

Postby ACC69 » Wed Mar 26, 2014 7: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)->IMPBS1 < 0
cColor := CLR_HRED
CASE pnStyle = 0 .AND. pnCol = 10 .AND. (S13)->IVA_1 < 0
cColor := CLR_HRED

CASE pnStyle = 0 .AND. pnCol = 11 .AND. (S13)->IMPBS2 < 0
cColor := CLR_HRED
CASE pnStyle = 0 .AND. pnCol = 13 .AND. (S13)->IVA_2 < 0
cColor := CLR_HRED
CASE pnStyle = 0 .AND. pnCol = 14 .OR. pnCol = 16 .AND. (S13)->OTROS < 0
cColor := CLR_HRED
ENDCASE
RETURN( cColor )

Saludos

Atte: Adrian C. C.
ACC69
 
Posts: 632
Joined: Tue Dec 12, 2006 7:34 pm


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 29 guests