Sortieren im VirtualStringTree

[colder]

Hallo,

soweit hat es ja ganz ordentlich funktioniert. Das erstellen
von Items, Folder und Root klappt. Auch das löschen der Items
funktioniert tadellos. Nur das sortieren der Items funktioniert
nicht.

Eigentlich möchte ich nur das Ordner unter Ordner stehen und darunter
dann die normalen Items. Wie ich es gerne hätte ist auf den 2 Bildern
zu sehen. Also erst einmal nach Typen sortieren. Danach wäre eine
Sortierung nach Namen wünschenswert aber nicht zwingend.

Ich habe mir das schon einmal mit dem CompareNodes angeschaut,
komme aber nicht klar.

So definiere ich meine Items:

Delphi-Quellcode:

type
  TItemType = (itRoot, itFolder, itItem);

type
  PCodeData = ^TCodeData;
  TCodeData = record
    Caption: string;
    Text: string[255];
    ItemType: TItemType;
    OpenIndex: Integer;
    CloseIndex: Integer;
  end;

Ich muß wohl irgendwie erst nach dem ItemType sortieren und dann nach dem Caption.
Kann mir bitte hier jemand einen Tipp geben?!

gruss Andreas