引用:

---

Director技巧--关于text scroll 的问题
作者：Flyingbird 摘自经典论坛
有一个朋友在论坛上问如何让一个text sprite 自动滚屏？ 还有一个要求是，当滚动到文本的最后一行，可以再回到第一行重新继续滚动， 另外还要求如果鼠标点在文本上就停止滚动，再点击又继续滚动。

property pText --文本member
property pSpeed --滚动速率
property pFlag --判断条件
property pLastLine --scrollTop的极限值
property pCurrentTop --当前的scrollTop值

--初始化
on beginSprite me
sprite(me.spriteNum).member.scrolltop=0
pText=sprite(me.spriteNum).member
pLastLine=pText.height - sprite(me.spriteNum).height
end

--循环中监测符合滚动的条件并发出滚动的指令
on exitframe me
if pFlag=1 then
pCurrentTop=pText.scrollTop
if pCurrentTop < pLastLine then
scrollText me
else
pCurrentTop=0
scrollText me
end if
end if
end

--核心语句使text滚动
on scrollText me
pText.scrolltop=pCurrentTop + pSpeed
updatestage
end

--toggle flag on and off
on mouseDown me
pFlag=not pFlag
end

on getPropertyDescriptionList me
return [#pSpeed:[#comment:"滚动速度: ",#format:#integer,#default:"2"],\
#pFlag:[#comment:"自动开始滚动？",#format:#boolean,#default:"1"]]
end

---

这段语句实现循环滚动是从文本框的顶部开始，给人有视觉上很突然的感觉。我现在想从文本框的底部开始循环，但是修改程序后发现变量“PTEXT.SCROLLTOP”不能为负值。只好用苯办法在文本行前加一段空白段来实现。请问那位知道正确的修改办法？

好象scrolltop可以为负值！


我喜欢lingo！