Como Colorear la Fila de ListBox Segun su Condicion

 

En el siguiente artículo nos hemos centrado en explicar cómo mostrar  los campos de una Lista en  colores combinados. Muchos de nosotros  hemos tenido la intención de querer nuestras listas con colores combinados, la cual nos permitan el poder visualizar los registros de una manera distinta a la cual nos tiene acostumbrado  VFP .

Conseguir esos efectos es muy sencillo, tal  como se muestra en la siguiente imagen.

En el Evento Init

PUBLIC P_list

thisform.list1.RowSource =P_list

thisform.list1.RowSourceType = 9

thisform.list1.Requery

En el Evento Load

Create Table prueba Free (codigo c(5),nombre c(25))

Select prueba

Append Blank

Replace codigo With "00001"

Replace nombre With "Producto 1"

Append Blank

Replace codigo With "00002"

Replace nombre With "Producto 2"

Append Blank

Replace codigo With "00003"

Replace nombre With "Producto 3"

Append Blank

Replace codigo With "00004"

Replace nombre With "Producto 4"

Append Blank

Replace codigo With "00005"

Replace nombre With "Producto 5"

Append Blank

Replace codigo With "00006"

Replace nombre With "Producto 6"

Append Blank

Replace codigo With "00007"

Replace nombre With "Producto 7"

Append Blank

Replace codigo With "00008"

Replace nombre With "Producto 8"

x=1

Define Popup P_list

Go Top

Do While !Eof()

            If Mod(x,2)=1

                        Define Bar x Of P_list ;

                        Prompt codigo+"  "+nombre;

                                   FONT "Arial",14 Style "BI";

                                   COLOR , Rgb(216,216,216,0,0,160)

            else

                Define Bar x Of P_list ;

                        Prompt codigo+"  "+nombre;

                                   FONT "Arial",14 Style "BI";

                                   COLOR , Rgb(216,216,216,110,124,154)

            ENDIF          

            Skip

            x=x+1

ENDDO

Espero que este artículo ayude en gran medida a todos aquellos Foxeros que siempre han tenido esta inquietud de poder colorear una Lista.