Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Autoscroll text u memo polju

[es] :: Pascal / Delphi / Kylix :: Autoscroll text u memo polju

[ Pregleda: 2627 | Odgovora: 6 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

matobj

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



Profil

icon Autoscroll text u memo polju02.04.2008. u 19:48 - pre 194 meseci
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 :)
 
Odgovor na temu

nikomak
Nikola Makić
Beograd

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



+1 Profil

icon Re: Autoscroll text u memo polju02.04.2008. u 20:13 - pre 194 meseci
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
----
And so we meet, again in a different time
 
Odgovor na temu

matobj

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



Profil

icon Re: Autoscroll text u memo polju02.04.2008. u 21:13 - pre 194 meseci
Ma svaka cast majstore :)
1000 x thx
 
Odgovor na temu

Miroslav Ćurčić
ex mVeliki
Novi Sad

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



+19 Profil

icon Re: Autoscroll text u memo polju02.04.2008. u 21:16 - pre 194 meseci
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."
Blog | PowerCMS
 
Odgovor na temu

matobj

Član broj: 72323
Poruke: 73
213.147.110.*



Profil

icon Re: Autoscroll text u memo polju03.04.2008. u 06:08 - pre 194 meseci
OK super :)

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

 
Odgovor na temu

dogriz
Sombor

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

Sajt: dogriz.blogspot.com


+6 Profil

icon Re: Autoscroll text u memo polju03.04.2008. u 06:20 - pre 194 meseci
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
 
Odgovor na temu

X Files
Vladimir Stefanovic
Pozarevac

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

Jabber: xfiles@elitesecurity.org


+638 Profil

icon Re: Autoscroll text u memo polju03.04.2008. u 08:13 - pre 194 meseci
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(); 
}

 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: Autoscroll text u memo polju

[ Pregleda: 2627 | Odgovora: 6 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.