home *** CD-ROM | disk | FTP | other *** search
- //---------------------------------------------------------------------------
- #include <vcl.h>
- #pragma hdrstop
-
- #include "calbrows.h"
- //---------------------------------------------------------------------------
- #pragma resource "*.dfm"
- TCalendarBrowser *CalendarBrowser;
- //---------------------------------------------------------------------------
- __fastcall TCalendarBrowser::TCalendarBrowser(TComponent* Owner)
- : TForm(Owner)
- {
- }
- //---------------------------------------------------------------------------
- void __fastcall TCalendarBrowser::Calendar1Change(TObject *Sender)
- {
- Caption = FormatDateTime("mmmm d, yyyy", Calendar1->CalendarDate);
- }
- //---------------------------------------------------------------------
- void __fastcall TCalendarBrowser::BitBtn1Click(TObject *Sender)
- {
- Calendar1->PrevYear();
- }
- //---------------------------------------------------------------------
- void __fastcall TCalendarBrowser::BitBtn2Click(TObject *Sender)
- {
- Calendar1->PrevMonth();
- }
- //---------------------------------------------------------------------
- void __fastcall TCalendarBrowser::BitBtn3Click(TObject *Sender)
- {
- Calendar1->NextMonth();
- }
- //---------------------------------------------------------------------
- void __fastcall TCalendarBrowser::BitBtn4Click(TObject *Sender)
- {
- Calendar1->NextYear();
- }
- //---------------------------------------------------------------------
-
-