Przewijanie za tekstem

0

Mam komponent RichEdit i dodaję do niego linijki za pomocą rText.Lines.Add('text');
Jak zrobic, aby przewijał się za tekstem?--Delphi 6
Pozdrowienia,
Imperior

0

RichEdit.ScrollBy + F1--Astacus (D5 Pro)

0

stacus w dniu 25.3.2002 13:23 napisal:
RichEdit.ScrollBy + F1
&gt
&gt--
&gtAstacus (D5 Pro)

Jak taki cwany jesteś to sam tak zrób i zobacz co wyjdzie--Delphi 6
Pozdrowienia,
Imperior

0

i co jak to zroboć?

0

Rozwiazanie czesciowe (z Borland Community):

RichEdit1.Lines.Add('BleBle');
RichEdit1.Perform(EM_SCROLL,SB_LINEDOWN,0);

czesciowe, bo scrolluje Edita tylko o 1 linie w dol. dziala wiec dobrze przy pisaniu wielu linii w pusty Edit. Mysle i szukam dalej.--Pawel

Delphi6

0

Moja poprawka:

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}

Pawel--Pawel

Delphi6

0

Bravo!
Dzięki bardzo o to chodziło!--Delphi 6
Pozdrowienia,
Imperior

0

Spoko! A żeby nie było tego że jedna linijka jest nie przewinięta ten kod powinien wyglądać tak:

Chat.Perform(EM_SCROLLCARET,0,0);
Chat.Perform(EM_SCROLL,SB_LINEDOWN,0); //nie LINEUP

0

uuuuu nie sory (ty ją specjalnie usunąłeś :))) - nie doczytałem :P

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