Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Скролинг текста в RichEdit


perseptron ©   (2003-02-11 13:00:00) 

Please Help ME! Как сделать чтоб при добавлении строки методом RichEdit1.Lines.Add можна было бы видеть добавленый текст (тоесть скролер RichEdit"a не уходил вверх а все время был внизу)


perseptron   (2003-02-11 14:49:00) [1]

Если вместо SB_LINEDOWN поставить SB_BOTTOM а потом повторить процедурку для SB_LINEUP тогда получится то чего я добивался. Интересная и полезная оказывается процедура этот perform (надо будет разобратся) . Спасибо за помощь.


Sheriff   (2003-02-11 13:55:00) [2]

Rich1.Perform(WM_VSCROLL,SB_LINEDOWN,0);


Alexkr   (2003-02-11 13:52:00) [3]

Действительно, в Win98 что-то все прыгает. На Win2000 все в норме.


perseptron   (2003-02-11 13:41:00) [4]

вариант работает но немного не так как хотелось бы - текст уходит за пределы видимой области и чтоб его вернуть надобно опять кликать по проклятому скроллеру только вот уже в другую сторону. Пробовал добавить что-то типа M.Pos:=M.Pos-5 не получилось (в смысле результата). Может попробуем другие варианты...


Alexkr   (2003-02-11 13:11:00) [5]

Один из вариантов:

var
M: TWMScroll;
begin
......
M.Msg := WM_VSCROLL;
M.ScrollCode := SB_BOTTOM;
......
RichEdit1.Dispatch( M );
Application.ProcessMessages;
......
end;


Наверх

Титульная страница Поиск, карта сайта Написать письмо