chameleonctl.cpp

VC编写的变色龙按钮程序

// ChameleonCtl.cpp : Implementation of the CChameleonCtrl ActiveX Control class.

#include "stdafx.h"
#include "Chameleon.h"
#include "ChameleonCtl.h"
#include "ChameleonPpg.h"


#ifdef _DEBUG
#define new DEBUG_NEW
#undef THIS_FILE
static char THIS_FILE[] = __FILE__;
#endif

extern CChameleonApp NEAR theApp;

IMPLEMENT_DYNCREATE(CChameleonCtrl, COleControl)


/////////////////////////////////////////////////////////////////////////////
// Message map

BEGIN_MESSAGE_MAP(CChameleonCtrl, COleControl)
	//{{AFX_MSG_MAP(CChameleonCtrl)
	ON_WM_TIMER()
	ON_WM_LBUTTONDOWN()
	ON_WM_LBUTTONUP()
	ON_WM_KEYDOWN()
	ON_WM_KEYUP()
	ON_WM_KILLFOCUS()
	ON_WM_SETFOCUS()
	ON_WM_MOUSEMOVE()
	ON_WM_SIZE()
	ON_WM_CREATE()
	ON_WM_RBUTTONUP()
	ON_WM_RBUTTONDOWN()
	ON_WM_MBUTTONUP()
	ON_WM_MBUTTONDOWN()
	ON_WM_LBUTTONDBLCLK()
	//}}AFX_MSG_MAP
	ON_OLEVERB(AFX_IDS_VERB_PROPERTIES, OnProperties)
END_MESSAGE_MAP()


/////////////////////////////////////////////////////////////////////////////
// Dispatch map

BEGIN_DISPATCH_MAP(CChameleonCtrl, COleControl)
	//{{AFX_DISPATCH_MAP(CChameleonCtrl)
	DISP_PROPERTY_EX(CChameleonCtrl, "MousePointer", GetMousePointer, SetMousePointer, VT_I4)
	DISP_PROPERTY_EX(CChameleonCtrl, "MouseIcon", GetMouseIcon, SetMouseIcon, VT_PICTURE)
	DISP_PROPERTY_EX(CChameleonCtrl, "Picture", GetPicture, SetPicture, VT_PICTURE)
	DISP_PROPERTY_EX(CChameleonCtrl, "ButtonType", GetButtonType, SetButtonType, VT_I4)
	DISP_PROPERTY_EX(CChameleonCtrl, "ColorScheme", GetColorScheme, SetColorScheme, VT_I4)
	DISP_PROPERTY_EX(CChameleonCtrl, "Press", GetPress, SetPress, VT_BOOL)
	DISP_PROPERTY_EX(CChameleonCtrl, "ShowFocusRect", GetShowFocusRect, SetShowFocusRect, VT_BOOL)
	DISP_PROPERTY_EX(CChameleonCtrl, "Stretch", GetStretch, SetStretch, VT_BOOL)
	DISP_PROPERTY_EX(CChameleonCtrl, "ToolTipText", GetToolTipText, SetToolTipText, VT_BSTR)
	DISP_PROPERTY_EX(CChameleonCtrl, "BackOverColor", GetBackOverColor, SetBackOverColor, VT_COLOR)
	DISP_PROPERTY_EX(CChameleonCtrl, "ForeOverColor", GetForeOverColor, SetForeOverColor, VT_COLOR)
	DISP_PROPERTY_EX(CChameleonCtrl, "TextEffect", GetTextEffect, SetTextEffect, VT_I4)
	DISP_PROPERTY_EX(CChameleonCtrl, "HandPointer", GetHandPointer, SetHandPointer, VT_BOOL)
	DISP_PROPERTY_EX(CChameleonCtrl, "DownPicture", GetDownPicture, SetDownPicture, VT_PICTURE)
	DISP_PROPERTY_EX(CChameleonCtrl, "OverPicture", GetOverPicture, SetOverPicture, VT_PICTURE)
	DISP_PROPERTY_EX(CChameleonCtrl, "DisablePicture", GetDisablePicture, SetDisablePicture, VT_PICTURE)
	DISP_PROPERTY_EX(CChameleonCtrl, "AcceleratKey", GetAcceleratKey, SetNotSupported, VT_I4)
	DISP_STOCKPROP_BACKCOLOR()
	DISP_STOCKPROP_TEXT()
	DISP_STOCKPROP_ENABLED()
	DISP_STOCKPROP_FONT()
	DISP_STOCKPROP_FORECOLOR()
	DISP_STOCKPROP_HWND()
	//}}AFX_DISPATCH_MAP
	DISP_FUNCTION_ID(CChameleonCtrl, "AboutBox", DISPID_ABOUTBOX, AboutBox, VT_EMPTY, VTS_NONE)
