www.gusucode.com > 超酷的VC++屏幕作图（电子画笔）程序源码程序 > 超酷的VC++屏幕作图（电子画笔）程序源码程序\code\Class\ColorPicker.cpp

    ////////////////////////////////////////////////////////////////
// ColorPicker.cpp : implementation file                      //
// Download by http://www.NewXing.com          			  //
// Copyright 2001 WangJun									  //
// All Rights Reserved.										  //
//															  //
// Email: wangjun98@sohu.com								  //
// URL:   http://www.vckbase.com							  //
//															  //
// 1.0     2001/10/6   First release version.				  //
//															  //
////////////////////////////////////////////////////////////////

#include "stdafx.h"
#include "ColorPicker.h"

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

#define LPARAM_X(lp)                        ((int)(short)LOWORD(lp))
#define LPARAM_Y(lp)                        ((int)(short)HIWORD(lp))

#define	WM_SETCOLOR							WM_USER+1
#define WM_COLORDLG							WM_USER+2

#define	IDC_COLORDLG_BUTTON					100

CPen	_pen3DDKShadow(PS_SOLID,1,::GetSysColor(COLOR_3DDKSHADOW));
CPen	_penW(PS_SOLID,1,RGB(0xff,0xff,0xff));
CPen	_penB(PS_SOLID,1,RGB(0,0,0));


/////////////////////////////////////////////////////////////////////////////
// CColorPicker

CColorPicker::CColorPicker()
{
	const unsigned char pvANDPlaneC[]={0xff,0xf1,0xff,0xe0,0xff,0xc0,0xff,0x00,0xff,0x81,0xff,0x03,0xfe,0x07,0xfc,0x17,
	0xf8,0x3f,0xf0,0x7f,0xe0,0xff,0xc1,0xff,0x83,0xff,0x87,0xff,0x0f,0xff,0x3f,0xff};
	const unsigned char pvXORPlaneC[]={0x00,0x00,0x00,0x0c,0x00,0x08,0x00,0x10,0x00,0x00,0x00,0x40,0x00,0xe0,0x01,0xc0,
	0x03,0x80,0x07,0x00,0x0e,0x00,0x1c,0x00,0x38,0x00,0x30,0x00,0x40,0x00,0x00,0x00};
	int cxCursor = ::GetSystemMetrics(SM_CXCURSOR);
	int cyCursor = ::GetSystemMetrics(SM_CYCURSOR);
	m_hCursorStraw = NULL;
	if(cxCursor >=16 && cxCursor < 100 && cyCursor < 100 && cyCursor >= 16)
	{
		int size = cxCursor*cyCursor/8;
		unsigned char *pvANDPlane = new unsigned char[size];
		unsigned char *pvXORPlane = new unsigned char[size];
		if(pvANDPlane && pvXORPlane)
		{
			memset(pvANDPlane,0xff,size);
			memset(pvXORPlane,0x00,size);
			for(int j=0;j<16;j++)
				for(int i=0;i<2;i++)
				{
					*(pvANDPlane+j*cxCursor/8 + i) = *(pvANDPlaneC + j*2 + i);
					*(pvXORPlane+j*cxCursor/8 + i) = *(pvXORPlaneC + j*2 + i);
				}
			m_hCursorStraw = ::CreateCursor(::AfxGetInstanceHandle(),0,15,cxCursor,cyCursor,pvANDPlane,pvXORPlane);
			delete pvANDPlane;
			delete pvXORPlane;
		}
	}
	m_CurrentColor = COLORREF(::GetSysColor(COLOR_3DFACE));
	m_hwndBuddy	= NULL;
	m_hPaletteWnd = NULL;
	m_bPaletteWndActive = FALSE;
}

CColorPicker::~CColorPicker()
{
	::DestroyCursor(m_hCursorStraw);
}


BEGIN_MESSAGE_MAP(CColorPicker, CButton)
	//{{AFX_MSG_MAP(CColorPicker)
	ON_WM_ERASEBKGND()
	ON_WM_LBUTTONDOWN()
	ON_WM_LBUTTONUP()
	ON_WM_SETCURSOR()
	//}}AFX_MSG_MAP
