Virtual Treeview 安装以及入门

Virtual Treeview是一套Delphi下优秀的VCL控件，代码质量高，使用灵活、功能强大、性能非常好，可以用于表达Treeview和表格类数据。它的代码现在托管在google code上。

Virtual Treeview是一个“纯VCL”控件，这意味着它不是基于任何系统控件，而是重新编写的。正如它的名字已经表明，这个控件与其他这类控件相比，使用了一个不同的树管理模式。它不知道它所管理的数据是什么东西（除了它的大小），甚至没有一个节点的标题。一切都获取于通过应用程序的事件（或通过派生覆盖方法）。Virtual Treeview是经过精心设计和彻底的测试。这个控件证明了它的概念以及在许多商业产品和免费软件的项目中都很健康的运行。

    Virtual Treeview是非常快的。增加一百万节点只需要700毫秒。需要很少的内存开销。很适合高速接入，遍历一百万个节点只需要不到0.5秒的时间。支持多选，支持背景图片，支持复选框，支持右键菜单，支持节点排序，支持Unicode，支持拖曳，支持剪贴板，支持多行列标题等等。

官方网站 : http://www.delphi-gems.com/index.php/controls/virtual-treeview

google code : https://code.google.com/p/virtual-treeview/

https://code.google.com/p/virtual-treeview/downloads/list

svn checkout http://virtual-treeview.googlecode.com/svn/trunk/ virtual-treeview-read-only

The current Version of Virtual Treeview is 5.2.1.

http://www.delphi-gems.com/index.php/controls/virtual-treeview-history

Installation

Starting with version 5.0 Virtual Treeview no longer comes with an own setup program

because there is a set of design and runtime packages for each supported IDE version,

which can easily be opened to compile and install the control in the IDE.

Virtual Treeview supports the following IDEs (and their associated VCLs):

• Embacadero's RAD Studio XE - XE4
• Delphi 2010
• CBuilder 2010
• Delphi 2009
• Delphi 2007
• BDS 2006
• Delphi 2005
• Delphi 7

学习Virtual Treeview要通过官方的英文文档和自带的Demos

http://blog.csdn.net/akof1314/article/details/6449889

{------------------------------------------------------------------------------- 
 在Delphi 7下Virtual Treeview的简单使用    http://blog.csdn.net/akof1314 
-------------------------------------------------------------------------------} 
unit Unit1; 
 
interface 
 
uses 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, VirtualTrees, StdCtrls; 
 
type 
  TForm1 = class(TForm) 
    vrtlstrngtrVST: TVirtualStringTree; 
    btnAddRoot: TButton; 
    btnAddChildren: TButton; 
    btnClear: TButton; 
    edtNumber: TEdit; 
    grp1: TGroupBox; 
    procedure FormCreate(Sender: TObject); 
    procedure btnAddRootClick(Sender: TObject); 
    procedure btnAddChildrenClick(Sender: TObject); 
    procedure btnClearClick(Sender: TObject); 
    procedure vrtlstrngtrVSTInitNode(Sender: TBaseVirtualTree; ParentNode, 
      Node: PVirtualNode; var InitialStates: TVirtualNodeInitStates); 
    procedure vrtlstrngtrVSTGetText(Sender: TBaseVirtualTree; 
      Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType; 
      var CellText: WideString); 
    procedure vrtlstrngtrVSTFreeNode(Sender: TBaseVirtualTree; 
      Node: PVirtualNode); 
  private 
    { Private declarations } 
  public 
    { Public declarations } 
  end; 
 
var 
  Form1: TForm1; 
 
implementation 
 
{$R *.dfm} 
{------------------------------------------------------------------------------- 
 Description: 定义一个记录类型，根据所需添加内容 
-------------------------------------------------------------------------------} 
type 
  PMyRec = ^TMyRec; 
  TMyRec = record            //记录自己的节点结构类型 
    Caption: String; 
  end; 
{------------------------------------------------------------------------------- 
 Description: 创建创建函数 
-------------------------------------------------------------------------------} 
procedure TForm1.FormCreate(Sender: TObject); 
begin 
  vrtlstrngtrVST.NodeDataSize := SizeOf(TMyRec);   //设置节点数据空间 
  vrtlstrngtrVST.RootNodeCount := 20;              //设置初始化节点数 
