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

[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;

[Daniel]

Vielen Dank, der Hinweis brachte mich auf die richtige Fährte: Die Message "LVM_ARRANGE" bzw. das dazu passende Makro: "ListView_Arrange()".
Jetzt räumt der ListView sich selbst auf und schließt etwaige Lücken.

[Dejan Vu]

Oder einfach ListView1.Arrange(arAlignLeft) , wobei Du das Argument ggf. anpassen müsstest. Komisch, ich war sicher, das das heute morgen noch nicht funktioniert hat. Aber da hat der Kaffee auch noch nicht gewirkt.