ListBox con diferente color de fuente
 

Hola a todos,

Resulta que tengo un TListBox al cual le he pasado unos items que coloque en una variable TStringList (8AM,10AM,12PM,2PM,4PM, etc) , pero deseo que despues de haberle pasado estos items cambiarle de color el item que tiene por ejemplo 12PM. He buscado ejemplos pero sinceramente no entiendo mucho debido a que soy muy novato aun.

Gracias de antemano

Hola Jose Roman.

Un ejemplo:

Código Delphi [-]
...
implementation

procedure TForm1.FormCreate(Sender: TObject);
begin
  with ListBox1 do
  begin
    Items.Add('8PM');
    Items.Add('10AM');
    Items.Add('12PM');
    Items.Add('2PM');
    Items.Add('4PM');
    Items.Add('5AM');
    Style := lbOwnerDrawFixed;
  end;
end;

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
  with TListBox(Control) do
  begin
    if Items[Index] = '12PM' then
    begin
      Canvas.Brush.Color := clRed;    // fondo rojo
      Canvas.Font.Color  := clWhite;  // letra blanca
    end;
    Canvas.FillRect(Rect);
    Canvas.TextOut(Rect.Left, Rect.Top, Items[Index]);
  end;
end;

Saludos. :)

Gracias ecfisa funciono de maravilla...