Indikator progresa
Ovo je komponenta u Delphi okruženju poznata kao
TGauge. Njena upotreba je višestruka a prednosti vizuelizacije pojedinih procesa nije
potrebno nabrajati. Najpoznatija i najčešća primena joj je u instalacionim programima
(SetUp). Često se koristi i prilikom akvizicije podataka, kontrole industrijskih procesa
i sl.
U serijskoj komunikaciji računara i nekog
perifernog uređaja obično se razmenjuju razni podaci. Periferni uređaj šalje računaru
(i obratno) informacije koje je često potrebno prikazati na neki, čoveku prihvatljiv
način.
Jedan od načina vizuelizacije podataka je i korišćenje indikatora progresa (TGauge
komponente) koji programeru pruža mogućnost impresivne vizuelizacije.Indikator progresa
nalazi se na Samples stranici palete komponenti
Indikator progresa ima nekoliko osnovnih oblika, ili bolje rečeno načina prikaza. Kao
sto je to praksa objektnog programiranja ova podešavanja se rade preko
“ObjectInspector-a”. Slika 1 prikazuje “Object Inspector” TGauge komponente. U
“Properties” biramo opciju “Kind” uz pomoć koje određujemo način prikaza
(Tabela 1).
| gkHorizontalBar |
horizontalni pokazivač |
| gkNeedle |
"Igla" - očitava vrednost slično
kao kilometar sat kod vozila |
| gkPie |
grafikon "Pita" |
| gkText |
tekstualni pokazivač |
| gkVerticalBar |
vertikalni pokazivač |
Predviđena je mogućnost podešavanja minimalne i maksimalne vrednosti indikatora
porgresa. Nije moguće minimalnu vrednost postaviti na veću vrednost od maksimalne
vrednosti. Ako to učinimo na ekranu se pojavi upozorenje da postavljena vrednost ne može
biti veća od zadate maksimalne vrednosti, ali ni niža od –2exp(31). Tačnije rečeno
opseg zadatih vrednosti je od –2exp(31) do 2exp(31)–1.
Slika 1.
|
Vrednost možemo postaviti uz
pomoć “ObjectInspector-a”, ali i programski:
Gauge1.MinValue := 10;
Gauge1.MaxValue := 100;
Nikako nije zanemariva mogućnost višebojnog prikaza. Bojenje ove komponente posebno
dolazi do izražaja kad ima više sličnih indikatora u istom radnom okruženju. Boju
možemo kontrolisati po svim osnovima. Tako možemo odrediti boju pozadine (BackColor),
boju progres bar-a (ForeColor), boju fonta…
Gauge1.Color := clRed;
Gauge1.ForeColor := clRed;
Gauge1.Font.Color := clNavy;
Primer “oživljavanja” komponente prikazuje Slika 2. Na slici vidimo dva načina
prikazivanja komponente, odnosno dve vrste Indikatora progresa (brojčani i
vertikalni). |
Programski kod koji postavljamo na OnTimer
događaj timer-a može se upisati na dva načina:
Gauge.Progress := Gauge1.Progress + 1;
i
Gauge1.AddProgress(1);
Primer horizontalnog prikaza
|
Primer prikaza u obliku pite
|
Ono što je zajedničko kod
oba načina je “korak” progresa, koji je promenjiva veličina. Dakle, u koliko želimo
podesiti “korak” progresa jednostavno promenimo broj; npr.
Gauge1.AddProgress(5);
U koliko želimo direktno odrediti koliki je progres onda pišemo:
Gauge1.Progress := 20. |
TTimer komponenta je u radu sa indikatorom
progresa veoma značajna. U ovom primeru brzinu pomeranja indikatora progresa određujemo
postavljanjem vrednosti u interval tajmera. Inicijalno je postavljenja na 1000, tj. na
jednu sekundu.
Slika 2.
|
To u praksi znači da tajmer
komponenta svake sekunde upisuje novu vrednost “Progress Properties” TGauge
komponente.
Pokretanjem, odnosno zaustavljanjem tajmera određujemo položaj indikatora progresa.
Programski kod kojim određujemo ponašanje indikatora progresa upisujemo na OnTimer
događaj. |
Izgled gotove aplikacije
|
| Pročitajte više o ovoj
temi |
|
|
|
|
