![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как программно проскролить текст в memo ? [D7, Win2k, WinXP]
CAMCOH © (2004-11-03 21:03:00)Нашёл вот такой вариант
memo1.Perform(WM_VScroll, SB_LINEDOWN,0);
но delphi непонимает WM_VScroll почемуто...
Игорь Шевченко (2004-11-10 11:38:00) [1]
> а в организации "подкачки" новых выплывающих строк RichEdit.
Насколько мне известно, эта функцинальность уже заложена в Edit-controls, в том числе и в RichEdit
Boban (2004-11-10 10:04:00) [2]Проблема не в собственно плавной прокрутке, а в организации "подкачки" новых выплывающих строк RichEdit. Игорь, есть соображения по этому поводу ?
Спасибо.
Игорь Шевченко (2004-11-05 23:42:00) [3]Ученик (05.11.04 23:29) [8]
На всякий случай, черкани письмо на whitefranz@hotmail.com, чтобы не потеряться.
Ученик (2004-11-05 23:29:00) [4]>Игорь Шевченко © (05.11.04 23:22) [7]
Да, ok
Игорь Шевченко (2004-11-05 23:22:00) [5]Ученик (05.11.04 22:54) [6]
Готового нету, если писать, то попозже, ок ?
Ученик (2004-11-05 22:54:00) [6]>Игорь Шевченко © (05.11.04 22:16) [5]
Если не затруднит, пример рабочего кода ?
Игорь Шевченко (2004-11-05 22:16:00) [7]
> Все это хорошо, а кто знает, как организовать ПЛАВНЫЙ скроллиг
> в мемо и RichEdit ?
1. Вопросы задаются каждый в своей ветке.
2. ScrollWindowEx с SW_SMOOTHSCROLL в flags.
Ученик (2004-11-05 21:46:00) [8]Видел тут такой код
var
i: Integer = 0;
procedure TForm1.Timer1Timer(Sender: TObject);
var
r : TRect;
begin
r:=memo1.clientrect;
inc(i);
R.Top := R.Top - i;
memo1.Lines.BeginUpdate;
memo1.perform(em_setrectnp,0,Integer(@r));
memo1.Lines.endUpdate;
end;
Boban (2004-11-05 10:22:00) [9]Все это хорошо, а кто знает, как организовать ПЛАВНЫЙ скроллиг в мемо и RichEdit ?
CAMCOH (2004-11-04 08:42:00) [10]Spasibo :)
Игорь Шевченко (2004-11-03 22:40:00) [11]Наверное потому, что uses Messages не указано ?