Hallo marabu, also irgendwie klapt das nicht, ich habe das in einer Schleife verarbeitet und ich moechte durch alle Items gehen bis in Spalte 2 'DVD' gefunden wird.
Zitat:
___________| Spalte 1 | Spalte 2 | Spalte 3 |
Items[0] > | Caption | SubItems[0] | SubItems[1] |
Items[1] > | Caption | SubItems[0] | SubItems[1] |
Items[2] > | Caption | SubItems[0] | SubItems[1] |
Delphi-Quellcode:
procedure TMainForm.ListViewCustomDrawSubItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState; var DefaultDraw: boolean);
var
i: integer;
begin
for i := 0 to listview.Items.Count -1 do
begin
if listview.Items[i].SubItems[1] = 'DVD'
then Sender.Canvas.Brush.Color := clRed
else Sender.Canvas.Brush.Color := clWindow
end;
end;