Einzelnen Beitrag anzeigen

perry4916

Registriert seit: 17. Jan 2010
4 Beiträge
 
#1

BUG in VT with Timagelist ?

  Alt 5. Feb 2010, 05:01
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.
  Mit Zitat antworten Zitat