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