ListBox: Jeder Eintrag eine andere (Hintergrund-)Farbe

[Hobby-Programmierer]

Nabend ...,
einfach

Delphi-Quellcode:

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
var hfarbe: TColor;
begin
  case index of // Farbe zum zeichnen festlegen
    1 : hfarbe:= TColor($00CF9030);
    2 : hfarbe:= TColor($0093CAB1);
    3 : hfarbe:= TColor($00B3F8FF);
  end;
  with ListBox1, ListBox1.Canvas do begin
    Font.Color:= clBlack; // SchriftFarbe
    Brush.Color:= hfarbe;  // HintergrundFarbe
    FillRect(Rect);       // Hintergrund zeichnen
    TextOut(Rect.Left+5, Rect.Top+1, Items[index]); // Textausgabe
  end;
end;

Edit: Achja, ListBox.Style auf lbOwnerDrawVariable