Programowanie w języku Delphi » Gotowce

Prosty kalendarzyk

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



1.Tworzymy nową aplikację.

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>
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:
Application.Terminate;//Zamykamy aplikację

5.W 2 Speedzie wpisujemy np.
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.

4 komentarze

papkie 2008-04-11 20:26

Spoko ;) Oby więcej takich prostych gotowców ;)

Coldpeer 2007-06-15 15:12

Kiepścizna...

"Zapewne większość z Was zna Kalendarz XP. "
Nie powiedziłbym

bordeux 2007-06-14 07:53

Już lepiej dać na foremke MonthCalendar, ale brawo. Już lepiej to niż nic.

ŁF 2007-06-13 21:58

Artykuł to to nie jest, zostaw to tylko w gotowcach