#32002/4/27 16:16:03
我用的是插件TreeView(http://www.updatestage.com)
点右键的方法不行,因为此目录是一整体对象。
lingo如下:
global event
on beginsprite
event=false
--建立根节点root
root = getRootNodeXTV(sprite 6)
--根节点取名为"多媒体魔法录"
setNameXTV(sprite 6,root,"结构介绍")
--添加五个孩子节点
SecondNodeID1 = addChildXTV(sprite 6, root, 1, 0)
setNameXTV(sprite 6,SecondNodeID1,"部分")
SecondNodeID2 = addChildXTV(sprite 6, root, 1, 0)
setNameXTV(sprite 6,SecondNodeID2,"部分1-1")
SecondNodeID3 = addChildXTV(sprite 6, root, 1, 0)
setNameXTV(sprite 6,SecondNodeID3,"1-2")
--添加孙子节点
ThirdNodeID1 = addChildXTV(sprite 6, SecondNodeID1, 1, 0)
setNameXTV(sprite 6,ThirdNodeID1,"1-3")
ThirdNodeID1 = addChildXTV(sprite 6, SecondNodeID1, 1, 0)
setNameXTV(sprite 6,ThirdNodeID1,"1-4")
ThirdNodeID1 = addChildXTV(sprite 6, SecondNodeID1, 1, 0)
setNameXTV(sprite 6,ThirdNodeID1,"1-5")
ThirdNodeID2 = addChildXTV(sprite 6, SecondNodeID2, 1, 0)
setNameXTV(sprite 6,ThirdNodeID2,"2")
ThirdNodeID2 = addChildXTV(sprite 6, SecondNodeID2, 1, 0)
setNameXTV(sprite 6,ThirdNodeID2,"2-1")
--将根节点展开
setExpandedXTV(sprite 6,0,1)
---- Hide scrollbars
setScrollbarUsageXTV(sprite 6,1)
setScrollbarColorsXTV(sprite 6,0,0,65535,0,0,65535,0, 0,0)
--设置标题颜色为白色
repeat with i=0 to 25
setFontColorXTV(sprite 6,i,65535,65535,65535)
end repeat
--设置当点击时标题文字的背景色
setTextHiliteColorXTV(sprite 6,65535,0,65535)
--向文字格式列表中添加新的一项
fontlist=addFontXTV(sprite 6,"Arial",16,0)
--设置标题文字的格式
repeat with i=0 to 25
setFontIDXTV(sprite 6,i,fontlist)
end repeat
put event
End
--on expandtree
-- if event=false then
-- setExpandedXTV(sprite 6,0,1)
-- else
-- setExpandedXTV(sprite 6,0,0)
-- end if
--end
on treeViewSingleClick refcon, id, whichPart
refcon=0
id=0
whichPart=2
if event=false then
setExpandedXTV(sprite 6,0,0)
redrawXTV(sprite 6)
event=true
else
setExpandedXTV(sprite 6,0,1)
redrawXTV(sprite 6)
event=false
end if
put event
end