VST / Icon anzeigen

[ucor]

Hallo,

also soweit klappt mit dem VST alles gut. Die Daten aus der Datenbank werden so angezeigt wie ich es möchte.
Mit der OnGetImageIndex werden auch Icons dargestellt. Das Problem ist nun folgendes:

+ node1
------- node2
-------------- node2a
-------------- node2b
------- node3
-------------- node3a
-------------- node3b
.
.
.
Ich möchte, dass für Node2 und für Node3 unterschiedliche Icon dargestellt werden.
Node2a, Node2b sollen dieselben Icon darsellen. Node3a und Node3b dieselben, aber andere als Node2a und Node2b.

Nun habe ich versucht die Icondarstellung in die jeweilige Schleife eizubauen, aber nun erscheint gar kein Icon mehr.

Delphi-Quellcode:

while not DM.q2b.EOF do
         begin
            TreeObject:= TTreeDataClass.Create;
            TreeObject.ImageIndex:= 8; ------------------------------------------> eingefügt
            TreeObject.Kunde := Datenmodul.q2b.FieldByName('Kunde').AsString;
            TreeObject.Nr := Datenmodul.q2b.FieldByName('Nr').AsString;
            AddVSTObject(VST,Wurzel1,TreeObject);

            Datenmodul.q2b.Next;
         end;

Gruß U.