END_MESSAGE_MAP()

/////////////////////////////////////////////////////////////////////////////
// CColorPicker message handlers

void CColorPicker::DrawItem(LPDRAWITEMSTRUCT lpDrawItemStruct) 
{
}

BOOL CColorPicker::OnEraseBkgnd(CDC* pDC) 
{
	CPen		*pOldPen;
	COLORREF	clr3DFace = GetSysColor(COLOR_3DFACE);
	CRect		rect;
	GetClientRect(&rect);
	if(!m_bPaletteWndActive)
	{
		pDC->Draw3dRect (rect,RGB(0xff,0xff,0xff),GetSysColor (COLOR_3DDKSHADOW));
		rect.DeflateRect(1,1);
		pDC->Draw3dRect (rect,clr3DFace,clr3DFace);
		rect.InflateRect(1,1);
	}
	rect.DeflateRect(3,3);
	pDC->FillSolidRect(rect,m_CurrentColor);
	rect.left -= 1;rect.top -= 1;
	pOldPen = pDC->SelectObject(&_pen3DDKShadow);
	pDC->MoveTo(rect.right - 1,rect.top);
	pDC->LineTo(rect.left,rect.top);
	pDC->LineTo(rect.left,rect.bottom);
	pDC->SelectObject(&_penW);
	pDC->LineTo(rect.right - 6,rect.bottom);
	pDC->LineTo(rect.right - 6,rect.bottom - 4);
	pDC->LineTo(rect.right,rect.bottom - 4);
	pDC->MoveTo(rect.right,rect.top);
	pDC->LineTo(rect.right,rect.bottom - 3);
	
	rect.right += 1;
	rect.bottom += 1;
	rect.left = rect.right - 6;
	rect.top = rect.bottom - 4;
	pDC->FillSolidRect(rect,clr3DFace);

	pDC->SelectObject(&_penB);
	pDC->MoveTo(rect.left + 1,rect.top + 1);
	pDC->LineTo(rect.right,rect.top + 1);
	pDC->MoveTo(rect.left + 2,rect.top + 2);
	pDC->LineTo(rect.right-1,rect.top + 2);
	pDC->MoveTo(rect.left + 3,rect.top + 3);
	pDC->LineTo(rect.right-2,rect.top + 3);
	
	pDC->SelectObject(pOldPen);

	return TRUE;
}

void CColorPicker::OnLButtonDown(UINT nFlags, CPoint point) 
{
	CButton::OnLButtonDown(nFlags, point);
	::ClientToScreen(this->m_hWnd,&point);
	if(CreatePaletteWindow())
	{
		nFlags = (UINT)m_CurrentColor;
		::PostMessage(m_hPaletteWnd,WM_LBUTTONDOWN,nFlags,MAKELPARAM(point.x,point.y));
	}
	HWND hwndParent = GetParent()->m_hWnd;
	if(hwndParent)
	{
		POINT	p1,p2;
		RECT	rect;
		::GetWindowRect(m_hWnd,&rect);
		p1.x = rect.left;
		p1.y = rect.top;
		p2.x = rect.right;
		p2.y = rect.bottom;
		::ScreenToClient(hwndParent,&p1);
		::ScreenToClient(hwndParent,&p2);
		rect.left = p1.x;
		rect.top = p1.y;
		rect.right = p2.x;
		rect.bottom = p2.y;
		::InvalidateRect(hwndParent,&rect,TRUE);
	}
}

void CColorPicker::OnLButtonUp(UINT nFlags, CPoint point) 
{
	DestroyPaletteWindow();
	if((COLORREF)nFlags != m_CurrentColor)
		SetColor((COLORREF)nFlags);
	else
		Invalidate();
}

