在Treeview中节点的data属性中保存记录类型及其消除的办法
一、保存记录类型在data指针中:
type
Trec=record
text:string;
left,top,width,height:Integer;
end;
TPRec = ^TRec;
var
h,lh,w,tp,lt,m,firstp:Integer;
ht:THeadTreeNode;
currentnode,pnode:TTreeNode;
hh,ss,firsttext:string;
ntrec:TPrec;
begin
firsttext:=hnode.Text;
ht:=hnode;
m:=0;
while True do
begin
w:=ht.Width;
New(ntrec);
if w>0 then
begin
hh:=ht.Text;
lh:=ht.GetLevel;
h:=ht.Height;
if lh=1 then
i:=0;
//ss:='left:'+inttostr(j)+',top:'+inttostr(i)+',h:'+inttostr(h)+',w:'+inttostr(w)+',text:'+hh+',level:'+inttostr(lh);
//Memo1.Lines.Add(ss);
//build tree
if lh=1 then
currentnode:=tree.Items.Add(nil,hh)
else
begin
pnode:=findtreeitem(tree,ht.Host.Text);
currentnode:=tree.Items.AddChild(pnode,hh);
end;
ntrec^.text:=hh;
ntrec^.Top:=i;
ntrec^.Left:=j;
ntrec^.Width:=w;
ntrec^.Height:=h;
currentnode.Data:=ntrec;//CreateMemoFun(pp,hh,'leftcolumns',baNone,nil,'',j, i, w, h);
//ntrec:=TPRec(currentnode.Data);
with ntrec^ do
begin
ss:='nodename:'+hh+',left:'+inttostr(left)+',top:'+inttostr(top)+',width:'+inttostr(width)+',height:'+inttostr(Height)+',level:'+inttostr(lh);
end;
Memo1.Lines.Add(ss);
if m=0 then
firstp:=i
else
i:=firstp;
end else //跳过不可见列
w:=0;
if Assigned(ht.Child) then
begin
//tmph:=i;
i:=i+h;
getheaditems(pp,ht.Child,i,j,zh,tmph,tree);
end else
begin
j:=j+w;
zh:=i+h;
//i:=tmph;
end;
ht:=ht.Next;
m:=m+1;
if ht.Text=firsttext then
begin
Break;
end;
end;
end;
type
Trec=record
text:string;
left,top,width,height:Integer;
end;
TPRec = ^TRec;
var
tnode,fn:THeadTreeNode;
level,ss:string;
i:Integer;
begin
with TreeView1 do
begin
for I := 0 to Items.Count-1 do
begin
level:=IntToStr(items[i].Level);
if assigned(TPRec(items[i].Data)) then
begin
dispose(TPRec(items[i].Data));
Memo1.Lines.Add('已释放指针:'+items[i].Text);
end;
ss:='nodename:'+items[i].Text+',level:'+level+',sn:'+inttostr(i);
Memo1.Lines.Add(ss);
end;
end;
end;
在Treeview中节点的data属性中保存记录类型及其消除的办法的更多相关文章
- 006——VUE中的内容与属性中使用javascript表达式的方法
<!DOCTYPE html> <html lang="en"> <head> <meta charset="UTF-8&quo ...
- js中的访问器属性中的getter和setter函数实现数据双向绑定
嗯,之前在读js红宝书的时候,在对象那一章有介绍属性类型.第一种数据类型指的是数据属性,第二种是访问器属性.在初识vue的时候,其双向数据绑定也是基于访问器属性中的getter和setter函数原理来 ...
- IE8中li添加float属性,中英数字混合BUG
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/ ...
- 视图中 jquery 使用data属性
示例:<input id='username' data-id="{$val['id']}" data-userName="{$val['name']}" ...
- jsp <form>表单提交中如何在value属性中写表达式
<input type="text" name="grop_id" value="<%=rs.getString(2)%>" ...
- 多.h项目出现的问题:使用了预编译头依然出现error LNK2005:***obj已在***obj中定义与c++ error C2011: “xxx”:“class”类型重定义解决办法
使用了预编译头依然出现error LNK2005:***obj已在***obj中定义 造成该问题的可能性比较多,本人将在今后遇到时添加进来,今天先放出本人遇到的一种情况. 多重包含含有变量定义的.h文 ...
- PyQt(Python+Qt)入门:Designer组件属性编辑界面中QWidget类相关属性详解
本文适用人员:本文比较长,适合不理解Qt Designer部件属性的人员阅读或资料查找. 声明: 1.如果有人认为本文是简单的复制粘贴+翻译而成,敬请读本文最后的后记: 2.本文为老猿Python学习 ...
- HTML 5:你必须知道的data属性
原文:All You Need to Know About the HTML5 Data Attribute 译文:你必须知道HTML 5 的Data属性 译者:dwqs HTML 5的Data属性可 ...
- html 5实用特性之data属性
HTML 5之前,我们必须依赖于class和rel属性来存储需要在网站中使用的数据片段,这种做法有时会在网站的外观和实用性之间产生冲突.而HTML 5 Data属性的存在就能很好满足需要. HTML5 ...
随机推荐
- cadence allegro pcb模块设计复用
cadence allegro pcb模块设计复用 转载▼ 标签: 复用 模块 原理图 元件 文件 杂谈 分类: PCB技术 在你遇到如上图所示的dsp阵列PCB时,如果你的layout软件支持模块复 ...
- 使用程序修改系统(IE)代理设置
文章都是发布在github再转到这边的,这边格式可能会乱掉.博客地址:benqy.com 这是本人在做的一个前端开发调试工具(HttpMock),功能是web服务器+http日记+http代理(类似f ...
- gulp配置,实例演示
项目完成后的目录 我们所需要的插件为:gulp-minify-css gulp-concat gulp-uglify gulp-rename del 如下图所示,完成后的项目目录结构: 附加,获取pa ...
- [译]GLUT教程 - 整合代码1
Lighthouse3d.com >> GLUT Tutorial >> Input >> The Code So Far 以下是前面几节的完整整合代码: #inc ...
- 篇一、安装配置Android Studio
系统:Mac 10.10 Java JDK:官方JDK1.8 IDE:Android Studio 1.2 Android SDK:24.2 模拟器:genymtion 安装 Mac版本的Androi ...
- ubuntu中文乱码--添加中文字符集
在Ubuntu支持中文后(方法见上篇文章),默认是UTF-8编码,而Windows中文版默认是GBK编码.为了一致性,通常要把Ubuntu的默认 编码改为GBK.当然你也可以不改,但这会导致我们在两个 ...
- UFLDL深度学习笔记 (七)拓扑稀疏编码与矩阵化
UFLDL深度学习笔记 (七)拓扑稀疏编码与矩阵化 主要思路 前面几篇所讲的都是围绕神经网络展开的,一个标志就是激活函数非线性:在前人的研究中,也存在线性激活函数的稀疏编码,该方法试图直接学习数据的特 ...
- POJ2396 Budget 【带下界的最大流】
Budget Time Limit: 3000MS Memory Limit: 65536K Total Submissions: 5962 Accepted: 2266 Special ...
- python tensorflow 学习
Tensorflow系列——Saver的用法:http://blog.csdn.net/u011500062/article/details/51728830 Tensorflow学习系列(二): t ...
- SVM支持向量机
支持向量机(Support Vector Machine,SVM)是效果最好的分类算法之中的一个. 一.线性分类器: 一个线性分类器就是要在n维的数据空间中找到一个超平面,通过这个超平面能够把两类数据 ...