如何实现象Readbook滚动文本的功能?(100分)

  • 主题发起人 蔡严聪
  • 开始时间

蔡严聪

Unregistered / Unconfirmed
GUEST, unregistred user!
想实现象Readbook放大字体,控制滚动速度的功能,
并且要求能在放大字体的状态下,修改文本,
请教高手,希望能有源码资料,谢谢!
 
Z

zw84611

Unregistered / Unconfirmed
GUEST, unregistred user!
这个不困难的,你可以用Memo或RichEdit。
要实现文本滚动,可以放一个Timer,在OnTimer事件中加入
SendMessage(richedit1.Handle,WM_VSCROLL,1,0);
你修改Timer的interval就是修改了滚动速度。
放大字体就是设置RichEdit.font.size。
修改文本更不在话下。
还需要源码吗?自己做一个也用不了几分钟呀。
 

蔡严聪

Unregistered / Unconfirmed
GUEST, unregistred user!
但是,这样的话,滚动非常不流畅,有没有办法滚动时不是移动整行,
而是按象素大小来移动?
 
8

80年代

Unregistered / Unconfirmed
GUEST, unregistred user!

Similar threads

回复
0
查看
504
不得闲
D
回复
0
查看
817
DelphiTeacher的专栏
D
顶部