VirtualTree problems. Soft-gems = no support at all.

[toms]

Delphi-Quellcode:

procedure TForm1.VSTListeGetImageIndexEx(Sender: TBaseVirtualTree; 
  Node: PVirtualNode; Kind: TVTImageKind; Column: TColumnIndex; 
  var Ghosted: Boolean; var ImageIndex: Integer; 
  var ImageList: TCustomImageList); 
begin
  Case Something of ...  
   // e.g. if Column = 1 then take Imagelist1 
   // *or*   if that node has a special flag, take Imagelist2 etc..
    1: ImageList := ImageList1;
    2: ImageList := ImageList2;
  end;
end;