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