Farbige Listbox

[ManfredG]

Hallo,
verwende doch statt der TListbox ein TListView.
Dort hast du das Ereignis OnCustomDrawItem. Dort läßt sich die Hintergrundfarbe der Zeile einfach einstellen, ohne daß du dich um den ganzen Inhalt kümmern mußt.
Beispiel:

Delphi-Quellcode:

procedure THF.FilesCustomDrawItem(Sender: TCustomListView; Item: TListItem;
  State: TCustomDrawState; var DefaultDraw: Boolean);
var Attrs: Integer;
    pSi: PShellItem;
    nCol: boolean;
begin
  nCol:=TRUE;
  if (Length(StC1.Caption)>0)and(StC1.Tag>0) then begin // irgend eine Bedingung...
    if pos(uppercase(StC1.Caption),uppercase(pSi.DispName))>0 then begin
      Files.Canvas.Brush.Color:=StC1.Tag;  // Farbe setzen woher sie auch immer kommt
      nCol:=FALSE; // Kennezeichen für Farbe ist gesetzt
    end;
  end;
  if (Length(StC2.Caption)>0)and(StC2.Tag>0) then begin // gleichartig für eine andere Farbe
    if pos(uppercase(StC2.Caption),uppercase(pSi.DispName))>0 then begin
      Files.Canvas.Brush.Color:=StC2.Tag;
      nCol:=FALSE;
    end;
  end;
  // wenn keine Bedingung für eine der beiden Farben, dann Fensterfarbe setzen
  if NCol then Files.Canvas.Brush.Color:=clWindow;
end;

Den Rest erledigt das TListView selbst, wenn DefaultDraw=TRUE
(StC1 und StC2 sind TStaticText in deren Tag eine Farbe steht und dessen Text mit dem Inhalt der Zeile verglichen wird)
TListView auf ViewStyle=vsReport setzen und die Breite der Spalte anpassen.

Gruß Manfred