Piktogramme und Images in VirtualTreeView anzeigen

[ibp]

sorry habe leider vst und treeview komponenten gemischt....

so sollte es funktionieren....

Delphi-Quellcode:

procedure TForm1.vstGetImageIndex(Sender: TBaseVirtualTree;
  Node: PVirtualNode; Kind: TVTImageKind; Column: TColumnIndex;
  var Ghosted: Boolean; var ImageIndex: Integer);
begin
  case kind of
    ikstate: ImageIndex:=-1;
    iknormal: ImageIndex:=0;
    ikselected: ImageIndex:=1;
  end;
end;