VirtualTreeView: Sortierung

[Nils_13]

Ich habe es mal probiert, aber es wird nichts sortiert. Warum ?

Delphi-Quellcode:

procedure TfrmMain.VSTCompareNodes(Sender: TBaseVirtualTree; Node1,
  Node2: PVirtualNode; Column: TColumnIndex; var Result: Integer);
var Data1, Data2 : PTreeData;
    b1, b2       : Boolean;
begin
  Data1 := Sender.GetNodeData(Node1);
  Data2 := Sender.GetNodeData(Node2);
  if Data1.fTyp = (ftDir) then
    b1 := True
  else
    b1 := False;
  if Data2.fTyp = (ftDir) then
    b2 := True
  else
    b2 := False;
  if b1  <> b2 then
  begin
    if b1 then
      Result := -1
    else
      Result := 1;
  end else
    Result := CompareText(Data1.fPfad, Data2.fPfad); // fPfad ist wenn nichts schief läuft, der komplette Pfad+Dateiname+Dateiendung
end;

In den Demos habe ich bis jetzt noch nichts gefunden, was sich damit auseinandersetzt.