Listview mit FullDrag sortieren
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:
Nur aus nicht erklärlichen Gründen kommt es vor, daß ID Werte enthält, die größer sind als die Anzahl an Spalten.
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; Hat jemand eine Lösung? Gruß Thomas |
Alle Zeitangaben in WEZ +1. Es ist jetzt 14:56 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz