delphi treeview 控件如何数据竖向居中显示就像二叉树一样首节点最上方居中子节点依次在下方
如图:
或者有什么第三方控件也可以
如图:
或者有什么第三方控件也可以
解决方案 »
- Delphi2010编译ICS7不能通过
- Image设置为透明??
- 有关sql语句的问题,寻找 47522341(睡到8:30)
- 所有的源码都在pas里面么?
- 请问DB控件如DBMemo怎样才能修改?
- webbrowser问题?
- 怎样才能获得所有数据库服务器的名称列表???
- 抓狂中...还开一贴继续问..各位老大觉得软件培训这东西有用没啊!!!(如北大青鸟)
- 超出一个月未结贴的名单公布
- 我使用LMD控件组,Delphi6提示少了很多的*.pas和*.dcu文件怎么办啊,而且我使用了
- Delphi如何消除TEdit控件按回车后的系统声音
- 求DELPHI开发的二张图片人脸比对的源码啊,可用的,离线的
//则矩形宽度
W := ParentRect.Right-Parent.Left;
//高度
H := ParentRect.Bottom-Parent.Top;
//为便于计算和理解,声明一个变量tmpW,表示宽度的一半
tmpW := W div 2;//2、计算子节点位置,定义为ChildRect。假如子节点数目为n,节点的位置序号为index,则:
//(1)计算矩形的Top、Bottom
ChildRect.Top := ParentRect.Bottom;
ChildRect.Bottom := ChildRect.Top+H;//(2)计算所有子节点最左边的位置L
L := ParentRect.Left-((n-1)*tmpW);
//(3)计算所有子节点Left、Right
for Index := 0 to n-1 do begin
ChildRect[index].Left := L+W*index;
ChildRect[index].Right := ChildRect[index].Left+W;
end;
//3、递归调用第2步,即可计算出全部节点的矩形区域
//4、重新计算所有节点的实际绘制区域,留出间隔位置,如:
ChildDrawRect := ChildRect;
With ChildDrawRect do begin
Top := Top + (H div 6);
Bottom := Bottom - (H div 6);
Left := Left + (W div 6);
Right := Right - (W div 6);
end;
//5、绘制子节点与父节点的连接线(略)