Prosty kalendarzyk

Witam jest to mój pierwszy artykuł. Pokaże w nim jak w łatwy sposób zbudować kalendarzyk w Delphi.
Zaczynajmy!

---

<font name="Arial">1.Tworzymy nową aplikację. </span>
2. Na formę kładziemy TTimer, 2 Labele.
3. Układamy sobie ładnie wszystko z godnie z naszym uznaniem :)
4. Właściwość Interval TTimera ustawiamy na 10. 5. Klikamy na niego dwukrotnie, i w jego kodzie wpisujemy: <fieldset> ```delphi Label1.Caption:=TimeToStr(Time);//pokazujemy czas Label2.Caption:=DateToStr(Date);//pokazujemy datę ``` </fieldset>
Zapewne większość z Was zna Kalendarz XP.
Spróbujmy się troszkę upodobnić do niego. :)

---

Kolor formy ustawmy na fsFusia. Właściwość TransparentColorValue też. Teraz TransparentColor zmieniamy na True. Na forme kładziemy komponent TShape. Właściwośc Shape zmieniamy na stRoundRect a Align na alCustom. W dolnym prawym rogu jest taki kwadracik( pod formą :)) przesuwamy go na maxa w dół. A teraz wykonujemy pierwsze 5 punktów. Warto dac jeszcze właściwość FormStye formy na fsStayOnTop.

---

A teraz własne guziczki nawigacyjne :)

---

1. Ustawiamy Border Style na bsNone. 2. Kładziemy na formę 2SpeedButtony. 3.Ich właściwość Flat ustawiamy na True. 4. W jednym z nich wpisujemy: ```delphi Application.Terminate;//Zamykamy aplikację ``` 5.W 2 Speedzie wpisujemy np. ```delphi Form2.Show;//Pokazujemy nową formę ``` i w Formie 2 tworzymy np. pomoc.

---

Zapraszam do rozwinięcia tego kalendarzyka dla początkujących.

---

To by było na tyle. Jeśli zagmatwałem-przepraszam. Liczę na łagodne oceny. Na pytanie odpowiem chętnie przez gg: 294052.