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):var
ScrollPozicija: integer = 0;
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):procedure TForm1.Timer1Timer(Sender: TObject);
const
// Prostor koji odvajamo za prikaz teksta
SCROLL_PROSTOR = 10;
begin
// Dio teksta koji se prikazuje
Form1.Caption := Copy(ScrollTekst, ScrollPozicija, SCROLL_PROSTOR);
// Povecanje skrol pozicije za jedan karakter
Inc(ScrollPozicija);
// Vrsimo resetovanje pozicije kada
// skrolujuci tekst dodje do kraja
if ScrollPozicija >= Length(ScrollTekst) then
ScrollPozicija := 0;
end;
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.