Cambiar color de Font en un ListBox

[Javi2]

Hola, tengo un ListBox que relleno en tiempo de ejecución con una lista de fechas, de manera que si la fecha es anterior a la fecha actual, se escriba de un color y sino, de otro color.

¿ Cómo puedo hacer esto ?

Muchas gracias.

[Javi2]

Solucionado. Perdón por las molestias.

Gracias a todos

[yusnerqui]

Empezado por TrucoManía

-Basta con que pongamos su propiedad Style a lbOwnerDrawFixed y pongamos el siguiente código en su evento
OnDrawItem:

Código Delphi [-]
 
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin 
  with (Control as TListBox) do 
  begin 
    {The Odd Items in Red, the others in black}
    {Los Items pares de color rojo}
    {Los impares en negro}
    if Odd(Index) then Canvas.Font.Color:=clRed
                  else Canvas.Font.Color:=clBlack;
    Canvas.FillRect(Rect);
    Canvas.TextOut(Rect.Left,Rect.Top,Items[Index]);
  end; 
end;

El ejemplo dibuja los Items pares en rojo y los impares en negro, pero puedes poner la condición que tu quieras...

Espero esto te sirva, y lo puedas adaptar a lo que quieres.

un saludo.

[yusnerqui]

Empezado por Javi2

Solucionado.

Mmm, creo que llegué tarde



Saludos

[Oscar Guzmán]

Muchas gracias Yusnerqui,

Necesitaba colocar sólo una línea del ListBox en rojo y el ejemplo me sirvió de mucho, gracias.