end; 
{------------------------------------------------------------------------------- 
 Description: 添加节点 
-------------------------------------------------------------------------------} 
procedure TForm1.btnAddRootClick(Sender: TObject); 
var 
  Count: Cardinal; 
begin 
  Count := StrToInt(edtNumber.Text); 
  vrtlstrngtrVST.RootNodeCount := vrtlstrngtrVST.RootNodeCount + Count; 
end; 
{------------------------------------------------------------------------------- 
 Description: 添加子节点 
-------------------------------------------------------------------------------} 
procedure TForm1.btnAddChildrenClick(Sender: TObject); 
var 
  Count: Cardinal; 
begin 
  with vrtlstrngtrVST do 
  begin 
    if Assigned(FocusedNode) then 
    begin 
      Count := StrToInt(edtNumber.Text); 
      ChildCount[FocusedNode] := ChildCount[FocusedNode] + Count; 
      Expanded[FocusedNode] := True;      //展开节点 
      InvalidateToBottom(FocusedNode);    //刷新此节点以下的区域 
    end; 
  end; 
end; 
{------------------------------------------------------------------------------- 
 Description: 清除所有节点 
-------------------------------------------------------------------------------} 
procedure TForm1.btnClearClick(Sender: TObject); 
begin 
  vrtlstrngtrVST.Clear; 
end; 
{------------------------------------------------------------------------------- 
 Description: 每个节点异步触发一次 
-------------------------------------------------------------------------------} 
procedure TForm1.vrtlstrngtrVSTInitNode(Sender: TBaseVirtualTree; 
  ParentNode, Node: PVirtualNode; 
  var InitialStates: TVirtualNodeInitStates); 
var 
  Data: PMyRec; 
begin 
  with Sender do 
  begin 
    Data := GetNodeData(Node); 
    Data.Caption := Format('等级 %d，索引 %d',[GetNodeLevel(Node),Node.Index]); 
  end; 
end; 
{------------------------------------------------------------------------------- 
 Description: 树节点显示的字符串数据 
-------------------------------------------------------------------------------} 
procedure TForm1.vrtlstrngtrVSTGetText(Sender: TBaseVirtualTree; 
  Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType; 
  var CellText: WideString); 
var 
  Data: PMyRec; 
begin 
  Data := Sender.GetNodeData(Node); 
  if Assigned(Data) then 
    CellText := Data.Caption; 
end; 
{------------------------------------------------------------------------------- 
 Description: 释放节点数据 
-------------------------------------------------------------------------------} 
procedure TForm1.vrtlstrngtrVSTFreeNode(Sender: TBaseVirtualTree; 
  Node: PVirtualNode); 
var 
  Data: PMyRec; 
begin 
  Data := Sender.GetNodeData(Node); 
  Finalize(Data^); 
end; 
 
end. 

http://hi.baidu.com/cpplyy/item/0ad7b706da1647cd90571811

Delphi 之 Virtual Treeview 使用心得

Virtual Treeview是一个可以完全代替Delphi自带的Treeview和Listview的免费完全源码控件，但使用复杂。在看完几个自带DEMO后的一点心得。

1.定义节点的数据结构
2.GetNodeDataSize事件 FreeNode事件
3.GetText事件 根据Column来写多列
4.GetImageIndex事件 同上
5.PaintText事件 自定义TargetCanvas
6.GetPopupMenu事件 设定PopupMenu
7.OnSaveNode和Onloadnode 保存为文件，需要自己实现这二个事件


显示Header
1.双击VST
2.添加Column
3.Include( VST.Header.Option, hoVisible);

显示单选、复选框
Include(VST.TreeOptions.MiscOptions,toCheckSupport);
VST.CheckImageKind :=ckXP;
Node.CheckType :=ctCheckBox;//新加节点如果要显示复选框，一定要指定，默认值ctNone
Node.CheckState=csCheckedNormal;//是否选中状态

显示提示
ShowHint 属性True
HintMode 属性hmHint
在GetHint事件写获取HintText代码

不显示TreeLine
TreeOption->PaintOptions->toShowTreeLines

