VirtualTreeView复制树与数据

Question

如何将所有节点从一个VirtualTreeView复制到另一个？我试过使用CopyTo函数,但数据是空的,为什么？数据包含对记录的引用(像往常一样).

我也尝试使用OnNodeCopying@Cosmin Prund在他现在删除的答案中建议的这个事件,但它崩溃了:

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组成的记录(不是指针到记录):这些记录可以安全地流式传输到磁盘并重新加载,它们不是托管类型,它们是简单的值类型.如果您将指针放入记录(在您调用它们时引用记录),您仍然可以使用它并且它可以工作,但您要复制的是POINTERS:您没有获得新记录,它们是同样的记录; 你显然无法将Tree保存到文件,重新启动程序并从磁盘重新加载.

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在Source树上OnLoadNode实现并在Target树上实现; 我使用相同的代码在两者上实现了它们.