Prikazi cijelu temu 10.11.2010 02:58
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Delphi-Skrol teksta
Klizna poruka
Ovo skrolovanje je vrlo slicno tekstu koji skroluje u Taskbar liniji ili recimo kao u WinAmp prozoru, kada naslov pjesme koja se reprodukuje skroluje.
Ono sto cemo prvo odrediti su dvije globalne varijable:
PreuzmiIzvorni kôd (Delphi):
  1. var
  2.     ScrollPozicija: integer = 0;
  3.     ScrollTekst : string = 'Ovo je tekst koji skroluje...';
Prva varijabla (ScrollPozicija) je tipa integer i ona ce sadrzati vrednost trenutne pozicije skrolujuceg teksta, a druga (ScrollTekst) predstavlja tekst koji ce da "klizi" po naslovnoj liniji. Startovat cemo skrolovanje teksta sa istim brojem karaktera (praznih mesta), koliko celimo da se odjednom prikaze odredjeni tekst. Potom skrolovanje pocinje sa desne strane i ide ka levoj. Sledeca procedura koristi komponentu "Timer" da bi se izvrsilo pomijeranje teksta udesno. Zato smo iskoristili dogadjaj komponente "OnTimer":
PreuzmiIzvorni kôd (Delphi):
  1. procedure TForm1.Timer1Timer(Sender: TObject);
  2. const
  3.  
  4.   // Prostor koji odvajamo za prikaz teksta
  5.   SCROLL_PROSTOR = 10;
  6. begin
  7.   // Dio teksta koji se prikazuje
  8.   Form1.Caption := Copy(ScrollTekst, ScrollPozicija, SCROLL_PROSTOR);
  9.   // Povecanje skrol pozicije za jedan karakter
  10.   Inc(ScrollPozicija);
  11.   // Vrsimo resetovanje pozicije kada
  12.   // skrolujuci tekst dodje do kraja
  13.   if ScrollPozicija >= Length(ScrollTekst) then
  14.    ScrollPozicija := 0;
  15. end;
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.