AutoScroll w RichEdit

0

Kilka dni temu pytałem się, jak zrobić autoscroll przy dodaniu jakiejść linii do RichEdit. Odpowiedzi nie uzyskałem (przynajmniej nie taką, na jaką liczyłem), więc poszukałem i znalazłem. Procedura:

begin
RichEdit1.Lines.Add('New text');
RichEdit1.Perform(EM_SCROLL,SB_LINEDOWN,0);
end;

I działa, ale nie dokońca, ponieważ przewija tylko o jedną linię w dół, więc jak ustawimy się w połowie textu, to będzie przesuwał tylko o jeden, a nie na sam koniec textu. Ktoś może ma sugestie, jak zrobić, żeby się ustawiało na koniec??

0

Nie Ty jeden o to pytales [chyba nas, a nie sie :-) ] i miales tego pecha, ze odpowiadano (w tym nizej podpisany) w tym drugim watku.

Oto kluczowy fragment:

RichEdit1.Lines.Add('BleBle'+IntToStr(Random(30)));
RichEdit1.Perform(EM_SCROLLCARET,0,0); //scrolluje do kursora
RichEdit1.Perform(EM_SCROLL,SB_LINEUP,0);
{Ostatnia linia jest opcjonalna - usuwa niestetyczna pusta linie
z dolu ale wtedy scrollbar jest ustawiony troszke ponad najnizsza pozycja}

Watek nazywal sie "Przewijanie za tekstem"

Pozdrowienia--Pawel

Delphi6

0

Błagam powiedzcie jak zrobić to samo z WebBrowserem????

mile widziana odpowiedz na [email protected]

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0