Скачать: CL | DM;

Как программно проскролить текст в memo ?   Найти похожие ветки 

← →
CAMCOH ©   (2004-11-03 21:03) [0]

Нашёл вот такой вариант

memo1.Perform(WM_VScroll, SB_LINEDOWN,0);

но delphi непонимает WM_VScroll почемуто...

---

← →
Игорь Шевченко ©   (2004-11-03 22:40) [1]

Наверное потому, что uses Messages не указано ?

---

← →
CAMCOH ©   (2004-11-04 08:42) [2]

Spasibo :)

---

← →
Boban   (2004-11-05 10:22) [3]

Все это хорошо, а кто знает, как организовать ПЛАВНЫЙ скроллиг в мемо и RichEdit ?

---

← →
Ученик   (2004-11-05 21:46) [4]

Видел тут такой код



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;



---

← →
Игорь Шевченко ©   (2004-11-05 22:16) [5]

> Все это хорошо, а кто знает, как организовать ПЛАВНЫЙ скроллиг
> в мемо и RichEdit ?


1. Вопросы задаются каждый в своей ветке.
2. ScrollWindowEx с SW_SMOOTHSCROLL в flags.

---

← →
Ученик   (2004-11-05 22:54) [6]

>Игорь Шевченко ©   (05.11.04 22:16) [5]

Если не затруднит, пример рабочего кода ?

---

← →
Игорь Шевченко ©   (2004-11-05 23:22) [7]

Ученик   (05.11.04 22:54) [6]

Готового нету, если писать, то попозже, ок ?

---

← →
Ученик   (2004-11-05 23:29) [8]

>Игорь Шевченко ©   (05.11.04 23:22) [7]
Да, ok

---

← →
Игорь Шевченко ©   (2004-11-05 23:42) [9]

Ученик   (05.11.04 23:29) [8]

На всякий случай, черкани письмо на whitefranz@hotmail.com, чтобы не потеряться.

---

← →
Boban   (2004-11-10 10:04) [10]

Проблема не в собственно плавной прокрутке, а в организации "подкачки" новых выплывающих строк RichEdit. Игорь, есть соображения по этому поводу ?
Спасибо.

---

← →
Игорь Шевченко ©   (2004-11-10 11:38) [11]

> а в организации "подкачки" новых выплывающих строк RichEdit.


Насколько мне известно, эта функцинальность уже заложена в Edit-controls, в том числе и в RichEdit

---

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

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.027 c