Hallo lucius,
falsche Spalte, falsches Ereignis. Nach deiner Anforderung musst du mit OnCustomDrawItem arbeiten:
Delphi-Quellcode:
procedure TMainForm.ListViewCustomDrawItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
if Item.SubItems[1] = 'DVD-R'
then Sender.Canvas.Brush.Color := clRed
else Sender.Canvas.Brush.Color := clWindow;
end;
Grüße vom marabu
Nachtrag: erste sichtbare Spalte ist die Item.Caption und der Index für die SubItems läuft ab 0. Die zweite sichtbare Spalte ist dann SubItem[0], falls du die ItemCaption nicht schon berücksichtigt hast...