如何实现文字在固定背景图片上滚动?(100分)

  • 主题发起人 主题发起人 netis
  • 开始时间 开始时间
N

netis

Unregistered / Unconfirmed
GUEST, unregistred user!
比如在form上放一图片,让读入的文字在图片上如字幕一样向上
缓缓卷动,而背景图片不动。用Bitblt吗?
 
Label1.Transparent := True;
Dec(Label1.Top);
 
用label可不行,象readbook一样,用label可要累死我?我想是格式化好文本,在往canvas
上写。
 
放一个大小一样的TImage在图象上面,把它的TransParent设为True,然后在它的Canvas上输出。
 
用一透明的image控件加一timer控件,在timer事件中通过image.canvas.textout函数
实现(通过修改x,y值)
 
最好用paintbox,否则repaint可能不正常。
 
用extraform中的控件,Cool.
 
LMD中也有一个ScrollText
 
BUpack好象也有个垂直滚动
放在IMAGE上就可以了
 
RXLIB的控件你试试吧,很好的哟!
 
RXLIB的控件在哪里?
 
不管什么,想做好总不会很容易的,简单的方法自然要付出代价。
readbook用了DirectX的技术。
有兴趣的话可以试试。
 
不用directX或类似技术的话,闪烁会很严重。
 
可以这样
文本直接写在Image中,
在刷新的时候,删除并重建图象,然后重新写文字,最后输出图象就行了
 

很久没回答问题了,加上你这100分刚好一万分。

正好以前做过一个类似的,你想显示多少行都不要紧,

而且是动态文本,只要装载就行。

去收信吧!已经给你发了一个例子。
 
我曾经做了一个这样的控件!
具体实现的原理就是将字符串画到内存的一个位图上,然后把位图的一部分复制到控件的
CANVAS上,从位图的顶部开始,依次向下移动一个像素。不断的移动,复制,知道复制到低部
然后在从头开始!这样做出的移动不会有闪烁!
 
如何实现文字在固定背景图片上滚动?也给我一个例子好吗?谢谢!
 
把背京图多考一份在IMAG中,
文字每移动一次就用拷的付盖一次就行了。
 
to 黄耀彰:
//很久没回答问题了,加上你这100分刚好一万分。
呵呵,我差 30 一万分!
我看你好象才 8*** 啊?不止差100吧。

例子给我一份,我给你加到 9000 怎么样?
 
后退
顶部