ListView "extern" sortieren

[Yheeky]

Hi,

ich habe mit folgendem Code die Sortierung für meine ListView bewerkstelligt:
http://www.swissdelphicenter.ch/de/showcode.php?id=1103

Nun möchte ich bei einem Button.Click-Ereignis eine Spalte absteigend sortieren lassen. Wie kann ich das machen?
Ich habe den Anruf ListView.CustomSort(@CustomSortProc, Spalte); probiert, jedoch wird die Spalte dann nur aufsteigend sortiert.

Gruß Yheeky

[M-O-D]

Hi,

Schau dir mal die letzte Zeile in dem Code an...
nach dem Aufruf der
ListView.CustomSort(@CustomSortProc, Spalte); passiert nochwas, nämlich :

Delphi-Quellcode:

{ Set the sort order for the column} 
  LvSortOrder[Column.Index] := not LvSortOrder[Column.Index];

Das ändert bei jedem Klick die Sortierreihenfolge. Das muss Du auch beim Aufruf mit dem Button mit reinschreiben...

Gruß

[Yheeky]

Die Sortierreihenfolge soll ja nicht verändert werden. Diese soll immer absteigend sein...

[Markus K.]

Hallo Yheeky,
du kannst es ja mal mit diesem Code versuchen.

Delphi-Quellcode:

function CustomSortProc(Item1, Item2: TListItem; ParamSort: integer): integer; stdcall;
begin
  Result := -CompareText(Item1.Caption,Item2.Caption);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ListView1.CustomSort(@CustomSortProc, Spalte);
end;

Ein + vor CompareText sollte aufsteigend sortieren, ein - absteigend.

Tschüß Markus

[Yheeky]

In deinem Code bringt die Variable ParamSort doch überhaupt nichts, oder seh ich das falsch?! Die wird in der Funktion ja überhaupt nicht behandelt. Geht demzufolge auch leider nicht bei mir.

Habe die Funktion jetzt so geändert. Nun funktioniert´s:

Code:

function CustomSortProc(Item1, Item2: TListItem; ParamSort: integer): integer; stdcall;
begin
if ParamSort = 0 then
Result := -CompareText(Item1.Caption,Item2.Caption)
  else
Result := -CompareText(Item1.SubItems[ParamSort], Item2.SubItems[ParamSort]);

end;

Danke trotzdem!

Gruß Yheeky

[dopeline]

Woran liegt es, dass nur die erste spalte (Column[0]) bei einem klick drauf sortiert wird?

eigentlich sollte es doch bei allen funktionieren! ich habe den code unverändert vom obigen link (swissdelphicenter) genommen....


Gruß, dopeline