LONG FAR PASCAL CColorPicker::PaletteWndProc(HWND hWnd, UINT nMsg, WPARAM wParam, LPARAM lParam)
{
	HDC					hDC;
	PAINTSTRUCT			ps;
	POINT				point;
	CRect				crtColorRect(5,125,40,143);
	static	POINT		oldPoint;
	static	BOOL		bMouseMoved = FALSE;
	static	HWND		hwndParent;
	static	HWND		hwndColorBtn;
	static	HFONT		hFont = NULL;
	static	COLORREF	crtColor,oldColor;
	static	int			iActiveRect = -1;
	switch(nMsg)
	{
	case WM_CREATE:
		{
		hwndParent = ((LPCREATESTRUCT)lParam)->hwndParent;
		crtColor = ::GetSysColor(COLOR_3DFACE);
		LOGFONT logFont;
		ZeroMemory((void*)&logFont,sizeof(logFont));
		strcpy(logFont.lfFaceName,"宋体");
		logFont.lfHeight = -12;
		logFont.lfWeight = 400;
		logFont.lfCharSet = GB2312_CHARSET;
		logFont.lfOutPrecision = 3;
		logFont.lfClipPrecision = 2; 
		logFont.lfQuality = 1;
		logFont.lfPitchAndFamily = 2;
		hFont = ::CreateFontIndirect(&logFont);
		////色彩对话框按钮
		hwndColorBtn = ::CreateWindow("BUTTON","",WS_CHILD|WS_VISIBLE|BS_OWNERDRAW,167,126,16,16,hWnd,HMENU(IDC_COLORDLG_BUTTON),::AfxGetInstanceHandle(),NULL);
		if(hwndColorBtn)
			::ShowWindow(hwndColorBtn,SW_SHOW);
		}
		break;
	case WM_DESTROY:
		::DeleteObject(hFont);
		break;
	case WM_DRAWITEM:
		{
		LPDRAWITEMSTRUCT lpDis = (LPDRAWITEMSTRUCT)lParam;
		if(lpDis->CtlID == IDC_COLORDLG_BUTTON)
		{
			CRect		rect(3,3,8,8);
			::FillRect(lpDis->hDC,&lpDis->rcItem,(HBRUSH)::GetStockObject(LTGRAY_BRUSH));
			HPEN	hOldPen = (HPEN)::SelectObject(lpDis->hDC,_penW);
			if(lpDis->itemState == 17)
			{
				::MoveToEx(lpDis->hDC,lpDis->rcItem.right-1,lpDis->rcItem.top,NULL);
				::LineTo(lpDis->hDC,lpDis->rcItem.right-1,lpDis->rcItem.bottom-1);
				::LineTo(lpDis->hDC,lpDis->rcItem.left,lpDis->rcItem.bottom-1);
				::SelectObject(lpDis->hDC,_penB);
				::LineTo(lpDis->hDC,lpDis->rcItem.left,lpDis->rcItem.top);
				::LineTo(lpDis->hDC,lpDis->rcItem.right-1,lpDis->rcItem.top);
				rect.OffsetRect(1,1);
			}
			else
			{
				::MoveToEx(lpDis->hDC,lpDis->rcItem.right-1,lpDis->rcItem.top,NULL);
				::LineTo(lpDis->hDC,lpDis->rcItem.left,lpDis->rcItem.top);
				::LineTo(lpDis->hDC,lpDis->rcItem.left,lpDis->rcItem.bottom-1);
				::SelectObject(lpDis->hDC,_penB);
				::LineTo(lpDis->hDC,lpDis->rcItem.right-1,lpDis->rcItem.bottom-1);
				::LineTo(lpDis->hDC,lpDis->rcItem.right-1,lpDis->rcItem.top);
			}
			::SelectObject(lpDis->hDC,_pen3DDKShadow);
			::Rectangle(lpDis->hDC,rect.left-1,rect.top-1,rect.right+1,rect.bottom+1);
			::SetBkColor(lpDis->hDC, RGB(0xff,0,0));
			::ExtTextOut(lpDis->hDC, 0, 0, ETO_OPAQUE, &rect, NULL, 0, NULL);
			rect.OffsetRect(2,2);
			::Rectangle(lpDis->hDC,rect.left-1,rect.top-1,rect.right+1,rect.bottom+1);
			::SetBkColor(lpDis->hDC, RGB(0,0xff,0));
			::ExtTextOut(lpDis->hDC, 0, 0, ETO_OPAQUE, &rect, NULL, 0, NULL);
			rect.OffsetRect(2,2);
			::Rectangle(lpDis->hDC,rect.left-1,rect.top-1,rect.right+1,rect.bottom+1);
			::SetBkColor(lpDis->hDC, RGB(0xff,0xff,0));
			::ExtTextOut(lpDis->hDC, 0, 0, ETO_OPAQUE, &rect, NULL, 0, NULL);
			::SelectObject(lpDis->hDC,hOldPen);
		}
		}
		break;
	case WM_SETCOLOR:
		crtColor = (COLORREF)wParam;
		oldColor = crtColor;
		break;
	case WM_COMMAND:
		::PostMessage(hwndParent,WM_COLORDLG,NULL,NULL);
		break;
	case WM_MOUSEMOVE:
		{
		BOOL bInCtrlArea = FALSE;
		point.x = LPARAM_X(lParam);
		point.y = LPARAM_Y(lParam);
		::ClientToScreen(hWnd,&point);
		if(point.x != oldPoint.x || point.y != oldPoint.y)
		{
			bMouseMoved = TRUE;
			HWND	hwndPoint = ::WindowFromPoint(point);
			if(hwndPoint)
			{
				COLORREF	crtTMPColor;
				CRect		rect;
				HDC			hDC;
				hDC = ::GetWindowDC(hwndPoint);
				::GetWindowRect(hwndPoint,&rect);
				crtTMPColor = GetPixel(hDC,point.x-rect.left,point.y-rect.top);
				::ReleaseDC(hwndPoint,hDC);
				RECT redrawRect;
				redrawRect.left = 0;
				redrawRect.right = 150;
				redrawRect.top = 120;
				redrawRect.bottom = 145;
				::GetWindowRect(hWnd,&rect);
				if(!rect.PtInRect(point))//不在本窗口
				{
					crtColor = crtTMPColor;
					::InvalidateRect(hWnd,&redrawRect,TRUE);
				}
				else
				{
					rect.bottom = rect.top + 120;
					int iCurrentActiveRect;
					if(rect.PtInRect(point))///判断鼠标是否在当前窗口的色彩区域
					{
						////计算位于哪个方框内////
						point.x -= rect.left;
						point.y -= rect.top;
						if(point.x%10 != 0 && point.y%10 != 0)
							iCurrentActiveRect = point.y/10*19 + point.x/10;
						else
							iCurrentActiveRect = -1;
					}
					else
					{
						iCurrentActiveRect = -1;
						crtColor = oldColor;
						if(hwndColorBtn == hwndPoint)
							::ReleaseCapture();
						else
							bInCtrlArea = TRUE;

					}
					if(iCurrentActiveRect != iActiveRect)
					{
						///清除原焦点
						CRect ActiveRect;
						ActiveRect.left = iActiveRect%19*10;
						ActiveRect.top = iActiveRect/19*10;
						ActiveRect.right = ActiveRect.left + 10;
						ActiveRect.bottom = ActiveRect.top + 10;
						::InvalidateRect(hWnd,&ActiveRect,TRUE);
						///新焦点
						if(iCurrentActiveRect != -1)
						{
							crtColor = crtTMPColor;
							ActiveRect.left = iCurrentActiveRect%19*10;
							ActiveRect.top = iCurrentActiveRect/19*10;
							ActiveRect.right = ActiveRect.left + 10;
							ActiveRect.bottom = ActiveRect.top + 10;
							::InvalidateRect(hWnd,&ActiveRect,TRUE);
						}
						::InvalidateRect(hWnd,&redrawRect,TRUE);
						iActiveRect = iCurrentActiveRect;
					}
				}
			}
		}
		if(bInCtrlArea)
			::PostMessage(hwndParent,WM_SETCURSOR,NULL,MAKELPARAM(1,0));
		else
			::PostMessage(hwndParent,WM_SETCURSOR,NULL,NULL);
		}
		break;
	case WM_ACTIVATE:
		if(LOWORD(wParam) != WA_INACTIVE)
			break;
	case WM_LBUTTONUP:
		point.x = LPARAM_X(lParam);
		point.y = LPARAM_Y(lParam);
		if(bMouseMoved || ( point.x == oldPoint.x && point.y == oldPoint.y ))
			::PostMessage(hwndParent,WM_LBUTTONUP,(UINT)crtColor,lParam);
		break;
	case WM_LBUTTONDOWN:
		oldPoint.x = LPARAM_X(lParam);
		oldPoint.y = LPARAM_Y(lParam);
		bMouseMoved = FALSE;
		::InvalidateRect(hWnd,&crtColorRect,TRUE);
		break;
	case WM_ERASEBKGND:
		{
		hDC = (HDC)wParam;
		HPEN oldPen = (HPEN)::SelectObject(hDC,_penB);
		for(int i=0;i<18;i++)
		{
			::MoveToEx(hDC,9+i*10,0,NULL);
			::LineTo(hDC,9+i*10,120);
		}
		for(i=0;i<12;i++)
		{
			::MoveToEx(hDC,0,9+i*10,NULL);
			::LineTo(hDC,190,9+i*10);
		}
		CRect btmRect(0,120,191,150);
		::FillRect(hDC,btmRect,(HBRUSH)::GetStockObject(LTGRAY_BRUSH));
		::Rectangle(hDC,crtColorRect.left-1,crtColorRect.top-1,crtColorRect.right + 1,crtColorRect.bottom + 1);
		::SelectObject(hDC,oldPen);
		}
		break;
	case WM_PAINT:
		{
		hDC = ::BeginPaint(hWnd,&ps);
		CDC dc;
		dc.Attach(hDC);
		CRect	rect;
		int x1,y1,i,j,k;
		UCHAR R=255,G=255,B=255;
		for(i=0;i<12;i++)
		{
			y1 = i*10;
			rect.SetRect(0,y1,9,y1+9);
			if(i == 10)
				R=G=B=0x17;
			dc.FillSolidRect(rect,RGB(R,G,B));
			R -= 0x17;
			G -= 0x17;
			B -= 0x17;
		}
		R = G = B = 0;
		for(k = 0;k < 2;k++)
		for(j = 0;j < 18;j++)
		for(i = 0;i < 6;i++)
		{
			x1 = 10+j*10;
			y1 = k*60+i*10;
			rect.SetRect(x1,y1,x1+9,y1+9);
			dc.FillSolidRect(rect,RGB(R,G,B));
			if(B == 0xff)
			{
				B = 0x00;
				if(G == 0xff)
				{
					G = 0x00;
					R += 0x33;
				}
				else
					G += 0x33;
			}
			else
				B += 0x33;
		}
		if(iActiveRect != -1)
		{
			CRect ActiveRect;
			ActiveRect.left = iActiveRect%19*10;
			ActiveRect.top = iActiveRect/19*10;
			ActiveRect.right = ActiveRect.left + 10;
			ActiveRect.bottom = ActiveRect.top + 10;
			dc.DrawFocusRect(ActiveRect);
		}
		rect.SetRect(0,y1+130,60,y1+140);
		dc.FillSolidRect(crtColorRect,crtColor);
		char strColor[8]="#";
		sprintf(strColor+1,"%02X%02X%02X",GetRValue(crtColor),GetGValue(crtColor),GetBValue(crtColor));
		HFONT hOldFont = (HFONT)dc.SelectObject(hFont);
		dc.SetBkMode(TRANSPARENT);
		dc.TextOut(80,127,strColor,7);
		dc.SelectObject(hOldFont);
		dc.Detach();
		::EndPaint(hWnd,&ps);
		}
		break;
	default:
		return(::DefWindowProc(hWnd,nMsg,wParam,lParam));
	}
	return NULL;
}

