BUG in VT with Timagelist ?

[perry4916]

I'm thinking this is a bug

When i have a Timagelist with 20 icons in it and connect the Imagelist
to VT, then once the list is shown, The icon for Node 3-10 is the same.
1-2 and 11-20 are all different ones.

the weird thing is when, I put a TJImageviewer on my form
and connect the VT.images list to the Imageviewer, then everything
shows fine. but VT seems to have a problem

this is what i am using for the event

Delphi-Quellcode:

procedure Tdsmainform.treeGetImageIndex(Sender: TBaseVirtualTree; 
  Node: PVirtualNode; Kind: TVTImageKind; Column: TColumnIndex; 
  var Ghosted: Boolean; var ImageIndex: Integer); 
var 
Data: PTreeData; 
begin 
Data := Sender.GetNodeData(Node); 
if Column = 0 then imageindex:=data.imagenumber-1; 
end;

unless i am doing something wrong ?
The column=0 is for putting the icon in the 1st column in my tree.