Hallo Zusammen,
ich nutze die in diesem Froum gefundene
Routine zum Sortieren von ListViews.
Solange man kein FullDrag nutzt, funktioniert die Sache super, aber ich finde einfach nicht heraus, wie ich das Script modifizieren muss, wenn ich Fulldrag nutzen will.
Mein Ansatz ist:
Delphi-Quellcode:
if _ColumnToSort = 0 then
begin
TextToSort1 := Item1.Caption;
TextToSort2 := Item2.Caption;
end
else
begin
TextToSort1 := Item1.SubItems[TListView(Sender).Column[_ColumnToSort].ID - 1];
TextToSort2 := Item2.SubItems[TListView(Sender).Column[_ColumnToSort].ID - 1];
end;
Nur aus nicht erklärlichen Gründen kommt es vor, daß ID Werte enthält, die größer sind als die Anzahl an Spalten.
Hat jemand eine Lösung?
Gruß
Thomas