END_DISPATCH_MAP()


/////////////////////////////////////////////////////////////////////////////
// Event map

BEGIN_EVENT_MAP(CChameleonCtrl, COleControl)
	//{{AFX_EVENT_MAP(CChameleonCtrl)
	EVENT_CUSTOM("MouseOver", FireMouseOver, VTS_NONE)
	EVENT_CUSTOM("MouseOut", FireMouseOut, VTS_NONE)
	EVENT_STOCK_CLICK()
	EVENT_STOCK_MOUSEDOWN()
	EVENT_STOCK_MOUSEUP()
	EVENT_STOCK_MOUSEMOVE()
	EVENT_STOCK_KEYDOWN()
	EVENT_STOCK_KEYUP()
	EVENT_STOCK_KEYPRESS()
	//}}AFX_EVENT_MAP
END_EVENT_MAP()


/////////////////////////////////////////////////////////////////////////////
// Property pages

// TODO: Add more property pages as needed.  Remember to increase the count!
BEGIN_PROPPAGEIDS(CChameleonCtrl, 4)
	PROPPAGEID(CChameleonPropPage::guid)
	PROPPAGEID( CLSID_CFontPropPage )
    PROPPAGEID( CLSID_CColorPropPage )
    PROPPAGEID( CLSID_CPicturePropPage )
END_PROPPAGEIDS(CChameleonCtrl)


/////////////////////////////////////////////////////////////////////////////
// Initialize class factory and guid

IMPLEMENT_OLECREATE_EX(CChameleonCtrl, "CHAMELEON.ChameleonCtrl.1",
	0x6ae6e06f, 0x390b, 0x402d, 0xb3, 0xa1, 0xc0, 0xff, 0x5f, 0xb5, 0x98, 0xe7)


/////////////////////////////////////////////////////////////////////////////
// Type library ID and version

IMPLEMENT_OLETYPELIB(CChameleonCtrl, _tlid, _wVerMajor, _wVerMinor)


/////////////////////////////////////////////////////////////////////////////
// Interface IDs

const IID BASED_CODE IID_DChameleon =
		{ 0xcbd15fbf, 0x9ba7, 0x46c5, { 0xb0, 0x13, 0x5f, 0x75, 0xa5, 0x75, 0xe, 0x31 } };
const IID BASED_CODE IID_DChameleonEvents =
		{ 0xe9d3beb5, 0x28f, 0x4330, { 0xaf, 0xc, 0xd5, 0x18, 0x27, 0xd2, 0xe6, 0x38 } };


/////////////////////////////////////////////////////////////////////////////
// Control type information

static const DWORD BASED_CODE _dwChameleonOleMisc =
	OLEMISC_ACTIVATEWHENVISIBLE |
	OLEMISC_SETCLIENTSITEFIRST |
	OLEMISC_INSIDEOUT |
	OLEMISC_CANTLINKINSIDE |
	OLEMISC_RECOMPOSEONRESIZE;

IMPLEMENT_OLECTLTYPE(CChameleonCtrl, IDS_CHAMELEON, _dwChameleonOleMisc)


/////////////////////////////////////////////////////////////////////////////
// CChameleonCtrl::CChameleonCtrlFactory::UpdateRegistry -
// Adds or removes system registry entries for CChameleonCtrl

BOOL CChameleonCtrl::CChameleonCtrlFactory::UpdateRegistry(BOOL bRegister)
{
	// TODO: Verify that your control follows apartment-model threading rules.
	// Refer to MFC TechNote 64 for more information.
	// If your control does not conform to the apartment-model rules, then
	// you must modify the code below, changing the 6th parameter from
	// afxRegApartmentThreading to 0.

	if (bRegister)
		return AfxOleRegisterControlClass(
			AfxGetInstanceHandle(),
			m_clsid,
			m_lpszProgID,
			IDS_CHAMELEON,
			IDB_CHAMELEON,
			afxRegApartmentThreading,
			_dwChameleonOleMisc,
			_tlid,
			_wVerMajor,
			_wVerMinor);
	else
		return AfxOleUnregisterClass(m_clsid, m_lpszProgID);
}


/////////////////////////////////////////////////////////////////////////////
// CChameleonCtrl::CChameleonCtrl - Constructor

