Director技巧--关于text scroll 的问题

4/7/2006来源:Director教程人气:7631

有一个朋友在论坛上问如何让一个text sPRite 自动滚屏? 还有一个要求是,当滚动到文本的最后一行,可以再回到第一行重新继续滚动, 另外还要求如果鼠标点在文本上就停止滚动,再点击又继续滚动。

回答:
这是一个很有趣的问题, lingo 的语句并不难, 需要了解的是一些背景知识和解决问题的过程, 事实上, lingo programming的过程就是解决问题的过程, 对于解决问题来说, 第一步莫过于定义问题是什么?从上面的问题里我们已经了解得比较清楚了, 下面是问题清单:
1.Text sprite 自动滚屏;
2.当滚动到最后一行时回到第一行重新开始滚动;
3.鼠标点击toggle 滚屏的on 和off.

我们知道, text member可以有几种不同的framing 设定,对于滚屏来说,最合适的设定是fixed.见下图:

这样可以将比较长的文件限制在有限的舞台空间来显示,同时又不出现滚动条。 不过这只完成了第一步, 我们需要lingo 把文本文件滚动起来。 最合适的的语句是用scrollTop这个text member 的属性。 它的定义是从member 的顶端到第一行可见文字的距离, 当movie 播放时,我们都会使用on exitFrame 句柄来制造循环。 好, 如果我们可以让这个text sprite 在每次离开frame时,它的member.scrollTop值就增加一点,不就实现了滚动了吗。

member.scrollTop=member.scrollTop + 4

这就是核心语句。 那么如何得知文本最后一行的位置以及建立与scrollTop的关系呢? 请看下图:

我们可以很容易的得出这样的结论, 当最后一行文本显示在舞台上时,那时候text member 的scrollTop 值等于member的高度减去sprite 的高度。也就是 :
member.height – sprite.height = the scrollTop when last line appear on the stage.

鼠标的控制比较容易,设定一个flag就可以了。

问题分析完了,开始写script, 最好是写成behavior的形式, 符合OOP的概念, 又可以使用在不同的text sprite 上。 你可以持续丰富你自己的behavior library.

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

下图是当用该行为对text sprite赋值时的screen shot:


你也可以写behavior了吧。 有什么建议请寄email:simonyxw@yahoo.com.