//--------------------------------------------------------------------------
//
//  (c) Igor Azarny 2001
//  azarny@hotmail.com azarny@rambler.ru
//
//--------------------------------------------------------------------------

#ifndef CircleButtonH
#define CircleButtonH
//--------------------------------------------------------------------------
#include <SysUtils.hpp>
#include <Controls.hpp>
#include <Classes.hpp>
#include <Forms.hpp>
#include <Buttons.hpp>
//--------------------------------------------------------------------------
class PACKAGE TCircleButton : public TSpeedButton
{
private:
    TColor FColor;
    virtual void __fastcall DrawRaised(int Normal=1,int Single=0);
    virtual void __fastcall DrawSmooth(int Normal=1);
    virtual void __fastcall DrawButtonText(void);
    void __fastcall SetColor(TColor value);
    TColor __fastcall GetColor();
protected:
    virtual void __fastcall Paint();
public:
    __fastcall TCircleButton(TComponent* Owner);
__published:
    __property TColor Color  = { read=GetColor, write=SetColor,
default=clBtnFace };
};
//--------------------------------------------------------------------------
#endif


//--------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "CircleButton.h"
#pragma package(smart_init)
//--------------------------------------------------------------------------
// ValidCtrCheck is used to assure that the components created do not have
// any pure virtual functions.
//

static inline void ValidCtrCheck(TCircleButton *)
{
    new TCircleButton(NULL);
}
//--------------------------------------------------------------------------
__fastcall TCircleButton::TCircleButton(TComponent* Owner)
    : TSpeedButton(Owner)
{
    FColor = clBtnFace;
    Transparent = false;
}
//--------------------------------------------------------------------------
void __fastcall TCircleButton::DrawSmooth(int Normal) {
    if (!Normal) DrawRaised (Normal);
    else DrawRaised (Normal,1);
}
//--------------------------------------------------------------------------
void __fastcall  TCircleButton::DrawRaised(int Normal,int Single) {
    if (!Transparent) {
        Canvas->Pen->Color = FColor;
        Canvas->Brush->Color = FColor;
        Canvas->Ellipse(1, 1, Width-1, Height-1);
    }

    if (Normal) Canvas->Pen->Color = clBtnShadow;
    else Canvas->Pen->Color = clBtnHighlight;

    Canvas->Pen->Width=(Single==1?1:2);
    Canvas->Arc(0, 0, Width, Height, 0, Height, Width, 0);

    if (Normal)  Canvas->Pen->Color = clBtnHighlight;
    else         Canvas->Pen->Color = clBtnShadow;

    Canvas->Pen->Width= (Single==1?1:2);
    Canvas->Arc(0, 0, Width, Height, Width, 0 ,0, Height);
}
//--------------------------------------------------------------------------
void __fastcall TCircleButton::DrawButtonText(void) {
    TRect TextBounds(0, 0, Width, Height);
    Canvas->Brush->Style = bsClear;
    if (Enabled) {
        if (FState==bsDown)
            OffsetRect(&TextBounds, 1, 1);
        DrawText(Canvas->Handle, Caption.c_str(), Caption.Length(),
&TextBounds,
            DT_SINGLELINE + DT_CENTER + DT_VCENTER /*| BiDiMode*/);
    } else {
        OffsetRect(&TextBounds, 1, 1);
        Canvas->Font->Color = clBtnHighlight;
        DrawText(Canvas->Handle, Caption.c_str(), Caption.Length(),
&TextBounds,
            DT_SINGLELINE + DT_CENTER + DT_VCENTER /*| BiDiMode*/);
        OffsetRect(&TextBounds, -1, -1);
        Canvas->Font->Color = clBtnShadow;
        DrawText(Canvas->Handle, Caption.c_str(), Caption.Length(),
&TextBounds,
            DT_SINGLELINE + DT_CENTER + DT_VCENTER /*| BiDiMode*/);
    }
}
//--------------------------------------------------------------------------
void __fastcall TCircleButton::Paint() {
    Canvas->Font = this->Font;
    Canvas->Brush->Color = Color;
    if (Enabled) {
        if (Flat) {
            if (MouseInControl) {
                DrawRaised(FState==bsDown?0:1);
            } else {
                DrawSmooth(FState==bsDown?0:1);
            }
        } else { // not flat
            DrawRaised(FState==bsDown?0:1);
        }
    } else { // disabled   TColor
        DrawRaised(1,1);
    }
    DrawButtonText();

}
//--------------------------------------------------------------------------
void __fastcall TCircleButton::SetColor(TColor value)
{
    if(FColor != value) {
        FColor = value;
    }
    Invalidate();
}
//--------------------------------------------------------------------------
TColor __fastcall TCircleButton::GetColor()
{
    return FColor;
}
//--------------------------------------------------------------------------
namespace Circlebutton
{
    void __fastcall PACKAGE Register()
    {
         TComponentClass classes[1] = {__classid(TCircleButton)};
         RegisterComponents("JT", classes, 0);
    }
}