//Calender.h ヘッダファイル
#pragma once

// CCalender
class CCalender : public CWnd
{
    DECLARE_DYNAMIC(CCalender)

public:
    CCalender();
    virtual ~CCalender();

protected:
    UINT m_uiHoverTime;           //Hover時間

protected:
    virtual void PostNcDestroy(); //C++オブジェクト自動破棄

public:
    BOOL Create(CRect rect, UINT uiHoverTime); //カレンダウィンドウ構築
    afx_msg void OnPaint();                    //カレンダ描画

    DECLARE_MESSAGE_MAP()
};

// Calender.cpp : 実装ファイル
//
#include "stdafx.h"
#include "xxxxxxxxxxxx.h   //CWinAppの派生クラスのヘッダファイル名
#include "Calender.h"

// CCalender
IMPLEMENT_DYNAMIC(CCalender, CWnd)

//コンストラクタ
CCalender::CCalender() : m_uiHoverTime(0)
{
}

//デストラクタ
CCalender::~CCalender()
{
}

BEGIN_MESSAGE_MAP(CCalender, CWnd)
    ON_WM_PAINT()
END_MESSAGE_MAP()

//カレンダウィンドウ構築
//引数 rect        カレンダウィンドウ表示位置(スクリーン座標)
//     uiHoverTime 透明化までの時間(WM_MOUSEHOVER発行までの時間)
BOOL CCalender::Create(CRect rect, UINT uiHoverTime)
{
    CPoint    point;
    BOOL      bRet = FALSE;

    do
    {
        //Hover時間設定
        m_uiHoverTime = uiHoverTime;

        //Window構築
        if (! CreateEx(WS_EX_TOPMOST | WS_EX_LAYERED,
                       AfxRegisterWndClass(CS_DBLCLKS, 0,
                                           reinterpret_cast<HBRUSH>(COLOR_WINDOW + 1),
                                           0),
                      _T("Calender"),
                      WS_POPUPWINDOW | WS_VISIBLE,
                      rect,
                      NULL, 0)
        )
        break;

        //レイヤード設定
        if (! SetLayeredWindowAttributes(0, 255, ULW_ALPHA))    break;

        //Window更新
        UpdateWindow();

        //カーソル処理
        if (! GetCursorPos(&point) )                            break;

        GetWindowRect(&rect);
        if (! SetCursorPos(rect.left, rect.top))                break;
        if (! SetCursorPos(point.x, point.y))                   break;

        bRet = TRUE;
    } while(0);

    return bRet;
}

//C++オブジェクト自動破棄
void CCalender::PostNcDestroy()
{
    delete this;   
}

//カレンダ表示
void CCalender::OnPaint()
{
    CPaintDC dc(this);   // device context for painting
    // TODO: ここにメッセージハンドラコードを追加します。
    // 描画メッセージでCWnd::OnPaint() を呼び出さないでください。
    CRect     rect;
    int       nMonth = CTime::GetCurrentTime().GetMonth();
    CTime     start  = CTime(CTime::GetCurrentTime().GetYear(), nMonth, 1, 0, 0, 0); 
    int       width, height; 
    CPoint    point(0, 0); 
    CString   str; 
    TCHAR     *pszWeek[] = {_T("日"), _T("月"), _T("火"), _T("水"),
                            _T("木"), _T("金"), _T("土")
                           };

    GetClientRect(&rect);
    width = rect.Width() / 7;         height = rect.Height() / 8; 

    //月の表示
    str.Format(_T("%d月"), nMonth);
    dc.DrawText(str, CRect(point, CSize(rect.Width(), height)), DT_CENTER); 

    //曜日の表示
    point += CSize(0, height); 
    for (int i=0; i < sizeof pszWeek / sizeof pszWeek[0]; i++) 
        dc.DrawText(pszWeek[i], -1, CRect(point + CSize(i*width, 0),
                                          CSize(width, height)), DT_CENTER); 

    //各日付の表示
    point += CSize( (start.GetDayOfWeek() - 1) * width, height ); 

    for (CTime t = start; t.GetMonth() == nMonth; t += CTimeSpan(1, 0, 0, 0) ) 
    {
        if ( t.GetDayOfWeek() <= 1 ) 
            point = CPoint(0, point.y + height); 

        str.Format(_T("%d"), t.GetDay());
        dc.DrawText(str, CRect(point, CSize(width, height)), DT_CENTER); 

        point += CSize(width, 0); 
    }
}

