Initial commit
This commit is contained in:
@@ -0,0 +1,467 @@
|
||||
//---------------------------------------------------------------------------
|
||||
|
||||
#pragma hdrstop
|
||||
|
||||
#include "SkinTrackBar.h"
|
||||
//---------------------------------------------------------------------------
|
||||
#pragma package(smart_init)
|
||||
#define trHorizontal 1 //横向滑块
|
||||
#define trVertical 0 //纵向滑块
|
||||
|
||||
#define SLIDER_MAX_H 25 //滑块长度
|
||||
#define SLIDER_MIN_H 10
|
||||
#define SLIDER_W 10 //滑块宽度
|
||||
|
||||
#define PANEL_MIN_W 30 //Panel最小宽度
|
||||
|
||||
#define CHANNEL_LEFT 5
|
||||
#define CHANNEL_W 2 //滑槽宽度
|
||||
|
||||
static const COLORREF
|
||||
CLR_BACK_ENABLE = RGB(22,33,44), //d5dde8
|
||||
CLR_BACK_DISABLE = RGB(112,130,154), //d5dde8
|
||||
CLR_SLIDER_DOWN = RGB(77,88,99), //d5dde8
|
||||
CLR_SLIDER_HOVER = RGB(55,66,77), //d5dde8
|
||||
CLR_SLIDER_NORMAL = RGB(44,55,77); //d5dde8
|
||||
|
||||
static inline void ValidCtrCheck(TSkinTrackBar *)
|
||||
{
|
||||
new TSkinTrackBar(NULL);
|
||||
}
|
||||
|
||||
namespace Skintrackbar
|
||||
{
|
||||
void __fastcall PACKAGE Register()
|
||||
{
|
||||
TComponentClass classes[1] = {__classid(TSkinTrackBar)};
|
||||
RegisterComponents(L"Samples", classes, 0);
|
||||
}
|
||||
}
|
||||
|
||||
__fastcall TSkinTrackBar::TSkinTrackBar(System::Classes::TComponent* AOwner)
|
||||
: TPanel(AOwner)
|
||||
{
|
||||
bDown = false;
|
||||
bMouse = false;
|
||||
FEnabled = true;
|
||||
|
||||
FOrientation = 1; //默认横向滑块
|
||||
FMax = 100;
|
||||
FMin = 0;
|
||||
FPosition = 0;
|
||||
FPageSize = 1;
|
||||
Hint = IntToStr(FPosition);
|
||||
|
||||
ParentBackground = true;
|
||||
|
||||
Slider = new TPaintBox(this);
|
||||
Slider->Parent = this;
|
||||
Slider->ParentShowHint = false;
|
||||
Slider->ShowHint = false;
|
||||
|
||||
Slider->OnMouseEnter = CMMouseEnter;
|
||||
Slider->OnMouseLeave = CMMouseLeave;
|
||||
Slider->OnMouseDown = CMMouseDown;
|
||||
Slider->OnPaint = SliderPaint;
|
||||
|
||||
ParentColor = true;
|
||||
}
|
||||
//-----------------------------------------------------------------------------
|
||||
__fastcall TSkinTrackBar::~TSkinTrackBar()
|
||||
{
|
||||
delete Slider;
|
||||
Slider = NULL;
|
||||
}
|
||||
|
||||
void __fastcall TSkinTrackBar::SetMax(int Value)
|
||||
{
|
||||
if(Value <= FMin)
|
||||
{
|
||||
// if(ComponentState.Contains(csDesigning))
|
||||
// {
|
||||
// MessageBox(Handle, "Max：必须大于Min!!!", "错误", MB_OK | MB_ICONERROR);
|
||||
// }
|
||||
}
|
||||
else
|
||||
{
|
||||
if(FMax != Value)
|
||||
{
|
||||
FMax = Value;
|
||||
|
||||
if(FPosition > FMax){
|
||||
FPosition = FMax;
|
||||
if(FOnChange)
|
||||
FOnChange(this);
|
||||
}
|
||||
|
||||
if( FOrientation ){
|
||||
Slider->Left = CHANNEL_LEFT+(double)(FPosition-FMin)*(Width-2*CHANNEL_LEFT-SLIDER_W)/(FMax-FMin);
|
||||
}
|
||||
else{
|
||||
Slider->Top = Height-CHANNEL_LEFT-(double)(FPosition-FMin)*(Height-2*CHANNEL_LEFT-SLIDER_W)/(FMax-FMin)-SLIDER_W;
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
void __fastcall TSkinTrackBar::SetMin(int Value)
|
||||
{
|
||||
if(Value >= FMax)
|
||||
{
|
||||
// if(ComponentState.Contains(csDesigning))
|
||||
// {
|
||||
// MessageBox(Handle, "Min：必须小于Max!!!", "错误", MB_OK | MB_ICONERROR);
|
||||
// }
|
||||
}
|
||||
else
|
||||
{
|
||||
if(FMin != Value)
|
||||
{
|
||||
FMin = Value;
|
||||
|
||||
if(FPosition < FMin){
|
||||
FPosition = FMin;
|
||||
if(FOnChange)
|
||||
FOnChange(this);
|
||||
}
|
||||
|
||||
if( FOrientation ){
|
||||
Slider->Left = CHANNEL_LEFT+(double)(FPosition-FMin)*(Width-2*CHANNEL_LEFT-SLIDER_W)/(FMax-FMin);
|
||||
}
|
||||
else{
|
||||
Slider->Top = Height-CHANNEL_LEFT-(double)(FPosition-FMin)*(Height-2*CHANNEL_LEFT-SLIDER_W)/(FMax-FMin)-SLIDER_W;
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
void __fastcall TSkinTrackBar::SetPosition(int iPosition)
|
||||
{
|
||||
if(iPosition>FMax)
|
||||
iPosition = FMax;
|
||||
if(iPosition<FMin)
|
||||
iPosition = FMin;
|
||||
|
||||
if(FPosition!=iPosition){
|
||||
|
||||
FPosition = iPosition;
|
||||
Hint = IntToStr(FPosition);
|
||||
|
||||
if( FOrientation ){
|
||||
Slider->Left = CHANNEL_LEFT+(double)(FPosition-FMin)*(Width-2*CHANNEL_LEFT-SLIDER_W)/(FMax-FMin);
|
||||
}
|
||||
else{
|
||||
Slider->Top = Height-CHANNEL_LEFT-(double)(FPosition-FMin)*(Height-2*CHANNEL_LEFT-SLIDER_W)/(FMax-FMin)-SLIDER_W;
|
||||
}
|
||||
|
||||
if(FOnChange)
|
||||
FOnChange(this);
|
||||
|
||||
Invalidate();
|
||||
// Slider->Invalidate();
|
||||
|
||||
}
|
||||
}
|
||||
|
||||
void __fastcall TSkinTrackBar::SetOrientation(bool bOrientation)
|
||||
{
|
||||
if(FOrientation != bOrientation)
|
||||
{
|
||||
FOrientation = bOrientation;
|
||||
|
||||
TWMSize msg;
|
||||
WMSize(msg);
|
||||
|
||||
Invalidate();
|
||||
// Slider->Invalidate();
|
||||
}
|
||||
}
|
||||
|
||||
void __fastcall TSkinTrackBar::SetEnabled(bool bEnabled)
|
||||
{
|
||||
if( FEnabled!=bEnabled ){
|
||||
FEnabled = bEnabled;
|
||||
Invalidate();
|
||||
}
|
||||
}
|
||||
|
||||
void __fastcall TSkinTrackBar::CMMouseEnter(System::TObject* Sender)
|
||||
{
|
||||
if( FEnabled ){
|
||||
bMouse = true;
|
||||
Slider->Invalidate();
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
void __fastcall TSkinTrackBar::CMMouseLeave(System::TObject* Sender)
|
||||
{
|
||||
if( FEnabled ){
|
||||
bMouse = false;
|
||||
Slider->Invalidate();
|
||||
}
|
||||
}
|
||||
|
||||
void __fastcall TSkinTrackBar::CMMouseDown(System::TObject* Sender, System::Uitypes::TMouseButton Button,
|
||||
System::Classes::TShiftState Shift, int X, int Y)
|
||||
{
|
||||
if( FEnabled && Button==mbLeft ){
|
||||
bDown = true;
|
||||
MouseCapture = true;
|
||||
Slider->Invalidate();
|
||||
SetFocus();
|
||||
}
|
||||
}
|
||||
|
||||
void __fastcall TSkinTrackBar::WMMouseMove(TWMMouse &Message)
|
||||
{
|
||||
if( FEnabled && bDown ){
|
||||
if( FOrientation ){ // trHorizontal 1 //横向滑块
|
||||
DrawH(Message);
|
||||
}
|
||||
else{
|
||||
DrawV(Message);
|
||||
}
|
||||
}
|
||||
|
||||
TPanel::Dispatch(&Message);
|
||||
}
|
||||
|
||||
void __fastcall TSkinTrackBar::WMLButtonDown(TWMLButtonDown &Message)
|
||||
{
|
||||
if( FEnabled ){
|
||||
if( FOrientation && Message.YPos>Slider->Top
|
||||
&& Message.YPos<Slider->Top+Slider->Height
|
||||
&& Message.XPos>0 && Message.XPos<Width){
|
||||
//横向
|
||||
DrawH(Message);
|
||||
bDown = true;
|
||||
MouseCapture = true;
|
||||
}
|
||||
else if( !FOrientation && Message.XPos>Slider->Left
|
||||
&& Message.XPos<Slider->Left + Slider->Width
|
||||
&& Message.YPos>0 && Message.YPos<Height){
|
||||
//纵向
|
||||
DrawV(Message);
|
||||
bDown = true;
|
||||
MouseCapture = true;
|
||||
}
|
||||
|
||||
SetFocus();
|
||||
}
|
||||
|
||||
TPanel::Dispatch(&Message);
|
||||
}
|
||||
|
||||
void __fastcall TSkinTrackBar::WMLButtonUp(TWMLButtonUp &Message)
|
||||
{
|
||||
if( FEnabled ){
|
||||
bDown = false;
|
||||
bMouse = false;
|
||||
MouseCapture = false;
|
||||
|
||||
Slider->Invalidate();
|
||||
}
|
||||
|
||||
TPanel::Dispatch(&Message);
|
||||
}
|
||||
|
||||
void __fastcall TSkinTrackBar::WMMouseWheel(TWMMouseWheel &Message)
|
||||
{
|
||||
if( FEnabled ){
|
||||
int iPos = FPosition;
|
||||
if( Message.WheelDelta>0 ){
|
||||
iPos += FPageSize;
|
||||
if( iPos>FMax )
|
||||
iPos = FMax;
|
||||
}
|
||||
else{
|
||||
iPos -= FPageSize;
|
||||
if( iPos<FMin )
|
||||
iPos = FMin;
|
||||
}
|
||||
|
||||
Position = iPos;
|
||||
}
|
||||
}
|
||||
|
||||
void __fastcall TSkinTrackBar::WMEraseBkgnd(TWMEraseBkgnd &Message)
|
||||
{
|
||||
TPanel::Dispatch(&Message);
|
||||
|
||||
TRect Channel;
|
||||
|
||||
if( Orientation )
|
||||
Channel.init( CHANNEL_LEFT,
|
||||
Height/2-CHANNEL_W,
|
||||
Width-CHANNEL_LEFT,
|
||||
Height/2+CHANNEL_W);
|
||||
else
|
||||
Channel.init(
|
||||
Width/2-CHANNEL_W,
|
||||
CHANNEL_LEFT,
|
||||
Width/2+CHANNEL_W,
|
||||
Height-CHANNEL_LEFT
|
||||
);
|
||||
|
||||
TCanvas* tempCanvas = new TCanvas;
|
||||
tempCanvas->Handle = Message.DC;
|
||||
|
||||
if( Enabled ){
|
||||
tempCanvas->Brush->Color = CLR_BACK_ENABLE;
|
||||
tempCanvas->FillRect(Channel);
|
||||
}
|
||||
else{
|
||||
tempCanvas->Brush->Color = CLR_BACK_DISABLE;
|
||||
tempCanvas->FillRect(Channel);
|
||||
}
|
||||
|
||||
delete tempCanvas;
|
||||
}
|
||||
|
||||
void __fastcall TSkinTrackBar::SliderPaint(System::TObject* Sender)
|
||||
{
|
||||
TRect rect = Slider->ClientRect;
|
||||
|
||||
if ( !FEnabled ) {
|
||||
Slider->Canvas->Brush->Color = CLR_BACK_DISABLE;
|
||||
Slider->Canvas->FillRect(rect);
|
||||
|
||||
// TRect rct(rect);
|
||||
// Frame3D( Slider->Canvas, rect, clBlack,clGray,1 );
|
||||
// rect = rct;
|
||||
}
|
||||
else if(bDown){//鼠标按下
|
||||
Slider->Canvas->Brush->Color = CLR_SLIDER_DOWN;
|
||||
Slider->Canvas->FillRect(rect);
|
||||
|
||||
// TRect rct(rect);
|
||||
Frame3D( Slider->Canvas, rect, clBlack,clGray,1 );
|
||||
// rect = rct;
|
||||
}
|
||||
else if(bMouse){//鼠标移动到滑块上
|
||||
Slider->Canvas->Brush->Color = CLR_SLIDER_HOVER;
|
||||
Slider->Canvas->FillRect(rect);
|
||||
|
||||
// TRect rct(rect);
|
||||
Frame3D( Slider->Canvas, rect, clGray,clBlack, 1 );
|
||||
// rect = rct;
|
||||
}
|
||||
else{ //平常
|
||||
Slider->Canvas->Brush->Color = CLR_SLIDER_NORMAL;
|
||||
Slider->Canvas->FillRect(rect);
|
||||
|
||||
// TRect rct(rect);
|
||||
Frame3D( Slider->Canvas, rect, clGray,clBlack, 1 );
|
||||
// rect = rct;
|
||||
}
|
||||
}
|
||||
|
||||
void __fastcall TSkinTrackBar::DrawH(TWMMouse &Message) // 横向
|
||||
{
|
||||
int oldPosition = FPosition;
|
||||
|
||||
if(Message.XPos<CHANNEL_LEFT+SLIDER_W/2){
|
||||
if(Slider->Left==CHANNEL_LEFT)
|
||||
return;
|
||||
|
||||
Slider->Left = CHANNEL_LEFT;
|
||||
|
||||
FPosition = FMin;
|
||||
}
|
||||
else if(Message.XPos>Width-CHANNEL_LEFT-SLIDER_W/2){
|
||||
if(Slider->Left==Width-CHANNEL_LEFT - SLIDER_W)
|
||||
return;
|
||||
|
||||
Slider->Left = Width-CHANNEL_LEFT - SLIDER_W;
|
||||
|
||||
FPosition = FMax;
|
||||
}
|
||||
else{
|
||||
FPosition = FMin+(double)(Message.XPos - CHANNEL_LEFT - SLIDER_W/2)/(Width-2*CHANNEL_LEFT-SLIDER_W)*(FMax-FMin) +0.5;
|
||||
|
||||
Slider->Left = CHANNEL_LEFT+(double)(FPosition-FMin)*(Width-2*CHANNEL_LEFT-SLIDER_W)/(FMax-FMin);
|
||||
}
|
||||
|
||||
Hint = IntToStr(FPosition);
|
||||
if( oldPosition!=FPosition && FOnChange )
|
||||
FOnChange(this);
|
||||
}
|
||||
|
||||
void __fastcall TSkinTrackBar::DrawV(TWMMouse &Message)
|
||||
{
|
||||
int oldPosition = FPosition;
|
||||
|
||||
if(Message.YPos<CHANNEL_LEFT+SLIDER_W/2){
|
||||
if(Slider->Top==CHANNEL_LEFT)
|
||||
return;
|
||||
|
||||
Slider->Top = CHANNEL_LEFT;
|
||||
|
||||
FPosition = FMax;
|
||||
|
||||
}
|
||||
else if(Message.YPos>Height-CHANNEL_LEFT-SLIDER_W/2){
|
||||
if(Slider->Top==Height-CHANNEL_LEFT - SLIDER_W)
|
||||
return;
|
||||
|
||||
Slider->Top = Height-CHANNEL_LEFT - SLIDER_W;
|
||||
|
||||
FPosition = FMin;
|
||||
}
|
||||
else{
|
||||
FPosition = FMax-(double)(Message.YPos - CHANNEL_LEFT - SLIDER_W/2)/(Height-2*CHANNEL_LEFT-SLIDER_W)*(FMax-FMin);
|
||||
|
||||
Slider->Top = Height-CHANNEL_LEFT-(double)(FPosition-FMin)*(Height-2*CHANNEL_LEFT-SLIDER_W)/(FMax-FMin)-SLIDER_W;
|
||||
}
|
||||
|
||||
if( oldPosition!=FPosition && FOnChange )
|
||||
FOnChange(this);
|
||||
}
|
||||
|
||||
void __fastcall TSkinTrackBar::WMSize(TWMSize &Message)
|
||||
{
|
||||
if(FOrientation){
|
||||
//确定横向滑块区域
|
||||
if( Width<PANEL_MIN_W )
|
||||
Width = PANEL_MIN_W; //20
|
||||
|
||||
if( Height<SLIDER_MIN_H )
|
||||
Height = SLIDER_MIN_H;
|
||||
|
||||
if( Height>=SLIDER_MAX_H ){
|
||||
Slider->Left = CHANNEL_LEFT+(double)(FPosition-FMin)* (Width-2*CHANNEL_LEFT-SLIDER_W)/(FMax-FMin);
|
||||
Slider->Top = Height/2-SLIDER_MAX_H/2;
|
||||
Slider->Width = SLIDER_W;
|
||||
Slider->Height = SLIDER_MAX_H;
|
||||
}
|
||||
else{
|
||||
Slider->Left = CHANNEL_LEFT+(double)(FPosition-FMin)*(Width-2*CHANNEL_LEFT-SLIDER_W)/(FMax-FMin);
|
||||
Slider->Top = 1;
|
||||
Slider->Width = SLIDER_W;
|
||||
Slider->Height = Height-2;
|
||||
}
|
||||
}
|
||||
else
|
||||
{
|
||||
//确定纵向滑块区域
|
||||
if( Height<PANEL_MIN_W )
|
||||
Height = PANEL_MIN_W; //20
|
||||
|
||||
if( Width<SLIDER_MIN_H )
|
||||
Width = SLIDER_MIN_H;
|
||||
|
||||
if( Width>=SLIDER_MAX_H ){
|
||||
Slider->Left = Width/2-SLIDER_MAX_H/2;
|
||||
Slider->Top = Height-CHANNEL_LEFT-(double)(FPosition-FMin)*(Height-2*CHANNEL_LEFT-SLIDER_W)/(FMax-FMin)-SLIDER_W;
|
||||
Slider->Width = SLIDER_MAX_H;
|
||||
Slider->Height = SLIDER_W;
|
||||
}
|
||||
else{
|
||||
Slider->Left = 1;
|
||||
Slider->Top = Height-CHANNEL_LEFT-(double)(FPosition-FMin)*(Height-2*CHANNEL_LEFT-SLIDER_W)/(FMax-FMin)-SLIDER_W;
|
||||
Slider->Width = Width-2;
|
||||
Slider->Height = SLIDER_W;
|
||||
}
|
||||
}
|
||||
}
|
||||
Reference in New Issue
Block a user