CChameleonCtrl::CChameleonCtrl()
{
	InitializeIIDs(&IID_DChameleon, &IID_DChameleonEvents);

	//属性变量初始化
	m_lMousePointer = 0;
	m_phdMouseIcon.CreateEmpty();
	m_phdPicture.CreateEmpty();
	m_lButtonType = 3;
	m_lColorScheme = 1;
	m_bPress = FALSE;
	m_bShowFocusRect = TRUE;
	m_bStretch = TRUE;
	m_strTipText.Empty();
	m_lBackOverColor = GetSysColor(COLOR_BTNFACE);
	m_lForeOverColor = GetSysColor(COLOR_WINDOWTEXT);
	m_lTextEffect = 0;
	m_bHandPointer = FALSE;
	m_phdDownPicture.CreateEmpty();
	m_phdOverPicture.CreateEmpty();
	m_phdDisablePicture.CreateEmpty();
	
	//状态变量初始化
	m_ucAccessKey = 0;
	m_bMouseOver = false;
	m_lCursorType = -1;
	m_bMouseDBClk = false;
	m_hPrevCursor = NULL;
	m_nLastKey = 0;
	m_bPressState = false;
	m_bFocus = false;
	m_nStatus = 0;
	m_nWidth = 0;
	m_nHeight = 0;
}


/////////////////////////////////////////////////////////////////////////////
// CChameleonCtrl::~CChameleonCtrl - Destructor

CChameleonCtrl::~CChameleonCtrl()
{
	// TODO: Cleanup your control's instance data here.
}


/////////////////////////////////////////////////////////////////////////////
// CChameleonCtrl::OnDraw - Drawing function

void CChameleonCtrl::OnDraw(
			CDC* pdc, const CRect& rcBounds, const CRect& rcInvalid)
{
	//强制使用传入的pdc重画，pdc可能为控件DC，也可能为容器DC（设计状态）
	Redraw( m_nStatus, true, pdc );
}


/////////////////////////////////////////////////////////////////////////////
// CChameleonCtrl::DoPropExchange - Persistence support

void CChameleonCtrl::DoPropExchange(CPropExchange* pPX)
{
	ExchangeVersion(pPX, MAKELONG(_wVerMinor, _wVerMajor));
	COleControl::DoPropExchange(pPX);

	// TODO: Call PX_ functions for each persistent custom property.
	//属性序列化
	PX_Long(pPX, "MousePointer", m_lMousePointer, 0);
	PX_Picture(pPX, "MouseIcon",m_phdMouseIcon);
	PX_Picture(pPX, "Picture",m_phdPicture);
	PX_Long(pPX, "ButtonType", m_lButtonType, 3);
	PX_Long(pPX, "ColorScheme", m_lColorScheme, 1);
	PX_Bool(pPX, "Press", m_bPress, FALSE);
	PX_Bool(pPX, "ShowFocusRect", m_bShowFocusRect, TRUE);
	PX_Bool(pPX, "Stretch", m_bStretch, TRUE);
	PX_String(pPX, "ToolTipText", m_strTipText);
	PX_Long(pPX, "BackOverColor", m_lBackOverColor, GetSysColor(COLOR_BTNFACE));
	PX_Long(pPX, "ForeOverColor", m_lForeOverColor, GetSysColor(COLOR_WINDOWTEXT));
	PX_Long(pPX, "TextEffect", m_lTextEffect, 0);
	PX_Bool(pPX, "HandPointer", m_bHandPointer, FALSE);
	PX_Picture(pPX, "DownPicture",m_phdDownPicture);
	PX_Picture(pPX, "OverPicture",m_phdOverPicture);
	PX_Picture(pPX, "DisablePicture",m_phdDisablePicture);
}


/////////////////////////////////////////////////////////////////////////////
// CChameleonCtrl::OnResetState - Reset control to default state

void CChameleonCtrl::OnResetState()
{
	COleControl::OnResetState();  // Resets defaults found in DoPropExchange

	//重置各属性变量
	m_lMousePointer = 0;
	m_phdMouseIcon.CreateEmpty();
	m_phdPicture.CreateEmpty();
	m_lButtonType = 3;
	m_lColorScheme = 1;
	m_bPress = FALSE;
	m_bShowFocusRect = TRUE;
	m_bStretch = TRUE;
	m_strTipText.Empty();
	m_lBackOverColor = GetSysColor(COLOR_BTNFACE);
	m_lForeOverColor = GetSysColor(COLOR_WINDOWTEXT);
	m_lTextEffect = 0;
	m_bHandPointer = FALSE;
	m_phdDownPicture.CreateEmpty();
	m_phdOverPicture.CreateEmpty();
	m_phdDisablePicture.CreateEmpty();
}

int CChameleonCtrl::OnCreate(LPCREATESTRUCT lpCreateStruct) 
{
	if (COleControl::OnCreate(lpCreateStruct) == -1)
		return -1;

	//创建控件时，创建工具提示功能对象
	if( m_ttpMes.Create( this, TTS_ALWAYSTIP ) )
	{
		m_ttpMes.AddTool( this );
		if( AmbientUserMode() && m_ttpMes.m_hWnd != NULL )
		{
			if( m_strTipText.GetLength() > 0 )
			{
				m_ttpMes.Activate( true );
				m_ttpMes.UpdateTipText( m_strTipText, this );
			}
			else
			{
				m_ttpMes.Activate( false );
			}
		}
	}

	return 0;
}

