monthday.cpp

一个用C++Builder写的日记本程序

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

#include <vcl.h>
#pragma hdrstop

#include "MonthDay.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TMonthForm *MonthForm;
//---------------------------------------------------------------------------
__fastcall TMonthForm::TMonthForm(TMainData *pMainData,TComponent* Owner)
    : TForm(Owner)
{
    m_pMainData = pMainData;
}
//---------------------------------------------------------------------------

void __fastcall TMonthForm::FormCreate(TObject *Sender)
{
//
    //::AnimateWindow(Handle,200,AW_ACTIVATE|AW_HOR_NEGATIVE);
    Panel1->Top = 0;
    Panel1->Left = 0;

    Width = Panel1->Width;
    Height = Panel1->Height;
    this->AlphaBlend = true;
    this->AlphaBlendValue = 220;
    HideCheckBox->Checked = m_pMainData->m_bShowHide;
    MonthCalendar1->Date = m_pMainData->m_ConfigDay;
}
//---------------------------------------------------------------------------

void __fastcall TMonthForm::FormDestroy(TObject *Sender)
{
//    
}
//---------------------------------------------------------------------------


void __fastcall TMonthForm::CreateParams(TCreateParams & Params)
{
    //TODO: Add your source code here
    TForm::CreateParams(Params);
    Params.Style &= ~WS_CAPTION;
}
void __fastcall TMonthForm::FormResize(TObject *Sender)
{
    Width = Panel1->Width;
    Height = Panel1->Height;
}
//---------------------------------------------------------------------------
void __fastcall TMonthForm::Button1Click(TObject *Sender)
{
    this->ModalResult = mrOk;
}
//---------------------------------------------------------------------------
void __fastcall TMonthForm::Panel1MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
    if(Button == mbLeft)
    {
        ReleaseCapture();
        ::SendMessage(Handle,WM_SYSCOMMAND,SC_MOVE|HTCAPTION,0);
    }
}
//---------------------------------------------------------------------------
void __fastcall TMonthForm::HideCheckBoxClick(TObject *Sender)
{
    m_pMainData->m_bShowHide = HideCheckBox->Checked;
}
//---------------------------------------------------------------------------