Filelist Zeile färben

[Sunlight7]

Das Beispiel kann mal net funktionieren, weil Du es im FormCreate stehen hast
Dazu müsstest Du es in dem OnClick Ereignis von der ListBox machen.

Im OnDrawItem kannst Du die Einträge selbst Zeichnen, und dazu eine Farbe auswählen.

N' Beispiel zu OnDrawItem:

Delphi-Quellcode:

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);
begin
   With TListBox(Control) do begin
      // Farbe wählen
      If Odd(Index) then
         Canvas.Font.Color:=clRed else
            Canvas.Font.Color:=clLime;

      // Fläche übermalen
      Canvas.FillRect(Rect);

      // Text zeichnen
      Canvas.TextOut(Rect.Left+1, Rect.Top+1, Items[Index]);
   end;
end;

Edit: Öha, Tags vergessen...