VirtualStringTree: Problem mit ImageIndex

[djmasi]

Zitat von phXql:

Mir aber nicht verständlich, warum das in KEINEM tutorial auftaucht...

Doch, in der Hilfe zum VirtualTreeView -> Step by Step

Delphi-Quellcode:

procedure TBookmarkForm.BookmarkTreeGetImageIndex(Sender: TBaseVirtualTree;
  Node: PVirtualNode; Kind: TVTImageKind; Column: Integer; var Index: Integer);

var
  NodeData: ^rTreeData;

begin
  NodeData := Sender.GetNodeData(Node);
  case Kind of
    ikState: // for the case the state icon has been requested
      Index := -1;
    ikNormal, ikSelected: // normal or the selected icon is required
      Index := NodeData.ImageIndex;
  end;
end;