 ::  |
| Autor |
Poruka |
Doktor
~Sanjicino*slculence~
 |
Godine: 38
Datum registracije: 17 Nov 2005
Poruke: 4264
Mesto: Novi Sad
|
|
Ovo je nacin da se promeni boja pozadine i progres linije kod TProgressBar komponente. Kod standardne postavke na Windows XP OSu, boja pozadine je siva a progres linija je plava. Ovaj primer koristi unit CommCtrl pa ga morate uvrstiti u uses listu (ili kako himzo kaze klauzulu)...
| Code: | uses
CommCtrl;
...
procedure TForm1.Button1Click(Sender: TObject);
begin
// Postavljanje boje pozadine
Progressbar1.Brush.Color := clRed;
// Postavljanje boje progres linije
SendMessage(ProgressBar1.Handle, PBM_SETBARCOLOR, 0, clWhite);
end; |
Pritiskom na dugme (Button1) boja progres bara postaje crvena za pozadinu i bela za progres liniju.
|
_________________
~*~Vojim svoje srculence najvise na svetu ~*~ :322:
 |
|
| |
|
 |
|
|
Vi ne možete otvarati nove teme u ovom forumu
Vi ne možete odgovarati na teme u ovom forumu
Vi ne možete menjati Vaše poruke u ovom forumu
Vi ne možete brisati Vaše poruke u ovom forumu
Vi ne možete glasati u anketama u ovom forumu
Vi ne možete postavljati fajlove u ovom forumu
Vi ne možete preuzeti fajlove sa ovog foruma
|
|