// TME.cpp : アプリケーションのクラス動作を定義します。
//
#include "stdafx.h"
#include "TME.h"
//#include "TMEDlg.h"     コメントアウトする
#include "Calender.h"      // 追加する

//    ・
//    ・
//    ・

// CTMEApp 初期化
BOOL CTMEApp::InitInstance()
{
    //  ・
    //  ・
    //  ・

    //CTMEDlg dlg;
    //m_pMainWnd = &dlg;
    //INT_PTR nResponse = dlg.DoModal();
    //if (nResponse == IDOK)
    //{
    // // TODO: ダイアログが<OK> で消された時のコードを
    // // 記述してください。
    //}
    //else if (nResponse == IDCANCEL)
    //{
    // // TODO: ダイアログが<キャンセル> で消された時のコードを
    // // 記述してください。
    //}

    CCalender *pCalender = new CCalender;
    if (pCalender)
        m_pMainWnd = pCalender;
    else
        return FALSE;

    // ダイアログは閉じられました。アプリケーションのメッセージポンプを開始しないで
    // アプリケーションを終了するためにFALSE を返してください。

    //return FALSE;
    return pCalender->Create(CRect(100, 100, 400, 300), 2000);
}

//Calender.h ヘッダファイル
// ・
// ・
class CCalender : public CWnd
{
    // ・
    // ・
protected:
    BOOL m_bHoverFlg;   //TrackMouseEvent Activeフラグ

public:
    //WM_SETCURSORハンドラ
    afx_msg BOOL OnSetCursor(CWnd* pWnd, UINT nHitTest, UINT message);
    //WM_MOUSEHOVER, WM_MOUSELEAVEハンドラ
    afx_msg LRESULT OnMouseHover(WPARAM wParam, LPARAM lParam);
    afx_msg LRESULT OnMouseLeave(WPARAM wParam, LPARAM lParam);

    //・
};

// Calender.cpp : 実装ファイル
// ・
// ・

//コンストラクタ
CCalender::CCalender() : m_uiHoverTime(0)
                       , m_bHoverFlg(FALSE)
{
}
// ・
// ・
BEGIN_MESSAGE_MAP(CCalender, CWnd)
    ON_WM_PAINT()
    ON_WM_SETCURSOR()
    ON_MESSAGE(WM_MOUSEHOVER, &CCalender::OnMouseHover)
    ON_MESSAGE(WM_MOUSELEAVE, &CCalender::OnMouseLeave)
END_MESSAGE_MAP()
// ・
// ・
BOOL CCalender::OnSetCursor(CWnd* pWnd, UINT nHitTest, UINT message)
{
    //TrackMouseEventの実行確認 & マウスのクライアント上の存在確認
    if (! m_bHoverFlg && nHitTest == HTCLIENT)
    {
        do
        {
            CRect         rect;     //Windowのクライアント領域
            GetClientRect(&rect);

            //WM_MOUSEHOVERの発行を許可できるマウスの移動範囲の設定
            if (! ::SystemParametersInfo(SPI_SETMOUSEHOVERWIDTH,
                                                       rect.Width() * 2, 0, 0)
               )
                break;

            if (! ::SystemParametersInfo(SPI_SETMOUSEHOVERHEIGHT, 
                                                       rect.Height() * 2, 0, 0)
               )
                break;

            //WM_MOUSEHOVER, WM_MOUSELEAVEメッセージ発行許可
            TRACKMOUSEEVENT      tme;

            tme.cbSize      = sizeof(TRACKMOUSEEVENT);
            tme.dwFlags     = TME_HOVER | TME_LEAVE;
            tme.hwndTrack   = m_hWnd;
            tme.dwHoverTime = m_uiHoverTime;

            if (! ::TrackMouseEvent(&tme))
                break;

            m_bHoverFlg = TRUE;
        } while (0);
    }
    return CWnd::OnSetCursor(pWnd, nHitTest, message);
}

//MouseHoverハンドラ
LRESULT CCalender::OnMouseHover(WPARAM wParam, LPARAM lParam)
{
    return ! SetLayeredWindowAttributes(0, 50, ULW_ALPHA);
}

//MouseLeaveハンドラ
LRESULT CCalender::OnMouseLeave(WPARAM wParam, LPARAM lParam)
{
    m_bHoverFlg = FALSE;
    return ! SetLayeredWindowAttributes(0, 255, ULW_ALPHA);
}