//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop

#include "UpDownUnit.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)


static  const COLORREF
		RGB_EXTERNAL_FRAME              =  RGB(168,180,196),
		RGB_INTERNAL_NOR                =  RGB(168,180,196), //272a2f
		RGB_INTERNAL_HIG                =  RGB(107,112,120), //4a5058
		RGB_INTERNAL_PUSH               =  RGB(80,84,90), //32363c
		RGB_INTERNAL_LINE_NOR           =  RGB(25,27,30), //191b1e
		RGB_INTERNAL_LINE_HIG           =  RGB(58,63,69), //3a3f45
		RGB_INTERNAL_LINE_PUSH          =  RGB(38,41,45), //26292d
		RGB_INTERNAL_FRAME_NOR          =  RGB(84,89,95),
		RGB_INTERNAL_FRAME_HIG          =  RGB(68,74,81),
		RGB_INTERNAL_FRAME_PUSH         =  RGB(50,54,60),
		RGB_RECT_DISPART_LINE 			=  RGB(157,168,183);

#define PIXL_EXTERNAL_FRAME 1
#define PIXL_INTERNAL_FRAME 1
#define PIXL_INTERNAL2RECT  1
#define PIXL_INTERNAL_LINE  1
#define PIXL_INTERL_WIDTH (Width-         \
			4*(PIXL_EXTERNAL_FRAME+PIXL_INTERNAL_FRAME+PIXL_INTERNAL2RECT)+1)/2

#define PIXL_INTERL_HEIGHT (Height-         \
			4*(PIXL_EXTERNAL_FRAME+PIXL_INTERNAL_FRAME+PIXL_INTERNAL2RECT)+1)/2

__fastcall UpDownUnit::TUpDown::TUpDown(System::Classes::TComponent* AOwner)
	:Vcl::Comctrls::TUpDown(AOwner)
{
	if(Width%2)
		Width += 1;

	m_pCanvas = new TControlCanvas();
	((TControlCanvas*)m_pCanvas)->Control = this;

	m_pTimer = new TTimer(this);
	m_pTimer->Enabled = false;
	m_pTimer->OnTimer = TimerProc;

}
//---------------------------------------------------------------------------

__fastcall UpDownUnit::TUpDown::~TUpDown()
{
	if( m_pTimer ){
		delete m_pTimer;
		m_pTimer = NULL;
	}

	if( m_pCanvas ){
		delete m_pCanvas;
		m_pCanvas = NULL;
	}
}
//---------------------------------------------------------------------------

void __fastcall UpDownUnit::TUpDown::PaintWindow(HDC DC)
{
	if( !m_pCanvas->Handle )
		m_pCanvas->Handle = DC;

	Draw(STATE_NORMAL, ORIENTATION_ALL);

	TRect rClient = GetClientRect();
	m_pCanvas->Brush->Color = RGB_EXTERNAL_FRAME;
	m_pCanvas->Pen->Color   = RGB_EXTERNAL_FRAME;
	//外边框
	m_pCanvas->FrameRect(rClient);

	//中间分割线
	m_pCanvas->Pen->Color   = RGB_RECT_DISPART_LINE;
	int X,Y;
	if(Orientation == udHorizontal) {
		X = PIXL_EXTERNAL_FRAME + 2*PIXL_INTERNAL_FRAME+2*PIXL_INTERNAL2RECT+
						 PIXL_INTERL_WIDTH;
		Y = 0;
		m_pCanvas->MoveTo(X,Y);
		Y = Height;
		m_pCanvas->LineTo(X,Y);
	}else {
		Y = PIXL_EXTERNAL_FRAME + 2*PIXL_INTERNAL_FRAME+2*PIXL_INTERNAL2RECT+
						 PIXL_INTERL_HEIGHT;
		X = 0;
		m_pCanvas->MoveTo(X,Y);
		X = Width;
		m_pCanvas->LineTo(X,Y);
	}

}
//---------------------------------------------------------------------------

 void __fastcall UpDownUnit::TUpDown::WMPaint(Winapi::Messages::TWMPaint &Message)
{
	PaintHandler(Message);
}
//---------------------------------------------------------------------------
void __fastcall UpDownUnit::TUpDown::WMLButtonDown(TWMMouse &Message)
{
	if( OnClick==NULL )
		return;

	SetCapture(Handle);
	m_iDown = true;

	int iOrentation  = HitTest(Message.XPos, Message.YPos);
	m_iCurOrentation = m_iPreOrentation = iOrentation;

	if(iOrentation == ORIENTATION_LEFT) {
		if(Orientation == udHorizontal)
			OnClick(this, btPrev );
		else
            OnClick(this, btNext );
	}else if(iOrentation == ORIENTATIONRIGHT) {

		if(Orientation == udHorizontal)
			OnClick(this, btNext );
		else
			OnClick(this, btPrev );
	}

	Draw(STATE_PUSH, iOrentation);

	m_pTimer->Interval = TIME_DELAY;
	m_pTimer->Enabled = true;
}
//---------------------------------------------------------------------------
void __fastcall UpDownUnit::TUpDown::WMLButtonUp(TWMMouse &Message)
{
	ReleaseCapture();
	m_iDown = false;
    m_pTimer->Enabled = false;
	int iOrentation = HitTest(Message.XPos, Message.YPos);
	if(iOrentation != ORIENTATION_NONE)
		Draw(STATE_HIGHLIGHT, iOrentation);
	else
		Draw(STATE_NORMAL, ORIENTATION_ALL);

	m_iCurOrentation = m_iPreOrentation = -1;
}
//---------------------------------------------------------------------------

