Piktogramme und Images in VirtualTreeView anzeigen

[felix56]

Hallo Armin

Fehler kommen keine mehr, aber leider auch keine Icon.
Es wird bei "Data := Sender.GetNodeData(Node);" in VirtualTrees folgende Function aufgerufen:

Delphi-Quellcode:

function TBaseVirtualTree.GetNodeData(Node: PVirtualNode): Pointer;

// Returns the address of the user defined data area in the node.

begin
  Assert(FNodeDataSize > 0, 'NodeDataSize not initialized.');
  
  if (FNodeDataSize <= 0) or (Node = nil) or (Node = FRoot) then
    Result := nil
  else
    Result := PChar(@Node.Data) + FTotalInternalDataSize;
end;

Als Column-Wert habe ich -1 und die Procedure GetImageIndex wird verlassen.

Gruss
Felix