添加节点
var
Node: PVirtualNode;
Data: PVSTNode;
Node := VST.AddChild(nil);
Data := VST.GetNodeData(Node);

更新显示
VST.InvalidateNode(Node);


当前选中的节点
VST.FocusedNode

编辑节点
事件VST.OnEditing中Allowed为True 或者在TreeOptions->MiscOptions->toEditable属性 置为Ture
调用VST.EditNode 
改写后触发NewText事件（注意，需要更新节点的Data中数据)
相关参数,EditDelay

获取节点层数
vst.GetNodeLevel(Node); 注：从0开始

遍历全部节点
var
Node:PVirtualNode;
Data:PNodeData;
begin
Node:= VST.GetFirst;
while Assigned(Node) do
begin
Data := VST.GetNodeData(Node);
...
Node := VST.GetNext(Node);
end;

遍历某节点的全部子节点
SubNode := Node.FirstChild;
while SubNode <> nil do
begin
...
SubNode := SubNode.NextSibling;
end;

http://blog.csdn.net/jianfengqu/article/details/3533900

Virtual TreeView使用示例

Virtual TreeView是一个功能强大的delphi树型组件，从它带的例子就能看出来。下面我把我做的如下图所示的树型的代码贴出来，供大家参考：

{*------------------------------------------------------------------------------
  Virtual TreeView使用示例
  @author  屈剑峰  email: qujianfeng@gmail.com
  @version 2008/10/16 1.0 Initial revision.
  @todo
  @comment
-------------------------------------------------------------------------------}          
unit Unit4;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, VirtualTrees, ImgList, Menus, AdvMenus;
type
  {*------------------------------------------------------------------------------
    首先，先自己定义一个结点所对应的数据结构。
    这一般是一个结构体，内容根据你的需要自己定义
  -------------------------------------------------------------------------------}  
  TMyRec=record
    Text:string;//结点显示的文本 
    ImageIndex:Integer;//结点显示的图片索引。注意：要在结点显示图片必须TreeOptions.MiscOptions包含toCheckSuppot 
    Id:string;//数据Id，可以为数据库记录的Id 
    CheckType:TCheckType; //选择框类型 
    CheckState:TCheckState;//选择框状态 
    //...你还可以自己加 
  end;
  {*------------------------------------------------------------------------------
    定义一个上面结构体的指针类型，后面要用到这个东东
  -------------------------------------------------------------------------------}  
  PMyRec=^TMyRec;
  
  TForm4 = class(TForm)
    vsttree: TVirtualStringTree;
    il1: TImageList;
    advpmn1: TAdvPopupMenu;
    N1: TMenuItem;
    procedure FormCreate(Sender: TObject);
    procedure vsttreeGetText(Sender: TBaseVirtualTree; Node: PVirtualNode;
      Column: TColumnIndex; TextType: TVSTTextType; var CellText: WideString);
    procedure vsttreeInitNode(Sender: TBaseVirtualTree; ParentNode,
      Node: PVirtualNode; var InitialStates: TVirtualNodeInitStates);
    procedure vsttreeGetImageIndex(Sender: TBaseVirtualTree; Node: PVirtualNode;
      Kind: TVTImageKind; Column: TColumnIndex; var Ghosted: Boolean;
      var ImageIndex: Integer);
    procedure N1Click(Sender: TObject);
    procedure vsttreeFreeNode(Sender: TBaseVirtualTree; Node: PVirtualNode);
    procedure vsttreeGetPopupMenu(Sender: TBaseVirtualTree; Node: PVirtualNode;
      Column: TColumnIndex; const P: TPoint; var AskParent: Boolean;
      var PopupMenu: TPopupMenu);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form4: TForm4;
implementation
{$R *.dfm}
procedure TForm4.FormCreate(Sender: TObject);
var
  RootNode,ChileNode:PVirtualNode;
  Data:PMyRec;
