RichEdit -> Weiches Scrollen

Alibi · Beiträge: 458 Win2K SP3 Delphi 6 Ent

Hi,
wie scroll ich in einem TRichEdit weich nach unten?
Meine momentane Methode ist ein Timer Event:

Quelltext

1:
2:
3:
4:
5:
6:

    with RichEdit1 do
    begin
      itemp := SendMessage(Handle, EM_LINEFROMCHAR, SelStart, 0);
      SelStart := Perform(EM_LINEINDEX, itemp + 1, 0);
      Perform(EM_SCROLLCARET, 0, 0);
    end;

Nunja, und der scrollt so ruckartig, eben immer eine Zeile. Geht das auch, dass ich z.B. 3 Pixel (oder wie die Einheit auch immer ist) scrollen lasse?

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme