home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 9 / CDACTUAL9.iso / progs / CB / DATA.Z / CALBROWS.CPP < prev    next >
Encoding:
C/C++ Source or Header  |  1996-08-15  |  1.4 KB  |  41 lines

  1. //---------------------------------------------------------------------------
  2. #include <vcl.h>
  3. #pragma hdrstop
  4.  
  5. #include "calbrows.h"
  6. //---------------------------------------------------------------------------
  7. #pragma resource "*.dfm"
  8. TCalendarBrowser *CalendarBrowser;
  9. //---------------------------------------------------------------------------
  10. __fastcall TCalendarBrowser::TCalendarBrowser(TComponent* Owner)
  11.   : TForm(Owner)
  12. {
  13. }
  14. //---------------------------------------------------------------------------
  15. void __fastcall TCalendarBrowser::Calendar1Change(TObject *Sender)
  16. {
  17.   Caption = FormatDateTime("mmmm d, yyyy", Calendar1->CalendarDate);
  18. }
  19. //---------------------------------------------------------------------
  20. void __fastcall TCalendarBrowser::BitBtn1Click(TObject *Sender)
  21. {
  22.     Calendar1->PrevYear();
  23. }
  24. //---------------------------------------------------------------------
  25. void __fastcall TCalendarBrowser::BitBtn2Click(TObject *Sender)
  26. {
  27.     Calendar1->PrevMonth();
  28. }
  29. //---------------------------------------------------------------------
  30. void __fastcall TCalendarBrowser::BitBtn3Click(TObject *Sender)
  31. {
  32.     Calendar1->NextMonth();
  33. }
  34. //---------------------------------------------------------------------
  35. void __fastcall TCalendarBrowser::BitBtn4Click(TObject *Sender)
  36. {
  37.     Calendar1->NextYear();
  38. }
  39. //---------------------------------------------------------------------
  40.  
  41.