最近有不少的朋友問我有關在dr中如何實現文本滾動效果的問題，我只給了一些方法的提示，我本身認為這個問題是比較的簡單的，但是隨著問的多了，也就意識到這個問題涉及的問題還真不少（自己是小瞧了這個問題了），后來就想找個典型的范例來和朋友們共同討論這個問題，在網上無意的瀏覽時候發現了下面的這個行為，使我對這個問題的認識更深了一步（里面還是有不少的技巧的），我從下面的程序里面也得到了一種新的行為編寫思維方式，同時在其他方面也得到了應用。下面就是這個程序，我做了一些簡單的注釋：
property pmem
property pimage
property pscroll
property pwidth, pheight
property pvisibleheight
property pbackgroundcolor

###定義這個行為的屬性設置###

on getpropertydescriptionlist me

list = [:]
addprop list, #pvisibleheight, [#comment: "visible height", #format: #integer, #default: 100]
return list

end

on beginsprite me

n 獲得text member 的大小
pwidth = sprite (me.spritenum).member.width
pheight = sprite (me.spritenum).member.height

n 獲得文本圖象的大小
pimage = duplicate (sprite (me.spritenum).member.image)
pbackgroundcolor = sprite (me.spritenum).member.bgcolor

n 創建一個新的位圖以供我們使用
pmem = new (#bitmap)
pmem.image = image (pwidth,pheight,32)
pmem.regpoint = point (0,0)
sprite (me.spritenum).member = pmem

n 實現圖象從低部向上滾動
pscroll = -pvisibleheight
setimage (me)

end

on setimage me

n 利用fill命令使圖象充滿背景色
pmem.image.fill (rect (0, 0, pwidth, pvisibleheight), pbackgroundcolor)

n 放置圖象到相應的位置上
pmem.image.copypixels (pimage, rect (0 ,0, pwidth, pvisibleheight), rect (0, pscroll, pwidth, pvisibleheight + pscroll))

end

on exitframe me

n 設置滾動的速度為一個象素
pscroll = pscroll + 1

n 如果滾動文本結束了，在這里設計循環
if pscroll > pheight then pscroll = -pvisibleheight

setimage(me)
end

on endsprite me
erase pmem
end

這個行為比我以前常用的方法是方便多了，先面我介紹一下這個行為的基本編寫思路，如果對lingo很熟悉的朋友通過上面的程序就能夠看的出來了，我再說這些就現的羅嗦了。但我還是想說一下我的體會（真是不可救藥啊！）
這個行為的最大的特點就是節約了空間，只要一個score就可以了。還有一個巧妙的用法就是用了fill命令，這樣在移動文本圖象的時候擦除舊的圖象。