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.