BOOL CColorPicker::CreatePaletteWindow()
{
	if(!m_bPaletteWndActive)
	{
		// 创建调色板子窗口
		WNDCLASS wndcls;
		wndcls.style = CS_HREDRAW | CS_VREDRAW;
		wndcls.lpfnWndProc = PaletteWndProc;
		wndcls.cbClsExtra = wndcls.cbWndExtra = 0;
		wndcls.hInstance = ::AfxGetInstanceHandle();
		wndcls.hIcon = NULL;
		wndcls.hCursor = NULL;
		wndcls.hbrBackground = (HBRUSH)::GetStockObject(WHITE_BRUSH);
		wndcls.lpszMenuName = NULL;
		wndcls.lpszClassName = "ColorPalette";
		if (!::RegisterClass(&wndcls))
			AfxThrowResourceException();
		HDC hDC = ::GetDC(m_hWnd);
		int scrWidth = ::GetDeviceCaps(hDC,HORZRES);
		int scrHeight = ::GetDeviceCaps(hDC,VERTRES);
		::ReleaseDC(m_hWnd,hDC);
		CRect		rect;
		GetWindowRect(rect);
		rect.top = rect.bottom - 1;
		if(rect.left > scrWidth-191)
			rect.left = scrWidth-191;
		else if(rect.left < 0)
			rect.left = 0;
		if(rect.top > scrHeight-150)
			rect.top = rect.top-150;
		rect.bottom = rect.top + 150;
		rect.right = rect.left + 191;

		if(!(m_hPaletteWnd = ::CreateWindowEx(WS_EX_TOPMOST,"ColorPalette","Palatte",WS_POPUP|WS_BORDER|WS_VISIBLE,rect.left,rect.top,rect.Width(),rect.Height(),m_hWnd,NULL,wndcls.hInstance,NULL)))
			return FALSE;
	}
	::PostMessage(m_hPaletteWnd,WM_SETCOLOR,(WPARAM)m_CurrentColor,NULL);
	::ShowWindow(m_hPaletteWnd,SW_SHOW);
	::SetCapture(m_hPaletteWnd);
	m_bPaletteWndActive = TRUE;
	return TRUE;
}

