[es] - Autoscroll text u memo polju

matobj

Član broj: 72323
Poruke: 9
*.adsl.net.t-com.hr.

Profil

^{02.04.2008. u 19:48}

pozdrav,

kako da napravim autoscroll teksta u npr. memo polju.

Dakle imam nekakav tekst od 100 linija i zelim da se on sam vertikalno skrola i da sve to izvrti u npr. 25 sec.

uff kak ne znam objasnit :)

^{02.04.2008. u 19:48}

nikomak
Nikola Makić
Beograd

Član broj: 177053
Poruke: 15
*.eunet.yu.

Profil

Re: Autoscroll text u memo polju

^{02.04.2008. u 20:13}

Nesto kao CREDITS scroller, zar ne ?

Evo ovde koda http://jvcl.svn.sourceforge.ne...n/JvScrollText.pas?view=markup
Ili instaliraj JEDI Vcl, pa koristi JvScrollText komponentu, a ima i mali milion drugih :)

TurboDispatchJumpAddressEnd
----
Knocka Fia

^{02.04.2008. u 20:13}

matobj

Član broj: 72323
Poruke: 9
*.adsl.net.t-com.hr.

Profil

Re: Autoscroll text u memo polju

^{02.04.2008. u 21:13}

Ma svaka cast majstore :)
1000 x thx

^{02.04.2008. u 21:13}

mVeliki
Miroslav Ćurčić
Novi Sad

Član broj: 19034
Poruke: 541
*.adsl.beotel.net.

Profil

Re: Autoscroll text u memo polju

^{02.04.2008. u 21:16}

Staviš tScrollBox na formu.
Unutar nje tMemo kome postaviš Height na koliko treba, može statično a možeš i da izračunaš (broj redova puta visina fonta).
Staviš tTimer na formu i u OnTimer staviš da se povećava osobina Position od tScrollBox-a. Valjda se zove Position ako nisam omašio.

_{"The quieter you become, the more you are able to hear."}

^{02.04.2008. u 21:16}

matobj

Član broj: 72323
Poruke: 9
213.147.110.*

Profil

Re: Autoscroll text u memo polju

^{03.04.2008. u 06:08}

OK super :)

E kako sad izracunat da mi tih 100 linija traje recimo 2:13 min :( ?, ali da mi to skroz odskrola ?

^{03.04.2008. u 06:08}

dogriz
Sombor

Član broj: 29744
Poruke: 170
*.dynamic.sbb.rs.

Profil

Re: Autoscroll text u memo polju

^{03.04.2008. u 06:20}

Pa ti promeni, ne mora to da bude 100 linija, neka bude npr. onoliko koliko je sekundi: 2:13 min -> 133 linije, a Timer neka bude na 1000 ms

^{03.04.2008. u 06:20}

X Files
Vladimir Stefanovic
Pozarevac

SuperModerator
Član broj: 15100
Poruke: 2580
*.tekostolac.co.yu.

Jabber: xfiles@elitesecurity.org
Sajt: www.antivari.com

Profil

Re: Autoscroll text u memo polju

^{03.04.2008. u 08:13}

Citat:

mVeliki: Staviš tScrollBox na formu.
Unutar nje tMemo kome postaviš Height na koliko treba, može statično a možeš i da izračunaš (broj redova puta visina fonta).
Staviš tTimer na formu i u OnTimer staviš da se povećava osobina Position od tScrollBox-a. Valjda se zove Position ako nisam omašio.

Ranije sam malo proucavao koji je najbrzi (i za sporije masine) i 'najglatkiji' skrol koji pruza VCL "out of box", bez raznih trikova, tehnika i 3rd party komponenti. Dosao sam do zakljucka da je pomeranje TScrollBox-a (bez obzira na sadrzaj koji je unutra) najbrze.

Sto se tice Position osobine, ako se ne varam, ona ima jednu manu (barem kod C++ Buildera). Kada se disable-uju horizontalni i vertikalni barovi (da bi skrol licio na nesto) onda Position nije radio!

Srecom metoda TScrollBox::ScrollBy() je radila.

Ovo bi bio neki test primer sa TLabel objektom unutar TScrollBox-a. Kod je u C++, ali kako je cist VCL u pitanju, dovoljno je jasan:

Code:

for ( int i=0; i<=Label1->Width; i++ )
{
   Caption = i;
   Sleep( 10 );
   ScrollBox1->ScrollBy( -1,0 );
   ScrollBox1->Update();
}

FREEWARE
Di rečnik, v1.0.058 (srp-eng/eng-srp priručni rečnik)
http://www.antivari.com

^{03.04.2008. u 08:13}