begin
  //指定结点数据大小 
  vsttree.NodeDataSize:=SizeOf(TMyRec);
  //指定树里要用的图片列表 
  vsttree.Images:=il1;
  
  //添加根节点 
  RootNode:= vsttree.AddChild(nil);
  Data:=vsttree.GetNodeData(RootNode);
  Data^.Text:='根结点';
  Data^.Id:='RootID';
  Data^.ImageIndex:=0;
  Data^.CheckType:=ctTriStateCheckBox;
  Data^.CheckState:=csUncheckedNormal;
  //添加一个子结点 
  ChileNode:=vsttree.AddChild(RootNode);
  Data:=vsttree.GetNodeData(ChileNode);
  Data^.Text:='子结点1';
  Data^.Id:='ChildId1';
  Data^.ImageIndex:=1;
  Data^.CheckType:=ctTriStateCheckBox;
  Data^.CheckState:=csUncheckedNormal;
  //再添加一个子结点 
  ChileNode:=vsttree.AddChild(RootNode);
  Data:=vsttree.GetNodeData(ChileNode);
  Data^.Text:='子结点2';
  Data^.Id:='ChildId2';
  Data^.ImageIndex:=1;
  Data^.CheckType:=ctTriStateCheckBox;
  Data^.CheckState:=csUncheckedNormal;
  //默认展开一级结点，这句话要写在初始的最后 
  vsttree.Expanded[RootNode]:=True;
  {
     注：在这里把数据添加进树后，树里并不能显示出结点
     要在几个事件里写代码才行：
     OnInitNode:在这个事件里初始化结点，如指定复选框以及状态
     OnGetText:在这个事件里指定结点的显示文本
     OnGetPopupMenu:在这个事件里指定下拉菜单
     OnGetImageIndex:指定结点的图片索引
     OnFreeNode:释放结点时您要做的一些释放动作
     通过这些事件，才能把结点的显示情况描述清楚。而您的
     结构体是用来持有您每个结点的数据的。
  }
end;
//弹出菜单的点击事件 
procedure TForm4.N1Click(Sender: TObject);
var
  CurrentNode:PVirtualNode;
  Data:PMyRec;
  Checked:string;
begin
  {示例取点击结点的数据。
  注意：TreeOptions.SelectionOptions必须包含toRightClickSelect
  }
  //取得当前选中结点 
  CurrentNode:=vsttree.FocusedNode;
  if Assigned(CurrentNode) then
  begin
    Data:= vsttree.GetNodeData(CurrentNode);
    if CurrentNode.CheckState=csCheckedNormal then
    begin
      Checked:='是';
    end
    else
    begin
      Checked:='否';
    end;  
    ShowMessage('当前结点:'+#13
      +'Id='+Data^.Id+#13
      +'Text='+Data^.Text+#13
      +'是否选中='+Checked);
  end;  
end;
procedure TForm4.vsttreeFreeNode(Sender: TBaseVirtualTree; Node: PVirtualNode);
var
  Data:PMyRec;
begin
  Data:=Sender.GetNodeData(Node);
  Finalize(Data^);
end;
procedure TForm4.vsttreeGetImageIndex(Sender: TBaseVirtualTree;
  Node: PVirtualNode; Kind: TVTImageKind; Column: TColumnIndex;
  var Ghosted: Boolean; var ImageIndex: Integer);
var
  Data:PMyRec;
begin
  Data:=Sender.GetNodeData(Node);
  ImageIndex:=Data^.ImageIndex;
end;
procedure TForm4.vsttreeGetPopupMenu(Sender: TBaseVirtualTree;
  Node: PVirtualNode; Column: TColumnIndex; const P: TPoint;
  var AskParent: Boolean; var PopupMenu: TPopupMenu);
begin
  if Assigned(Node) then
  begin
    PopupMenu:=advpmn1;
  end
  else
  begin
    PopupMenu:=nil;
  end;    
end;
procedure TForm4.vsttreeGetText(Sender: TBaseVirtualTree; Node: PVirtualNode;
  Column: TColumnIndex; TextType: TVSTTextType; var CellText: WideString);
var
  Data:PMyRec;
begin
  Data:=Sender.GetNodeData(Node);
  CellText:=Data^.Text;
end;
procedure TForm4.vsttreeInitNode(Sender: TBaseVirtualTree; ParentNode,
  Node: PVirtualNode; var InitialStates: TVirtualNodeInitStates);
var
  Data:PMyRec;
begin
  Data:=Sender.GetNodeData(Node);
  Node.CheckType:=Data^.CheckType;
  Node.CheckState:=Data^.CheckState;
end;
end.