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

[sieppl]

Hallo,

dieser Code

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); //Index 0 ist vorbelegt mit Standard-Thumb
    // Items.ImageIndex um die Anzahl der gelöschten Elemente dekrementieren!
  end;
  Self.Items.EndUpdate;
end;

soll aus einem ListView Items sowie dazugehörige Bilder löschen.
Wenn ich Items von vorderen Plätze lösche, bleiben aber leere
Plätze zurück. Sie scheinen gelöscht zu werden, rücken aber
nicht auf. Irgendwelche Ideen?

Grüße

Sebastian

PS: Die ItemList enthält definitiv die richtigen Indizes.

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