495 lines
13 KiB
C++
495 lines
13 KiB
C++
//---------------------------------------------------------------------------
|
|
|
|
#include <vcl.h>
|
|
#pragma hdrstop
|
|
|
|
#pragma package(smart_init)
|
|
|
|
#include "TextButton.h"
|
|
|
|
////////////////////////////////////////////////////////////////////////////////////
|
|
#define PIXEL_EXTERNAL_FRAME 1 //外边界大小
|
|
#define PIXEL_INTERNAL_FARME 1 //内边界大小
|
|
#define PIXEL_INTERNAL_BOUND 1 //圆角大小
|
|
#define PIXLE_TEXT_LEFT_OFFSET 3 //文字左边偏移距离
|
|
#define PIXEL_TEXT_X Width - 2*PIXLE_TEXT_LEFT_OFFSET
|
|
|
|
static const COLORREF
|
|
CLR_TXT_NOR = RGB( 156, 170, 189 ),
|
|
CLR_TXT_HOT = RGB( 201, 214, 229 ),
|
|
CLR_TXT_DIS = RGB( 75, 77, 79 ),
|
|
|
|
clrFrameExBound = RGB(65,70,77),
|
|
|
|
clrFrameExNormal = RGB(125,128,131),
|
|
clrFrameExEnter = RGB(145,156,170),
|
|
clrFrameExDisable = RGB(109,114,120),
|
|
|
|
clrFrameBoundNormal = RGB(68,70,73),
|
|
clrFrameBoundEnter = RGB(70,72,76),
|
|
|
|
clrFrameNormal = RGB(44,46,48),
|
|
clrLineNormal = RGB(44,46,48),
|
|
|
|
clrRectNormal = RGB(74,80,88),
|
|
clrRectDisable = RGB(100,106,113),
|
|
|
|
//角从左到右，从上到下
|
|
|
|
clrCapArrowOpenBound[10]=
|
|
{ RGB(50,54,60),RGB(54,58,64),RGB(57,61,67),RGB(58,63,69),
|
|
RGB(58,63,69),RGB(62,67,74),RGB(64,69,76),
|
|
RGB(66,71,78),RGB(68,74,81),
|
|
RGB(71,77,85)},
|
|
|
|
clrCapArrowOpenLine[4] =
|
|
{ RGB(59,64,70),
|
|
RGB(65,70,77),
|
|
RGB(69,75,82),
|
|
RGB(73,78,86)},
|
|
clrExFrameBound[4] =
|
|
{ RGB(81,87,94),
|
|
RGB(94,100,107),
|
|
RGB(113,118,124),
|
|
RGB(126,130,136)
|
|
},
|
|
clrExFrameBoundDisable[4] =
|
|
{ RGB(77,83,91),
|
|
RGB(86,91,99),
|
|
RGB(98,103,110),
|
|
RGB(105,110,117)
|
|
};
|
|
//---------------------------------------------------------------------------
|
|
static inline void ValidCtrCheck(TTextButton *)
|
|
{
|
|
new TTextButton(NULL);
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
namespace Textbutton
|
|
{
|
|
void __fastcall PACKAGE Register()
|
|
{
|
|
TComponentClass classes[1] = {__classid(TTextButton)};
|
|
RegisterComponents(L"Samples", classes, 0);
|
|
}
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
__fastcall TTextButton::TTextButton(TComponent* Owner)
|
|
: TGraphicControl(Owner)
|
|
{
|
|
Height = 25; //a default Height
|
|
Width = 75; //a default Width
|
|
FStateCount = 4; //default state count
|
|
FDown = false;
|
|
ShowHint = true;
|
|
}
|
|
|
|
//---------------------------------------------------------------------------
|
|
__fastcall TTextButton::~TTextButton(void)
|
|
{
|
|
|
|
}
|
|
|
|
//---------------------------------------------------------------------------
|
|
void __fastcall TTextButton::Paint(void)
|
|
{
|
|
if( FDown ) EtatBtn = 2;
|
|
if( !Enabled ) EtatBtn = 3;
|
|
|
|
PaintCustomer();
|
|
}
|
|
|
|
//---------------------------------------------------------------------------
|
|
void __fastcall TTextButton::MouseDown(System::Uitypes::TMouseButton Button,
|
|
System::Classes::TShiftState Shift, int X, int Y)
|
|
{
|
|
TGraphicControl::MouseDown( Button, Shift, X, Y );
|
|
|
|
if( Button==mbLeft && Enabled && FStateCount>2){
|
|
EtatBtn = 2; // Pressed
|
|
|
|
Paint();
|
|
Refresh();
|
|
}
|
|
|
|
TCustomForm * parentForm = GetParentForm( this );
|
|
if( parentForm && parentForm==Application->MainForm ){
|
|
TPoint pt(X,Y);
|
|
pt = ClientToParent( pt, parentForm );
|
|
Application->MainForm->OnMouseDown( NULL, Button, Shift, pt.X, pt.Y );
|
|
}
|
|
}
|
|
|
|
//---------------------------------------------------------------------------
|
|
void __fastcall TTextButton::MouseUp(System::Uitypes::TMouseButton Button,
|
|
System::Classes::TShiftState Shift, int X, int Y)
|
|
{
|
|
TGraphicControl::MouseUp( Button, Shift, X, Y );
|
|
|
|
if( Button==mbLeft && Enabled ){
|
|
if( X>=0 && X<Width && Y>=0 && Y<Height )
|
|
EtatBtn = 1; //Mouse Entered
|
|
else
|
|
EtatBtn = 0; //normal;
|
|
|
|
Paint();
|
|
Refresh(); //repaint component
|
|
}
|
|
}
|
|
|
|
//---------------------------------------------------------------------------
|
|
void __fastcall TTextButton::CMMouseEnter(Winapi::Messages::TMessage &Msg)
|
|
{
|
|
if( Enabled && !ComponentState.Contains(csDesigning) ){
|
|
EtatBtn = 1; // Mouse Entered
|
|
|
|
Paint();
|
|
Refresh(); //repainting the component
|
|
}
|
|
|
|
if( FOnMouseEnter )
|
|
FOnMouseEnter(this); //if user set a mouse enter procedure then we execute it
|
|
|
|
}
|
|
|
|
//---------------------------------------------------------------------------
|
|
void __fastcall TTextButton::CMMouseLeave(Winapi::Messages::TMessage &Msg)
|
|
{
|
|
if( Enabled && !ComponentState.Contains(csDesigning) ) {
|
|
EtatBtn = 0; //Normal
|
|
|
|
Paint();
|
|
Refresh(); //repainting the component
|
|
}
|
|
|
|
if( FOnMouseLeave )
|
|
FOnMouseLeave(this); //if user set a mouse leave procedure then we execute it
|
|
}
|
|
|
|
//---------------------------------------------------------------------------
|
|
void __fastcall TTextButton::Click(void)
|
|
{
|
|
TCustomForm * parentForm = GetParentForm( this );
|
|
if( parentForm ){
|
|
parentForm->ModalResult = FModalResult;
|
|
}
|
|
|
|
TGraphicControl::Click();
|
|
}
|
|
|
|
//---------------------------------------------------------------------------
|
|
void __fastcall TTextButton::SetEnabled(bool Value)
|
|
{
|
|
if(FStateCount<4) //can't be disable
|
|
Value = true;
|
|
|
|
TGraphicControl::SetEnabled(Value);
|
|
|
|
if( Enabled )
|
|
EtatBtn = 0;
|
|
else
|
|
EtatBtn = 3;
|
|
|
|
Paint();
|
|
}
|
|
|
|
//---------------------------------------------------------------------------
|
|
void __fastcall TTextButton::SetStateCount( int count )
|
|
{
|
|
if( count>4 ) count = 4;
|
|
if( count<2 ) count = 2;
|
|
|
|
FStateCount = count;
|
|
}
|
|
|
|
//---------------------------------------------------------------------------
|
|
void __fastcall TTextButton::SetDown(bool value)
|
|
{
|
|
if( FStateCount<3 )
|
|
value = false;
|
|
|
|
FDown = value;
|
|
if( FDown==False )
|
|
EtatBtn = 0; //is the mouse down is false then we reset the component state to normal
|
|
|
|
Paint();
|
|
Refresh(); //we repaint the componet)
|
|
}
|
|
|
|
//---------------------------------------------------------------------------
|
|
void __fastcall TTextButton::SetFontSize( int value )
|
|
{
|
|
Canvas->Font->Size = value;
|
|
Paint();
|
|
Refresh();
|
|
}
|
|
|
|
//---------------------------------------------------------------------------
|
|
void __fastcall TTextButton::SetFontName(System::Uitypes::TFontName value)
|
|
{
|
|
Canvas->Font->Name = value;
|
|
Paint();
|
|
Refresh();
|
|
}
|
|
|
|
//---------------------------------------------------------------------------
|
|
void __fastcall TTextButton::SetTextFont(String name, int size)
|
|
{
|
|
Canvas->Font->Name = name;
|
|
Canvas->Font->Size = size;
|
|
Paint();
|
|
Refresh();
|
|
}
|
|
|
|
//---------------------------------------------------------------------------
|
|
void __fastcall TTextButton::PaintCustomer(void)
|
|
{
|
|
TRect rectDraw = GetClientRect();
|
|
TRect tmpRet = rectDraw;
|
|
|
|
//================画外边框
|
|
if(EtatBtn == 0){
|
|
Canvas->Brush->Color = clrFrameExNormal;
|
|
Canvas->Pen->Color = clrFrameExNormal;
|
|
}else if(EtatBtn == 3){
|
|
Canvas->Brush->Color = clrFrameExDisable;
|
|
Canvas->Pen->Color = clrFrameExDisable;
|
|
}else {
|
|
Canvas->Brush->Color = clrFrameExEnter;
|
|
Canvas->Pen->Color = clrFrameExEnter;
|
|
}
|
|
|
|
|
|
int X,Y;
|
|
//上
|
|
Y = 0;
|
|
X = PIXEL_EXTERNAL_FRAME ;
|
|
Canvas->MoveTo( X, Y );
|
|
X = Width - PIXEL_EXTERNAL_FRAME ;
|
|
Canvas->LineTo( X, Y );
|
|
//下
|
|
Y = Height - PIXEL_EXTERNAL_FRAME ;
|
|
X = PIXEL_EXTERNAL_FRAME ;
|
|
Canvas->MoveTo( X, Y );
|
|
X = Width - PIXEL_EXTERNAL_FRAME ;
|
|
Canvas->LineTo( X, Y );
|
|
//左
|
|
X = 0 ;
|
|
Y = PIXEL_EXTERNAL_FRAME ;
|
|
Canvas->MoveTo( X, Y );
|
|
Y = Height - PIXEL_EXTERNAL_FRAME ;
|
|
Canvas->LineTo( X, Y );
|
|
//右
|
|
X = Width - PIXEL_EXTERNAL_FRAME ;
|
|
Y = PIXEL_EXTERNAL_FRAME ;
|
|
Canvas->MoveTo( X, Y );
|
|
Y = Height - PIXEL_EXTERNAL_FRAME ;
|
|
Canvas->LineTo( X, Y );
|
|
|
|
//画外边框圆角
|
|
int iLPixl, iTPixl, iRPixl, iBPixl ;
|
|
TRect tmpRetPic = rectDraw; //画内部区域渐变图像
|
|
int iDistant = 1; //画点right和bottom - 1
|
|
for(int i=0;i<4;i++)
|
|
{
|
|
//角 4*4 上左右 下左右
|
|
iLPixl = tmpRetPic.Left + i;
|
|
iTPixl = tmpRetPic.Top;
|
|
iRPixl = tmpRetPic.Right - i - iDistant;
|
|
iBPixl = tmpRetPic.Bottom - iDistant;
|
|
|
|
if(EtatBtn == 3)
|
|
Canvas->Pen->Color = clrExFrameBoundDisable[i];
|
|
else
|
|
Canvas->Pen->Color = clrExFrameBound[i];
|
|
Canvas->Pixels[iLPixl][iTPixl] = Canvas->Pen->Color;
|
|
Canvas->Pixels[iRPixl][iTPixl] = Canvas->Pen->Color;
|
|
Canvas->Pixels[iLPixl][iBPixl] = Canvas->Pen->Color;
|
|
Canvas->Pixels[iRPixl][iBPixl] = Canvas->Pen->Color;
|
|
|
|
if(i>0){ //每个角对称
|
|
iLPixl = tmpRetPic.Left;
|
|
iTPixl = tmpRetPic.Top + i;
|
|
iRPixl = tmpRetPic.Right - iDistant;
|
|
iBPixl = tmpRetPic.Bottom - i - iDistant;
|
|
Canvas->Pixels[iLPixl][iTPixl] = Canvas->Pen->Color;
|
|
Canvas->Pixels[iRPixl][iTPixl] = Canvas->Pen->Color;
|
|
Canvas->Pixels[iLPixl][iBPixl] = Canvas->Pen->Color;
|
|
Canvas->Pixels[iRPixl][iBPixl] = Canvas->Pen->Color;
|
|
}
|
|
}
|
|
|
|
//=================画内边框
|
|
|
|
//画圆角
|
|
if(EtatBtn == 0) Canvas->Pen->Color = clrFrameBoundNormal;
|
|
else Canvas->Pen->Color = clrFrameBoundEnter;
|
|
|
|
|
|
tmpRet.Top = PIXEL_EXTERNAL_FRAME;
|
|
|
|
tmpRet.left = PIXEL_EXTERNAL_FRAME;
|
|
Canvas->Pixels[tmpRet.left][tmpRet.top] = Canvas->Pen->Color;
|
|
|
|
tmpRet.left = Width - PIXEL_EXTERNAL_FRAME - PIXEL_INTERNAL_FARME;
|
|
Canvas->Pixels[tmpRet.left][tmpRet.top] = Canvas->Pen->Color;
|
|
|
|
//////////////
|
|
tmpRet.Top = Height - PIXEL_EXTERNAL_FRAME - PIXEL_INTERNAL_FARME;
|
|
|
|
tmpRet.left = PIXEL_EXTERNAL_FRAME;
|
|
Canvas->Pixels[tmpRet.left][tmpRet.top] = Canvas->Pen->Color;
|
|
|
|
tmpRet.left = Width - PIXEL_EXTERNAL_FRAME - PIXEL_INTERNAL_FARME;
|
|
Canvas->Pixels[tmpRet.left][tmpRet.top] = Canvas->Pen->Color;
|
|
|
|
//画线
|
|
Canvas->Pen->Color = clrFrameNormal;
|
|
|
|
// int X,Y;
|
|
//上
|
|
Y = PIXEL_EXTERNAL_FRAME;
|
|
X = PIXEL_EXTERNAL_FRAME + PIXEL_INTERNAL_FARME;
|
|
Canvas->MoveTo( X, Y );
|
|
X = Width - PIXEL_EXTERNAL_FRAME - PIXEL_INTERNAL_FARME;
|
|
Canvas->LineTo( X, Y );
|
|
//下
|
|
Y = Height - PIXEL_EXTERNAL_FRAME - PIXEL_INTERNAL_FARME;
|
|
X = PIXEL_EXTERNAL_FRAME + PIXEL_INTERNAL_FARME;
|
|
Canvas->MoveTo( X, Y );
|
|
X = Width - PIXEL_EXTERNAL_FRAME - PIXEL_INTERNAL_FARME;
|
|
Canvas->LineTo( X, Y );
|
|
//左
|
|
X = PIXEL_EXTERNAL_FRAME ;
|
|
Y = PIXEL_EXTERNAL_FRAME + PIXEL_INTERNAL_FARME;
|
|
Canvas->MoveTo( X, Y );
|
|
Y = Height - PIXEL_EXTERNAL_FRAME - PIXEL_INTERNAL_FARME;
|
|
Canvas->LineTo( X, Y );
|
|
//右
|
|
X = Width - PIXEL_EXTERNAL_FRAME - PIXEL_INTERNAL_FARME;
|
|
Y = PIXEL_EXTERNAL_FRAME + PIXEL_INTERNAL_FARME;
|
|
Canvas->MoveTo( X, Y );
|
|
Y = Height - PIXEL_EXTERNAL_FRAME - PIXEL_INTERNAL_FARME;
|
|
Canvas->LineTo( X, Y );
|
|
|
|
//==============画内部区域
|
|
if(3 == EtatBtn){
|
|
Canvas->Brush->Color = clrRectDisable;
|
|
Canvas->Pen->Color = clrRectDisable;
|
|
}else{
|
|
Canvas->Brush->Color = clrRectNormal;
|
|
Canvas->Pen->Color = clrRectNormal;
|
|
}
|
|
|
|
tmpRet.Left = PIXEL_EXTERNAL_FRAME + PIXEL_INTERNAL_FARME;
|
|
tmpRet.Top = PIXEL_EXTERNAL_FRAME + PIXEL_INTERNAL_FARME;
|
|
tmpRet.Right = Width - tmpRet.Left;
|
|
tmpRet.Bottom = Height - tmpRet.Top;
|
|
|
|
Canvas->Rectangle(tmpRet.Left, tmpRet.Top,
|
|
tmpRet.Right, tmpRet.Bottom);
|
|
if(3 != EtatBtn)
|
|
{
|
|
if(2 == EtatBtn) // down
|
|
{
|
|
tmpRetPic = rectDraw; //画内部区域渐变图像
|
|
iDistant = PIXEL_EXTERNAL_FRAME + PIXEL_INTERNAL_FARME;
|
|
tmpRetPic.Left += iDistant;
|
|
tmpRetPic.Top += iDistant;
|
|
tmpRetPic.Right -= iDistant;
|
|
tmpRetPic.Bottom -= iDistant;
|
|
|
|
iDistant = 1; //画点right和bottom - 1
|
|
|
|
int iTmpAdd = 0;//clrCapArrowOpenBound 当前位置
|
|
for(int i=0; i<4; i++)
|
|
{
|
|
//边线
|
|
Canvas->Brush->Color = clrCapArrowOpenLine[i];
|
|
Canvas->FrameRect(tmpRetPic);
|
|
|
|
int iadd = 0;//clrCapArrowOpenBound 当前位置增加
|
|
for(int j=0; j<4-i; j++) {
|
|
|
|
//角 4*4 上左右 下左右
|
|
iLPixl = tmpRetPic.Left + j;
|
|
iTPixl = tmpRetPic.Top;
|
|
iRPixl = tmpRetPic.Right - j - iDistant;
|
|
iBPixl = tmpRetPic.Bottom - iDistant;
|
|
|
|
Canvas->Pen->Color = clrCapArrowOpenBound[iTmpAdd+j];
|
|
Canvas->Pixels[iLPixl][iTPixl] = Canvas->Pen->Color;
|
|
Canvas->Pixels[iRPixl][iTPixl] = Canvas->Pen->Color;
|
|
Canvas->Pixels[iLPixl][iBPixl] = Canvas->Pen->Color;
|
|
Canvas->Pixels[iRPixl][iBPixl] = Canvas->Pen->Color;
|
|
|
|
if(j>0){ //每个角对称
|
|
iLPixl = tmpRetPic.Left;
|
|
iTPixl = tmpRetPic.Top + j;
|
|
iRPixl = tmpRetPic.Right - iDistant;
|
|
iBPixl = tmpRetPic.Bottom - j - iDistant;
|
|
Canvas->Pixels[iLPixl][iTPixl] = Canvas->Pen->Color;
|
|
Canvas->Pixels[iRPixl][iTPixl] = Canvas->Pen->Color;
|
|
Canvas->Pixels[iLPixl][iBPixl] = Canvas->Pen->Color;
|
|
Canvas->Pixels[iRPixl][iBPixl] = Canvas->Pen->Color;
|
|
}
|
|
|
|
iadd++;
|
|
}
|
|
|
|
iTmpAdd += iadd;
|
|
|
|
tmpRetPic.Left += iDistant;
|
|
tmpRetPic.Top += iDistant;
|
|
tmpRetPic.Right -= iDistant;
|
|
tmpRetPic.Bottom -= iDistant;
|
|
}
|
|
}
|
|
}
|
|
|
|
PaintCustomerText();
|
|
}
|
|
|
|
//---------------------------------------------------------------------------
|
|
void __fastcall TTextButton::PaintCustomerText(void)
|
|
{
|
|
int X,Y;
|
|
if( !Text.IsEmpty() ){
|
|
if( EtatBtn==0 ){
|
|
Canvas->Font->Color = CLR_TXT_NOR;
|
|
}
|
|
else if( EtatBtn==3 ){
|
|
Canvas->Font->Color = CLR_TXT_DIS;
|
|
}
|
|
else{
|
|
Canvas->Font->Color = CLR_TXT_HOT;
|
|
}
|
|
|
|
Canvas->Brush->Style = bsClear;
|
|
String strText = FText;
|
|
TSize size = Canvas->TextExtent( strText );
|
|
int nLen = strText.Length();
|
|
|
|
if( size.Width > PIXEL_TEXT_X)
|
|
{
|
|
nLen = nLen*(PIXEL_TEXT_X)/size.Width;
|
|
nLen -= 1;
|
|
|
|
if(nLen <= 0){
|
|
strText = strText.SubString(0, 1);
|
|
}else{
|
|
strText = strText.SubString(0, nLen);
|
|
strText += "..";
|
|
}
|
|
|
|
size = Canvas->TextExtent( strText );
|
|
}
|
|
|
|
X = PIXLE_TEXT_LEFT_OFFSET + ( PIXEL_TEXT_X - size.Width )/2;
|
|
Y = ( Height -size.Height )/2;
|
|
|
|
Canvas->TextOut( X, Y, strText );
|
|
}
|
|
}
|
|
//---------------------------------------------------------------------------
|