Suche Tabellen-VCL mit automatischer Sortierung

[blackdrake]

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