Форум: "Основная";
Текущий архив: 2002.08.19;
Скачать: [xml.tar.bz2];

Вниз

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

← →
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]

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

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.08.19;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.006 c