最近有不少的朋友问我有关在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 = du
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 = du