TListView - Eintrag löschen hinterlässt "Loch"

[Luckie]

Die Items sind mehrzeilig, wenn ich das richtig sehe. Zeichnest du die selbst? Wenn ja, nimm den Code mal raus.

[Daniel]

Pure VCL, nichts selbstgezeichnet.
Das sind die Listview-Tiles. Den Code dafür habe ich aus Deinen Tutorials, Michael.

[Luckie]

Wie verhält er sich im Reportstil?

[alda]

In solchen Fällen baue ich persönlich die GUI grundsätzlich immer neu auf (sprich über Clear() und Add()).
Allerdings weiß ich nicht wie performant die TListView an dieser Stelle ist - Deinem Screenshot nach zu urteilen sollte das zumindest für deinen Anwendungsfall problemlos funktionieren

[Daniel]

@Michael:
Vermutlich würde es im Report-Modus gehen, aber das hilft mir nur eingeschränkt.

@alda:
So mache ich es jetzt auch, bei < 20 Einträgen ist die zusätzliche Zeit zu vernachlässigen.

[Luckie]

Würde es vermutlich. Aber man könnte so gucken, wo der Fehler ist.

[hathor]

DisposeOf

Delphi-Quellcode:

procedure TForm1.ButtonClick(Sender: TObject);
var j : Integer;
begin
with ListView1 do
 for j := 0 to Items.Count - 1 do
  if j < Items.Count then
    if Items[j].Selected then
     Items[j].DisposeOf;
end;

[Dejan Vu]

Moinsen

Das standard TListView verhält sich beim ViewStyle 'vsIcon' und 'vsSmallIcon' wie Du es beschreibst: Es bleibt eine Lücke. Bei vsList und vsReport *nicht*, da ist es so wie erwartet.

Bei mir klappt das hier:

Delphi-Quellcode:

Procedure RemoveFromListView (LV : TListView; Index : Integer);
Var
  oldViewStyle : TViewStyle;

begin
  oldViewStyle := LV.ViewStyle;
  LV.Items.BeginUpdate;
  try
    LV.Items.Delete(Index);
    LV.ViewStyle := vsReport;
  finally
    LV.ViewStyle := oldViewStyle;
    LV.Items.EndUpdate;
  End;
end;