[Solved] Lücken beim Löschen von ListView Items (vsIcon)

[sieppl]

mit diesem code werden die bilder richtig aufgerückt:

Delphi-Quellcode:

procedure TImgStdListView.ClearSelectedItems(ItemList: IntegerList);
var
  I: Integer;
begin
  Self.Items.BeginUpdate;
  for I := High(ItemList) downto 0 do
  begin
    Self.Items.Delete(ItemList[I]);
    Self.LargeImages.Delete(ItemList[I] + 1);
  end;
  for I := 0 to Self.Items.Count -  1 do
    Self.Items[I].ImageIndex := I + 1;
  Self.Items.EndUpdate;
end;

Was bleibt sind die Löcher im ListView. Update oder Refresh helfen auch nicht.
Hatte niemand vor mir das Problem??

Grüße

Sebastian

[EDIT:]

Der ViewStyle ist übrigens vsIcon, dass muss so bleiben. Mit vsList verschwinden die Lücken erwartungsgemäß..

[EDIT:]
Self.Arrange(arDefault); löst das Problem. Ein Aufruf vor EndUpdate genügt.