Problem mit Sortierung in VirtualStringTree (VST)

[hoika]

Hallo,

stand das wirklich so in den Beispielen ?

Delphi-Quellcode:

procedure TFormX.OnHeaderClick();
begin
  if Button<>mbLeft then Exit;

  with Sender do
  begin
    if Column=SortColumn then
    begin
      SortDirection:= TSortDirection(1-ord(SortDirection));
    end
    else
    begin
      SortColumn:= Column;
    end;
  end;
end;

Das SortTree macht der VST beim Header-Click selber.
Es wird nur verwendet, wenn man im Code sortieren will.

Das OnCompareNodes ist korrekt, abgesehen davon, dass Sender statt
der direkten Variable benutzen solltest.


#Update#
Ich habe den VST allerdings bisher nur als ListView-Erasatz benutzt (nur Root-Nodes).


Heiko