Stosowanie komponentów Calendar i ProgressBar

Komponent Calendar to tabelka określająca dni miesiąca i odpowiadające im nazwy dni tygodnia. Podstawowe właściwości:

Month - właściwość określająca numer miesiąca

Day - właściwość określająca numer dnia w miesiącu.

Komponent ProgressBar to wskaźnik przebiegu procesu. Podstawowe właściwości:

Min - minimalna wartość słupka wskaźnika - pozycja startowa

Max - maksymalna wartość słupka wskaźnika - pozycja końcowa

Position - bieżąca pozycja wskaźnika - proporcjonalnie do tego wskazania następuje zamalowanie słupka wskaźnika innym kolorem.

Ćwiczenie 3.8

Zadanie aplikacji

Aplikacja pokazuje kalendarz z zaznaczoną bieżącą datą. Na etykiecie uwidocznione jest, ile dni upłynęło od początku roku, dwa słupki wykresu pokazują w procentach, jaką część roku i jaką część miesiąca mamy już za sobą. Po zaznaczeniu w kalendarzu innego dnia następuje aktualizacja wykresów.

Nowe umiejętności

Zastosowanie słupków zaawansowania procesu ProgressBar i kalendarza.

1. Na formularzu umieść komponenty:

• Calendar z karty Sample:

• dwa komponenty ProgressBar z karty Win32; pierwszy do pokazywania przebiegu czasu dla miesiÄ…ca i drugi dla roku.

• dwie etykiety, umieszczajÄ…c je obok sÅ‚upków ProgressBar; ustaw napisy na etykietach odpowiednio: MiesiÄ…c, Rok.

2. Wyskaluj ProgressBar z etykietą Rok w następujący sposób:

Min 1

Max 365

3. Dla komponentu ProgressBar z etykietą Miesiąc ustaw właściwość

Min 1

4. Wpisz procedurÄ™ OnActivate dla formularza:

procedure TForm1.FormActivate(Sender: TObject);

//tablica stałych określająca liczbę dni w miesiącu

const Miesiac:array[l..12]ofInteger=(31,28,31,30,31,30,31,31,30,31,30,31);

var m, i, ile_dni: Integer;

begin

m:=Calendar1.Month;

ProgressBar1.Max: = Miesiac[m]; //maksymalna liczba dni w danym miesiÄ…cu

ProgressBar1.Position: = Calendarl.Day //bieżący dzień w miesiącu

ile_dni:=0; //pętla oblicza, ile dni upłynęło od początku roku do danego miesiąca

for i:=1 to m-1 do

ile_dni := ile_dni + Miesiac[i];

ile_dni :=ile_dni + Calendar1.Day-1;

Label2.Caption:=Label2.Caption + IntToStr(ile_dni);

ProgressBar2.Position:=ile_dni;

Label1.Caption:=Label1.Caption + IntToStr(Calendar1.Day);

end;

5. Uruchom aplikacje i sprawdź jej działanie.

Zadanie l

Dodaj do aplikacji reakcje na zmianę daty w kalendarzu, tak aby aktualizowały się słupki stanu.

Zadanie 2

Wykonaj to samo ćwiczenie, stosując zamiast słupków ProgressBar komponent Gauge z karty Sample.

Zadanie 3

Dodaj listę wyboru z nazwami miesięcy i ustawiaj z listy numery miesięcy (właściwość Month komponentu Calendar).

Stosowanie komponentów Calendar i ProgressBar

Komponent Calendar to tabelka określająca dni miesiąca i odpowiadające im nazwy dni tygodnia. Podstawowe właściwości:

Month - właściwość określająca numer miesiąca

Day - właściwość określająca numer dnia w miesiącu.

Komponent ProgressBar to wskaźnik przebiegu procesu. Podstawowe właściwości:

Min - minimalna wartość słupka wskaźnika - pozycja startowa

Max - maksymalna wartość słupka wskaźnika - pozycja końcowa

Position - bieżąca pozycja wskaźnika - proporcjonalnie do tego wskazania następuje zamalowanie słupka wskaźnika innym kolorem.

Ćwiczenie 3.8

Zadanie aplikacji

Aplikacja pokazuje kalendarz z zaznaczoną bieżącą datą. Na etykiecie uwidocznione jest, ile dni upłynęło od początku roku, dwa słupki wykresu pokazują w procentach, jaką część roku i jaką część miesiąca mamy już za sobą. Po zaznaczeniu w kalendarzu innego dnia następuje aktualizacja wykresów.

Nowe umiejętności

Zastosowanie słupków zaawansowania procesu ProgressBar i kalendarza.

2. Na formularzu umieść komponenty:

• Calendar z karty Sample:

• dwa komponenty ProgressBar z karty Win32; pierwszy do pokazywania przebiegu czasu dla miesiÄ…ca i drugi dla roku.

• dwie etykiety, umieszczajÄ…c je obok sÅ‚upków ProgressBar; ustaw napisy na etykietach odpowiednio: MiesiÄ…c, Rok.

6. Wyskaluj ProgressBar z etykietą Rok w następujący sposób:

Min 1

Max 365

7. Dla komponentu ProgressBar z etykietą Miesiąc ustaw właściwość

Min 1

8. Wpisz procedurÄ™ OnActivate dla formularza:

procedure TForm1.FormActivate(Sender: TObject);

//tablica stałych określająca liczbę dni w miesiącu

const Miesiac:array[l..12]ofInteger=(31,28,31,30,31,30,31,31,30,31,30,31);

var m, i, ile_dni: Integer;

begin

m:=Calendar1.Month;

ProgressBar1.Max: = Miesiac[m]; //maksymalna liczba dni w danym miesiÄ…cu

ProgressBar1.Position: = Calendarl.Day //bieżący dzień w miesiącu

ile_dni:=0; //pętla oblicza, ile dni upłynęło od początku roku do danego miesiąca

for i:=1 to m-1 do

ile_dni := ile_dni + Miesiac[i];

ile_dni :=ile_dni + Calendar1.Day-1;

Label2.Caption:=Label2.Caption + IntToStr(ile_dni);

ProgressBar2.Position:=ile_dni;

Label1.Caption:=Label1.Caption + IntToStr(Calendar1.Day);

end;

9. Uruchom aplikacje i sprawdź jej działanie.

Zadanie l

Dodaj do aplikacji reakcje na zmianę daty w kalendarzu, tak aby aktualizowały się słupki stanu.

Zadanie 2

Wykonaj to samo ćwiczenie, stosując zamiast słupków ProgressBar komponent Gauge z karty Sample.

Zadanie 3

Dodaj listę wyboru z nazwami miesięcy i ustawiaj z listy numery miesięcy (właściwość Month komponentu Calendar).

---