ListView OnCustomDrawSubItem

[Bummi]

Du läuft nicht über die Liste, die Routine wird eh für jedes Item/Subitem aufgerufen, Du mußt nur entscheiden wie Du in dem Fall Malen willst

Delphi-Quellcode:

procedure TForm1.ListView1CustomDrawSubItem(Sender: TCustomListView;
  Item: TListItem; SubItem: Integer; State: TCustomDrawState;
  var DefaultDraw: Boolean);
begin
  if Item.SubItems.Count >= SubItem then
    begin
      if Item.SubItems[SubItem-1]='l1_2'
      then Sender.Canvas.Brush.Color := clRed;
      if Item.SubItems[SubItem-1]='L1_1'
      then Sender.Canvas.Brush.Color := clLime;
    end;
end;