包含数据的VirtualTreeView复制树

Question

如何将所有节点从一个VirtualTreeView复制到另一个？我尝试使用CopyTo-function，但数据为空，为什么？数据包含对记录的引用(如往常一样)。

我也尝试过像@Cosmin Prund在他现在已删除的答案中建议的那样使用OnNodeCopying事件，但它崩溃了：

procedure TDataBaseForm.SourceTreeViewNodeCopying(Sender: TBaseVirtualTree; 
  Node, Target: PVirtualNode; var Allowed: Boolean); 
var 
  SourceNodeData, DestNodeData: PNodeDataForCompare; 
begin 
  SourceNodeData := Sender.GetNodeData(Node); 
  DestNodeData := VirtualStringTree1.GetNodeData(Target); 
  if Assigned(SourceNodeData) then 
  begin 
    DestNodeData^ := SourceNodeData^; 
  end; 
  Allowed := true; 
end;

Answer 1

我更深入地研究了CopyTo()是如何工作的。首先将所有要复制的节点保存到流中，然后在目标VirtualTree上重新创建流中的节点。用户节点数据需要复制到该流中，否则在目标VirtualTree中重新创建节点时将不可用。

处理流式用户数据的事件包括：

• OnSaveNode
• OnLoadNode

VirtualTree使用这些方法是有意义的，因此将流用作中间对象也是有意义的。VirtualTree还允许将树保存到文件，以及将节点复制粘贴到剪贴板或从剪贴板粘贴节点。所有这些方法都需要以某种方式复制用户的“有效负载”！在实现这些事件之后，CopyTo方法运行良好，将第一个树的内容保存到磁盘并将其重新加载到第二个树中。我还测试了复制粘贴，它工作得很好。

下面是我的OnSaveNode和OnLoadNode的实现。复制-粘贴我的方法很可能不适合您，因为它取决于您放在节点有效负载中的数据类型。在我的示例中，我放置了只由一个Integer组成的记录(而不是指向记录的指针)：这些记录可以安全地流式传输到磁盘并重新加载，它们不是托管类型，它们是简单的值类型。如果你把指针放到记录中(如你所说的对记录的引用)，你仍然可以使用它，它会起作用，但你会复制指针:你不会得到新的记录，它们是相同的记录；你显然不能将树保存到文件中，重新启动程序和从磁盘重新加载。

procedure TForm6.VT1SaveNode(Sender: TBaseVirtualTree; Node: PVirtualNode;
  Stream: TStream);
begin
  Stream.Write(Sender.GetNodeData(Node)^, (Sender as TVirtualStringTree).NodeDataSize);
end;

procedure TForm6.VT2GetText(Sender: TBaseVirtualTree; Node: PVirtualNode;
  Column: TColumnIndex; TextType: TVSTTextType; var CellText: string);
begin
  CellText := IntToStr(PNodeDataForCompare(VT1.GetNodeData(Node)).Payload);
end;

最后一点:对于您的场景，需要在源树上实现OnSaveNode，在目标树上实现OnLoadNode；我使用相同的代码在这两个树上实现了它们。

Answer 2

unit VirtualTrees;

...

function TBaseVirtualTree.CopyTo(Source, Target: PVirtualNode; Mode: TVTNodeAttachMode; ChildrenOnly: Boolean): PVirtualNode;

...

        Result := TargetTree.MakeNewNode;
        InternalConnectNode(Result, Target, TargetTree, Mode);
        TargetTree.InternalAddFromStream(Stream, VTTreeStreamVersion, Result);
        if not DoNodeCopying(Result, Source {Target}) then //        <=======
        begin
          TargetTree.DeleteNode(Result);
          Result := nil;
        end

..。