Initial commit
This commit is contained in:
+439
@@ -0,0 +1,439 @@
|
||||
//---------------------------------------------------------------------------
|
||||
#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;
|
||||
}
|
||||
}
|
||||
//---------------------------------------------------------------------------
|
||||
|
||||
|
||||
|
||||
Reference in New Issue
Block a user