void CColorPicker::DestroyPaletteWindow()
{
	::DestroyWindow(m_hPaletteWnd);
	::UnregisterClass("ColorPalette",::AfxGetInstanceHandle());
	m_bPaletteWndActive = FALSE;
	m_hPaletteWnd = NULL;
}

BOOL CColorPicker::OnSetCursor(CWnd* pWnd, UINT nHitTest, UINT message) 
{
	if(m_bPaletteWndActive && m_hCursorStraw && nHitTest != 1)
		::SetCursor(m_hCursorStraw);
	else
		::SetCursor(AfxGetApp()->LoadStandardCursor(IDC_ARROW));
	return TRUE;
}

void CColorPicker::GetColor(CString& strColor)
{
	char cColor[8]="#";
	sprintf(cColor+1,"%02X%02X%02X",GetRValue(m_CurrentColor),GetGValue(m_CurrentColor),GetBValue(m_CurrentColor));
	strColor = cColor;
}

COLORREF CColorPicker::GetColor()
{
	return m_CurrentColor;
}

LRESULT CColorPicker::DefWindowProc(UINT message, WPARAM wParam, LPARAM lParam) 
{
	if(message == WM_COLORDLG)
	{
		DestroyPaletteWindow();
		CColorDialog dlg;
		dlg.m_cc.Flags |= CC_FULLOPEN;
		if(dlg.DoModal() == IDOK)
			SetColor(dlg.GetColor());
		return TRUE;
	}
	else
		return CButton::DefWindowProc(message, wParam, lParam);
}

void CColorPicker::SetBuddy(HWND hWnd)
{
	m_hwndBuddy = hWnd;
}

void CColorPicker::SetColor(COLORREF ref)
{
	m_CurrentColor = ref;
	::PostMessage(GetParent()->m_hWnd,WM_COMMAND,MAKELPARAM(::GetWindowLong(m_hWnd,GWL_ID),BN_CLICKED),(LPARAM)m_hWnd);
	if(m_hwndBuddy)
	{
		CString strColor;
		GetColor(strColor);
		::SetWindowText(m_hwndBuddy,strColor);
	}
	Invalidate();
}