[TListView] Veränderte Spaltenanordnung speichern

[marabu]

Nur der Vollständigkeit halber noch das Gegenstück zu GetColumnOrder():

Delphi-Quellcode:

uses
  Types;

procedure SetColumnOrder(lc: TListColumns; ida: TIntegerDynArray);
var
  i: Integer;
begin
  for i := 0 to Pred(lc.Count) do
    if lc.Items[i].ID < Length(ida) then
      lc.Items[i].Index := ida[lc.Items[i].ID];
end;

marabu