Listbox, Zeilen mit eigener Farbe versehen

[Butzenlechner]

Hallo
Ist es möglich in einer Listbox, einzelene Zeilen (Items) farblich anders darzustellen ?
Gruß Enrico

[Muetze1]

Moin!

Ja, musste selber zeichnen die Einträge.

zum Beispiel

/EDIT: Sorry, ich habe das .NET vollkommen übersehen. Mein Fehler...

MfG
Muetze1

[Butzenlechner]

Moin (frohe Ostern)
Kannst Du mir nochmal unter die Arme greifen ?
Unter Delphi 2005 läuft das nicht.
Im Objekt Inspektor gibt es keinen ListBox1.Style := lbOwnerDrawFixed;
lediglich ein 'DrawMode'
Die Ereignis-Procedur hat andere Parameter:
TWinFormMain.ListBox1_DrawItem(sender: System.Object; e: System.Windows.Forms.DrawItemEventArgs);

Delphi-Quellcode:

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
  with Control as TListBox do
  begin
    Canvas.FillRect(Rect);
    Canvas.Font.Color := TColor(Items.Objects[Index]);
    Canvas.TextOut(Rect.Left + 2, Rect.Top, Items[Index]);
  end;
end;

[edit=Sharky]Delphi-Tags gesetzt. Mfg, Sharky[/edit]

[MathiasSimmack]

Guck mal in das .NET-Framework SDK rein. Dort ist ein Beispiel für VB.NET und C#. Das kann man recht problemlos für Delphi übernehmen, weil die Befehle ja identisch sind. Nur die Syntax muss angepasst werden.