我正在使用 Delphi 2010 并且已经有一段时间了,开始使用 VirtualTreeView (精确地说是 VirtualStringTree)...但似乎我在做某些事情时出现了问题,因为它们并不像我期望的那样工作。
我正在尝试用指向记录中存储的文件/子文件夹描述的节点填充我的 VST,这些记录是通过扫描用户提供的路径生成的...(更多细节显示在以下图片中)
如所示,节点以奇怪的方式显示..无论我做什么,节点数据都没有被正确初始化。对于“文件”列的节点标题是唯一正常工作的。
这是我使用的代码:
1- 节点数据声明:
type nodeData=record
Text, Size, Path:String;
ImageIndex:Integer;
end;
PNodeData=^nodeData;
var hashmap:TDictionary<String, PVirtualNode>; // hashmap-> to store parent nodes (Folder)
filesList:TDictionary<Integer,nodeData>; // fileList to store records of data
2-方法
a) 扫描由用户指定的路径
procedure AddAllFilesInDir(const Dir:String);
begin
// it scans the path 'Dir' and extract the "name & size" of each file/folder found in this dir
end;
b) 生成 filesList 字典... 图像存储在 "treeImageLIst" 中,该字典链接到 treeview.images 属性。
procedure addFileToList(Name, Size:String);
var d:nodeData;
parent:String;
SHFileInfo :TSHFileINfo;
Icon:TIcon;
begin
parent:=ExtractFileDir(Name);
//Get The Icon That Represents The File/Folder
SHGetFileInfo(PChar(Name), 0, SHFileInfo, SizeOf(SHFileInfo),
SHGFI_ICON or SHGFI_SMALLICON );
Icon := TIcon.Create;
Icon.Handle := SHFileInfo.hIcon;
// set The Name, Size, Path
d.Name:=ExtractFileName(Name);
d.Size:=Size;
d.Path:=parent;
// set the ImageIndex
d.ImageIndex:=Form1.treeImageList.AddIcon(Icon);
// add the node to fileList
filesList.Add(filesList.Count, d);
// Destroy the Icon
DestroyIcon(SHFileInfo.hIcon);
Icon.Free;
end;
c) 创建名为"theTree"的树
procedure createTree();
var theNode, Node:PVirtualNode;
d:PNodeData;
parent:String;
nData:nodeData;
i:integer;
begin
for i := 0 to filesList.Count - 1 do
begin
nData:=filesList.Items[i]; parent:=nData.Path;
if(hashmap.ContainsKey(parent))then theNode:=hashmap.Items[parent]
else theNode:=nil;
Node:=Form1.theTree.AddChild(theNode);
// add a checkbox and make it checked
Node.CheckType:=ctCheckBox;
Node.CheckState:=csCheckedNormal;
// get the newly created node data
d:=Form1.theTree.GetNodeData(Node);
// assign a data to the newly created node
d^:=nData;
// add the node to hashmap if it's a new folder node
if((ExtractFileExt(nData.Text)='')and(not hashmap.ContainsKey(nData.Path+'\'+nData.Text)))
then hashmap.Add(nData.Path+'\'+nData.Text, Node);
end;
Form1.theTree.Expanded[Form1.theTree.TopNode]:=True;
end;
d) 树形视图事件
procedure TForm1.theTreeFreeNode(Sender: TBaseVirtualTree; Node: PVirtualNode);
var d:PNodeData;
begin
d := Sender.GetNodeData(Node);
Finalize(d^);
end;
procedure TForm1.theTreeGetText(Sender: TBaseVirtualTree; Node: PVirtualNode;
Column: TColumnIndex; TextType: TVSTTextType; var CellText: String);
var d:PNodeData;
begin
d:=Sender.GetNodeData(Node);
case Column of
0:CellText:=d^.Text;
1:CellText:=d^.Size;
end;
end;
procedure TForm1.theTreeGetImageIndex(Sender: TBaseVirtualTree;
Node: PVirtualNode; Kind: TVTImageKind; Column: TColumnIndex;
var Ghosted: Boolean; var ImageIndex: Integer);
var d:PNodeData;
begin
d:=Sender.GetNodeData(Node);
if(Kind in [ikNormal, ikSelected])then
begin
if(Column=0)then ImageIndex:=d^.ImageIndex;
end;
end;
我现在非常沮丧,不知道为什么节点不能正确创建。虽然我测试了记录数据并且它们被成功创建,但是当我测试 onNodeClick 事件时,我发现由节点指向的数据记录只返回第一个字段,而其他字段要么为空,要么会生成一个 Access violation exception 异常。
theTree.NodeDataSize:=SizeOf(nodeData)
(注意“P”字母的缺失)。 - Marjan VenemaGetNodeData
区域中。如果您有一个包含节点数据的记录,则应始终使用NodeDataSize := SizeOf(TNodeData)
。 - Rob KennedyMinimal
项目在Main.pas
中提供了一个非常简单的正确使用它的示例。http://code.google.com/p/virtual-treeview/source/browse/trunk/Demos/Minimal/Main.pas - Ken White