ich frage mich echt, warum sich die meisten leute so kurz fassen o_O dann brauchen solche personen erst gar nicht antworten (sry, omata^^)...
bin nun doch noch selber fündig geworden und poste die lösung für alle, die das gleiche problem haben:
Delphi-Quellcode:
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
begin
if Index=Bedingung then begin // Prüfen, welcher Index die Bedingung erfüllt
Listbox1.Canvas.Brush.Color := clRed; // Hintergrundfarbe auf Rot setzen
Listbox1.Canvas.Font.Color := clYellow; // Schriftfarbe auf Grün setzen
end;
Listbox1.Canvas.FillRect(Rect); // ausgewählten Index(bereich) färben
Listbox1.Canvas.TextOut(Rect.Left,Rect.Top,Listbox1.Items[Index]); // Text drüberpinseln
if odFocused in State then DrawFocusRect(Listbox1.Canvas.Handle,Rect); // Pixelrahmen entfernen
end;