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