Гладкое скроллирование текста

← →
MARcoDEN (2002-08-08 08:39) [0]

Мастера, выручайте! Как можно сделать гладкое скроллирование текста (допустим, в Memo или ListBox"e - неважно) наподобие титров в фильме? Пробовал посылать сообщения

for i:=0 to Memo1.Lines.Count-1 do begin Memo1.Perform(EM_LINEINDEX, i, 0); Memo1.Perform(EM_SCROLLCARET, 0, 0); end;

Но это не то, что надо :(. Нужно не переход на следующую строку, а именно ГЛАДКОЕ ВЫПОЛЗАНИЕ текста, например, сверху или снизу. Буду очень благодарен всем, кто мне ответит!

← →
MBo (2002-08-08 09:08) [1]

в стандартных текстовых окнах windows скроллинг только построчный. Можешь рисовать текст сам Textout или Drawtext

← →
MBo (2002-08-08 09:50) [2]

вот принцип, можно доработать

procedure TForm1.Timer1Timer(Sender: TObject);
var r:trect;
begin
r:=memo1.clientrect;
inc(i);
inflaterect(r,0,i);
memo1.Lines.BeginUpdate;
memo1.perform(em_setrectnp,0,Integer(@r));
memo1.Lines.endUpdate;
end;

← →
MARcoDEN (2002-08-09 08:08) [3]

Спасибо, буду пробовать!

Гладкое скроллирование текста Найти похожие ветки