//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "UnitCalendar.h"
#include "dateutils.hpp"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "CCALENDR"
#pragma link "CSPIN"
#pragma resource "*.dfm"
TFormCalendar *FormCalendar;
//---------------------------------------------------------------------------
__fastcall TFormCalendar::TFormCalendar(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFormCalendar::ComboBox1Change(TObject *Sender)
{
  if(ComboBox1->Text == "一月")
    CCalendar1->Month=1;
  else if(ComboBox1->Text == "二月")
    CCalendar1->Month=2;
  else if(ComboBox1->Text == "三月")
    CCalendar1->Month=3;
  else if(ComboBox1->Text == "四月")
    CCalendar1->Month=4;
  else if(ComboBox1->Text == "五月")
    CCalendar1->Month=5;
  else if(ComboBox1->Text == "六月")
    CCalendar1->Month=6;
  else if(ComboBox1->Text == "七月")
    CCalendar1->Month=7;
  else if(ComboBox1->Text == "八月")
    CCalendar1->Month=8;
  else if(ComboBox1->Text == "九月")
    CCalendar1->Month=9;
  else if(ComboBox1->Text == "十月")
    CCalendar1->Month=10;
  else if(ComboBox1->Text == "十一月")
    CCalendar1->Month=11;
  else if(ComboBox1->Text == "十二月")
    CCalendar1->Month=12;
  else
  {
    //something wrong
  }
}
//---------------------------------------------------------------------------
void __fastcall TFormCalendar::FormShow(TObject *Sender)
{
  CCalendar1->Year=1;//YearOf(Date());
  CCalendar1->Month=MonthOf(Date());
  switch(CCalendar1->Month)
  {
    case 1:  ComboBox1->ItemIndex=0; break;
    case 2:  ComboBox1->ItemIndex=1; break;
    case 3:  ComboBox1->ItemIndex=2; break;
    case 4:  ComboBox1->ItemIndex=3; break;
    case 5:  ComboBox1->ItemIndex=4; break;
    case 6:  ComboBox1->ItemIndex=5; break;
    case 7:  ComboBox1->ItemIndex=6; break;
    case 8:  ComboBox1->ItemIndex=7; break;
    case 9:  ComboBox1->ItemIndex=8; break;
    case 10:  ComboBox1->ItemIndex=9; break;
    case 11:  ComboBox1->ItemIndex=10; break;
    case 12:  ComboBox1->ItemIndex=11; break;
    default : break;
  }
  Edit1->Text=CCalendar1->Year;
}
//---------------------------------------------------------------------------
void __fastcall TFormCalendar::Edit1Change(TObject *Sender)
{
  CCalendar1->Year=Edit1->Text.ToInt();
}
//---------------------------------------------------------------------------