ListBox con diferente color de fuente

[Jose Roman]

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

[ecfisa]

Hola Jose Roman.

Un ejemplo:

...
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. :)

[Jose Roman]

Gracias ecfisa funciono de maravilla...