Cambiar color de Font en un ListBox

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