void CChameleonCtrl::OnTimer(UINT nIDEvent) 
{
	if( nIDEvent == 1 )
	{
		//检查鼠标是否在控件上，不是则激发MouseOut事件
		if( !CheckMouseOver() )
		{
			KillTimer( 1 );
			m_bMouseOver = false;
			if( m_bPressState )
			{
				Redraw( 1, true );
			}
			else
			{
				Redraw( 0, true );
			}

			FireMouseOut();
		}
	}
}

void CChameleonCtrl::OnKillFocus(CWnd* pNewWnd) 
{
	COleControl::OnKillFocus(pNewWnd);
	
	//获得/丢失焦点时，将结果记录于m_bFocus
	if( m_bEnabled )
	{
		m_bFocus = false;
		Redraw( m_nStatus, true );
	}
}

void CChameleonCtrl::OnSetFocus(CWnd* pOldWnd) 
{
	COleControl::OnSetFocus(pOldWnd);
	
	//获得/丢失焦点时，将结果记录于m_bFocus
	if( m_bEnabled )
	{
		m_bFocus = true;
		Redraw( m_nStatus, true );
	}
}

void CChameleonCtrl::OnLButtonDown(UINT nFlags, CPoint point) 
{
	if( m_bEnabled )
	{
		short sButton = 0;
		short sShift = 0;

		//按下鼠标左键时重绘控件
		Redraw( 1, false );

		//激发MouseDown事件
		if( nFlags & MK_LBUTTON )
		{
			sButton += 1;
		}
		if( nFlags & MK_SHIFT )
		{
			sShift += 1;
		}
		if( nFlags & MK_CONTROL )
		{
			sShift += 2;
		}
		FireMouseDown( sButton, sShift, point.x, point.y );
	}
	
	//激发工具提示对象事件
	RelayEvent( WM_LBUTTONDOWN, (WPARAM)nFlags,
		MAKELPARAM(LOWORD(point.x), LOWORD(point.y)) );

	//COleControl::OnLButtonDown(nFlags, point);
}

void CChameleonCtrl::OnLButtonUp(UINT nFlags, CPoint point) 
{
	if( m_bEnabled )
	{
		short sButton = 0;
		short sShift = 0;

		//根据Press属性及当前鼠标的按下状态重画控件
		if( m_bPress )
		{
			m_bPressState = !m_bPressState;
		}
		if( m_bPressState )
		{
			Redraw( 1, true );
		}
		else
		{
			Redraw( 0, true );
		}

		if( m_bMouseDBClk )
		{
			m_bMouseDBClk = false;
		}
		else
		{
			//激发MouseUp、Click事件
			if( nFlags & MK_LBUTTON )
			{
				sButton += 1;
			}
			if( nFlags & MK_SHIFT )
			{
				sShift += 1;
			}
			if( nFlags & MK_CONTROL )
			{
				sShift += 2;
			}
		}
		FireClick();
		FireMouseUp( sButton, sShift, point.x, point.y );
	}

	//激发工具提示对象事件
	RelayEvent( WM_LBUTTONUP, (WPARAM)nFlags,
		MAKELPARAM(LOWORD(point.x), LOWORD(point.y)) );

	//COleControl::OnLButtonUp(nFlags, point);
}

void CChameleonCtrl::OnMouseMove(UINT nFlags, CPoint point) 
{
	if( m_bEnabled )
	{
		short sButton = 0;
		short sShift = 0;

		//当鼠标左键按下或者无键按下，并且移动在控件上时
		if( nFlags <= MK_LBUTTON )
		{
			if( CheckMouseOver() )
			{
				if( nFlags == 0 && !m_bMouseOver )
				{
					SetTimer( 1, 100, NULL );
					m_bMouseOver = true;
					Redraw( 0, true );

					FireMouseOver();
				}
				else if( nFlags == MK_LBUTTON )
				{
					SetTimer( 1, 100, NULL );
					m_bMouseOver = true;
					Redraw( 1, false );
					m_bMouseOver = false;
				}
			}
		}

		//激发MouseMove事件
		if( nFlags & MK_LBUTTON )
		{
			sButton += 1;
		}
		if( nFlags & MK_RBUTTON )
		{
			sButton += 2;
		}
		if( nFlags & MK_MBUTTON )
		{
			sButton += 4;
		}
		if( nFlags & MK_SHIFT )
		{
			sShift += 1;
		}
		if( nFlags & MK_CONTROL )
		{
			sShift += 2;
		}
		FireMouseMove( sButton, sShift, point.x, point.y );
	}

	//激发工具提示对象事件