Wie Punkte hinter ListView Eintraegen abschneiden?

[marabu]

Guten Morgen.

Für ein SubItem nimmt man nicht OnCustomDrawItem:

Delphi-Quellcode:

procedure TDemoForm.ListViewCustomDrawSubItem(Sender: TCustomListView;
  Item: TListItem; SubItem: Integer; State: TCustomDrawState;
  var DefaultDraw: Boolean);
var
  r: TRect;
begin
  DefaultDraw := SubItem <> 1; // Lösung für erstes SubItem
  // DefaultDraw := SubItem > Item.SubItems.Count; // allgemeine Lösung
  if not DefaultDraw then
  begin
    r.Top := SubItem;
    r.Left := LVIR_LABEL;
    Sender.Perform(LVM_GETSUBITEMRECT, Item.Index, Integer(@r));
    Sender.Canvas.TextRect(r, r.Left + 2, r.Top + 2, Item.SubItems[Pred(SubItem)]);
  end;
end;

Grüße vom marabu