void __fastcall UpDownUnit::TUpDown::WMMouseMove(TWMMouse &Message)
{
	if(!m_iDown)
		Draw(STATE_HIGHLIGHT, HitTest(Message.XPos, Message.YPos));
	else
		Draw(STATE_PUSH, HitTest(Message.XPos, Message.YPos));

}
//---------------------------------------------------------------------------

void __fastcall UpDownUnit::TUpDown::CMMouseLeave(TMessage &Message)
{
	if(!m_iDown) {
		Draw(STATE_NORMAL, ORIENTATION_ALL);
		m_iCurOrentation = m_iPreOrentation = -1;
	}
}
//---------------------------------------------------------------------------

void __fastcall UpDownUnit::TUpDown::Draw(int iState, int iOrentation)
{
	if(iOrentation == ORIENTATION_NONE)
		return;

	TRect rClient    = GetClientRect();
	TRect temrClient = rClient;
	int X,Y;

	//当前区域为右边，则左边画普通色
	if( iOrentation==ORIENTATIONRIGHT || iOrentation==ORIENTATION_ALL ||
		(iOrentation==ORIENTATION_LEFT&&iState!=STATE_NORMAL) )
	{
		if(iOrentation==ORIENTATIONRIGHT || iOrentation==ORIENTATION_ALL){
			m_pCanvas->Brush->Color = RGB_INTERNAL_NOR;
			m_pCanvas->Pen->Color   = RGB_INTERNAL_NOR;
		}else if(iState==STATE_HIGHLIGHT){
			m_pCanvas->Brush->Color = RGB_INTERNAL_HIG;
			m_pCanvas->Pen->Color   = RGB_INTERNAL_HIG;
		}else if(iState==STATE_PUSH){
			m_pCanvas->Brush->Color = RGB_INTERNAL_PUSH;
			m_pCanvas->Pen->Color   = RGB_INTERNAL_PUSH;
		}

		if(Orientation == udHorizontal) {
			temrClient.Left   = PIXL_EXTERNAL_FRAME+PIXL_INTERNAL_FRAME;
			temrClient.Top    = PIXL_EXTERNAL_FRAME+PIXL_INTERNAL_FRAME;
			temrClient.Right  = temrClient.Left + 2*PIXL_INTERNAL2RECT + PIXL_INTERL_WIDTH;
			temrClient.Bottom = Height - temrClient.Top ;
		}else {
			temrClient.Left   = PIXL_EXTERNAL_FRAME+PIXL_INTERNAL_FRAME;
			temrClient.Top    = PIXL_EXTERNAL_FRAME+PIXL_INTERNAL_FRAME;
			temrClient.Right  = Width - temrClient.Left;
			temrClient.Bottom = temrClient.Top + 2*PIXL_INTERNAL2RECT + PIXL_INTERL_HEIGHT;
		}

		m_pCanvas->Rectangle(temrClient.Left, temrClient.Top,
							 temrClient.Right,temrClient.Bottom);

		//////////////////////////
		if(iOrentation==ORIENTATIONRIGHT || iOrentation==ORIENTATION_ALL){
			m_pCanvas->Pen->Color   = RGB_INTERNAL_LINE_NOR;
		}else if(iState==STATE_HIGHLIGHT){
			m_pCanvas->Pen->Color   = RGB_INTERNAL_LINE_HIG;
		}else if(iState==STATE_PUSH){
			m_pCanvas->Pen->Color   = RGB_INTERNAL_LINE_PUSH;
		}

		if(Orientation == udHorizontal) {
			X = PIXL_EXTERNAL_FRAME+PIXL_INTERNAL_FRAME+PIXL_INTERNAL2RECT;
			Y = Height/2-1;
			m_pCanvas->Pixels[X][Y] = m_pCanvas->Pen->Color;

			X += 1;

			Y -= 1;
			m_pCanvas->MoveTo(X,Y);
			Y += 3;
			m_pCanvas->LineTo(X,Y);

			X += 1;

			m_pCanvas->MoveTo(X,Y);
			Y -= 5;
			m_pCanvas->LineTo(X,Y);
		}else {
//			Y = PIXL_EXTERNAL_FRAME+PIXL_INTERNAL_FRAME+PIXL_INTERNAL2RECT+PIXL_INTERL_HEIGHT;
			Y = temrClient.Top + temrClient.Height()/2 - 1;
			X = Width/2-1;
			m_pCanvas->Pixels[X][Y] = m_pCanvas->Pen->Color;

			Y += 1;

			X -= 1;
			m_pCanvas->MoveTo(X,Y);
			X += 3;
			m_pCanvas->LineTo(X,Y);

			Y += 1;

			m_pCanvas->MoveTo(X,Y);
			X -= 5;
			m_pCanvas->LineTo(X,Y);
		}

		//内边框左
		if(iOrentation==ORIENTATIONRIGHT || iOrentation==ORIENTATION_ALL){
			m_pCanvas->Brush->Color = RGB_INTERNAL_FRAME_NOR;
			m_pCanvas->Pen->Color   = RGB_INTERNAL_FRAME_NOR;
		}else if(iState==STATE_HIGHLIGHT){
			m_pCanvas->Brush->Color = RGB_INTERNAL_FRAME_HIG;
			m_pCanvas->Pen->Color   = RGB_INTERNAL_FRAME_HIG;
		}else if(iState==STATE_PUSH){
			m_pCanvas->Brush->Color = RGB_INTERNAL_FRAME_PUSH;
			m_pCanvas->Pen->Color   = RGB_INTERNAL_FRAME_PUSH;
		}

		if(Orientation == udHorizontal) {
			rClient.left   = PIXL_EXTERNAL_FRAME;
			rClient.Top    = PIXL_EXTERNAL_FRAME;
			rClient.Right  = rClient.left + 2*PIXL_INTERNAL_FRAME+2*PIXL_INTERNAL2RECT+
							 PIXL_INTERL_WIDTH;
			rClient.Bottom -= rClient.Top;
		}else {
			rClient.left   = PIXL_EXTERNAL_FRAME;
			rClient.Top    = PIXL_EXTERNAL_FRAME;
			rClient.Right -= rClient.left;
			rClient.Bottom = rClient.Top + 2*PIXL_INTERNAL_FRAME+2*PIXL_INTERNAL2RECT+
							 PIXL_INTERL_HEIGHT;;
		}

		m_pCanvas->FrameRect(rClient);


	}
    //当前区域为左边，则右边画普通色
	if( iOrentation==ORIENTATION_LEFT || iOrentation==ORIENTATION_ALL ||
		(iOrentation==ORIENTATIONRIGHT&&iState!=STATE_NORMAL) )
	{
		if(iOrentation==ORIENTATION_LEFT || iOrentation==ORIENTATION_ALL){
			m_pCanvas->Brush->Color = RGB_INTERNAL_NOR;
			m_pCanvas->Pen->Color   = RGB_INTERNAL_NOR;
		}else if(iState==STATE_HIGHLIGHT){
			m_pCanvas->Brush->Color = RGB_INTERNAL_HIG;
			m_pCanvas->Pen->Color   = RGB_INTERNAL_HIG;
		}else if(iState==STATE_PUSH){
			m_pCanvas->Brush->Color = RGB_INTERNAL_PUSH;
			m_pCanvas->Pen->Color   = RGB_INTERNAL_PUSH;
		}

		if(Orientation == udHorizontal) {
			temrClient.Left   = temrClient.Right+2*PIXL_INTERNAL_FRAME+PIXL_INTERNAL_LINE;
			temrClient.Right  = Width - (PIXL_EXTERNAL_FRAME+PIXL_INTERNAL_FRAME);

		}else {
			temrClient.Top    = temrClient.Bottom+2*PIXL_INTERNAL_FRAME+PIXL_INTERNAL_LINE;
			temrClient.Bottom = Height - (PIXL_EXTERNAL_FRAME+PIXL_INTERNAL_FRAME);
		}

		m_pCanvas->Rectangle(temrClient.Left, temrClient.Top,
						     temrClient.Right,temrClient.Bottom);

		//////////////////////////////
		if(iOrentation==ORIENTATION_LEFT || iOrentation==ORIENTATION_ALL){
			m_pCanvas->Pen->Color   = RGB_INTERNAL_LINE_NOR;
		}else if(iState==STATE_HIGHLIGHT){
			m_pCanvas->Pen->Color   = RGB_INTERNAL_LINE_HIG;
		}else if(iState==STATE_PUSH){
			m_pCanvas->Pen->Color   = RGB_INTERNAL_LINE_PUSH;
		}

		if(Orientation == udHorizontal) {
			X = temrClient.Left+3;
			Y = Height/2-1;
			m_pCanvas->Pixels[X][Y] = m_pCanvas->Pen->Color;

			X -= 1;

			Y -= 1;
			m_pCanvas->MoveTo(X,Y);
			Y += 3;
			m_pCanvas->LineTo(X,Y);

			X -= 1;

			m_pCanvas->MoveTo(X,Y);
			Y -= 5;
			m_pCanvas->LineTo(X,Y);
		}else {
//			Y = temrClient.Top+3;
			Y = temrClient.Top + temrClient.Height()/2 + 1;
			X = Width/2-1;
			m_pCanvas->Pixels[X][Y] = m_pCanvas->Pen->Color;

			Y -= 1;

			X -= 1;
			m_pCanvas->MoveTo(X,Y);
			X += 3;
			m_pCanvas->LineTo(X,Y);

			Y -= 1;

			m_pCanvas->MoveTo(X,Y);
			X -= 5;
			m_pCanvas->LineTo(X,Y);
		}

		//内边框右
		if(iOrentation==ORIENTATION_LEFT || iOrentation==ORIENTATION_ALL){
			m_pCanvas->Brush->Color = RGB_INTERNAL_FRAME_NOR;
			m_pCanvas->Pen->Color   = RGB_INTERNAL_FRAME_NOR;
		}else if(iState==STATE_HIGHLIGHT){
			m_pCanvas->Brush->Color = RGB_INTERNAL_FRAME_HIG;
			m_pCanvas->Pen->Color   = RGB_INTERNAL_FRAME_HIG;
		}else if(iState==STATE_PUSH){
			m_pCanvas->Brush->Color = RGB_INTERNAL_FRAME_PUSH;
			m_pCanvas->Pen->Color   = RGB_INTERNAL_FRAME_PUSH;
		}

		if(Orientation == udHorizontal) {
			rClient.left   = rClient.Right+PIXL_INTERNAL_LINE;
			rClient.Right  = Width - PIXL_EXTERNAL_FRAME;
		}else {
			rClient.Top   = rClient.Bottom+PIXL_INTERNAL_LINE;
			rClient.Bottom = Height - PIXL_EXTERNAL_FRAME;
		}

		m_pCanvas->FrameRect(rClient);

	}
}
//---------------------------------------------------------------------------

