TMemo上でなめらかなスクロール

解決

カレーライズ 2006-04-25 08:26:51 No: 21175

お世話になります。Delphi について質問があります
今 TMemoに複数行に渡っていろいろと文字列が書かれています。そこでボタンを押すと先頭行から最終行までスクロールさせています。
Perform()のEM_LINESCROLLを使って一行ずつスクロールさせているのですが、カクカクとして見づらいスクロールになってしまいます
これをどうにかしてなめらかなスクロールにしたいのですが何か方法はあるのでしょうか？？どなたかご存知でしたらご教授よろしくお願いします

ん？ 2006-04-25 19:52:52 No: 21176

TPaintBoxなんかを使って、自前でなめらかスクロールになるように描画するしかないんじゃないですか？
TMemoだと、先頭行がきっちり表示され、１行分きっちり移動するスクロールにしかならないはず。

ゲームのオープニングにあるような、下から文字が出てきて上方向にスクロールして消えるというのをイメージしたけど、違う？

deldel 2006-04-25 20:18:34 No: 21177

Memoの高さを、テキスト全てが表示される大きさにし、
このMemoをScrollBoxに貼り付け、ScrollBoxをなめらかに
スクロールするというのはできないですか？
（やってないけど・・・）

ん？ 2006-04-25 20:48:41 No: 21178

> このMemoをScrollBoxに貼り付け、ScrollBoxをなめらかに
> スクロールするというのはできないですか？

スレ主ではないけれどやってみました。
タイマーでスクロール

TMemoの高さ約2500
ScrollBox.DoubleBuffered := True;
TTimer.Interval := 10;
ScrollBox.Postion の移動量1

けっこうスマートなスクロールになりました。

おもしろいですね、このような組み合わせは思いつきませんでした。
deldel さん、ありがとうございました。

カレーライズ 2006-04-26 09:42:11 No: 21179

ん？さん。deldelさん。ありがとうございます。
  deldelさんへ
  deldelさんの言われたような考えなんて思いもつきませんでした。是非試してみたいと思います。ありがとうございます。
  ん？さんへ
  アドバイスのみならず  検証まで行って頂いてありがとうございます。私も同じように作成してみたいと思います。ありがとうございます。