Hallo.
Ich habe gerade folgendes hinbekommen:
Delphi-Quellcode:
public
procedure Sort(ColumnIndex: integer); overload; // Extended
procedure Sort(ColumnIndex: integer; ASC: boolean); overload; // Extended
// Extended
procedure TSortListView.Sort(ColumnIndex: integer);
begin
ColumnClick(self, Columns[ColumnIndex]);
end;
// Extended
procedure TSortListView.Sort(ColumnIndex: integer; ASC: boolean);
begin
LastSortAsc := not ASC;
ColumnClick(self, Columns[ColumnIndex]);
end;
Die erste Variante von Sort scheint wunderbar zu klappen.
Die zweite Variante von Sort hat mit ASC funktioniert, hat aber aus irgendeinem Grund Probleme mit DESC.
Wenn ich den Test-Button das erste Mal klicke, wird nach ASC sortiert, erst nach den weiteren Klicks dauerhaft nach DESC.
*grübel*
Gruß
blackdrake