Przewijanie za tekstem

2002-03-25 11:23
Imperior
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

Pozostało 580 znaków

2002-03-25 13:23
tacus
0

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

Pozostało 580 znaków

2002-03-25 17:53
Imperior
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

Pozostało 580 znaków

2002-03-25 23:10
ReNe
0

i co jak to zroboć?

Pozostało 580 znaków

2002-03-26 23:24
pq
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

Pozostało 580 znaków

2002-03-26 23:43
pq
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

Pozostało 580 znaków

2002-03-27 09:56
Imperior
0

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

Pozostało 580 znaków

2002-03-28 09:18
ReNe
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

Pozostało 580 znaków

2002-03-28 09:19
ReNe
0

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

Pozostało 580 znaków

Liczba odpowiedzi na stronę

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