int __fastcall UpDownUnit::TUpDown::HitTest(int x, int y)
{
	if(y<0 || y>Height || x<0 || x>Width)
		return ORIENTATION_NONE;

	if(Orientation == udHorizontal) {

		if(x>=0 && x<=Width/2 )
			return ORIENTATION_LEFT;
		else if(x>Width/2 && x<=Width)
			return ORIENTATIONRIGHT;
	}else{

		if(y>=0 && y<=Height/2 )
			return ORIENTATION_LEFT;
		else if(y>Height/2 && y<=Height)
			return ORIENTATIONRIGHT;
	}

	return  ORIENTATION_NONE;
}
//---------------------------------------------------------------------------
void __fastcall UpDownUnit::TUpDown::TimerProc(TObject* Sender)
{
	if(m_iDown){
		m_pTimer->Interval = TIME_DELAY;
		m_pTimer->Enabled = true;

		TPoint pt;
		GetCursorPos(&pt);
		pt = ScreenToClient(pt);
		m_iCurOrentation = HitTest(pt.X, pt.Y);

		if(m_iCurOrentation == m_iPreOrentation) {

			if(m_iCurOrentation == ORIENTATION_LEFT) {
				if(Orientation == udHorizontal)
					OnClick(this, btPrev );
				else
					OnClick(this, btNext );
			}else if(m_iCurOrentation == ORIENTATIONRIGHT) {

				if(Orientation == udHorizontal)
					OnClick(this, btNext );
				else
					OnClick(this, btPrev );
			}

			Draw(STATE_PUSH, m_iCurOrentation);
		}

	}else{
        m_pTimer->Enabled = false;
	}
}
//---------------------------------------------------------------------------