@Thornberry^^
1. Die Farbe soll aus der Registry kommen.
2. Rot auf rotem Grund???
------------------------------------------------------------------------------------
Natürlich muss ein Textout erfolgen. Also
Delphi-Quellcode:
procedure TForm1.Listbox1DrawItem(Control: TWinControl;
Index: Integer; Rect: TRect; State: TOwnerDrawState);
// "regist" ist in TForm1.FormCreate initialisiert worden?!
var Farbe : TColor;
begin
{ ... wenn Hintergrundfarbe verändert werden soll, dann siehe ^^^ }
Listbox1.Canvas.FillRect(Rect);
Farbe:=regist.ReadInteger('Name_'+IntToStr(Index)+'_color');
Listbox1.Font.Color:=Farbe;
{ ... eventuelle Formatierungen ... oder sonstige Manipulationen an Texten oder Stilen....}
Listbox1.Canvas.TextOut(Rect.Left, Rect.Top, Listbox1.Items[Index]);
end;