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

#include "actimg.h"

#pragma package(smart_init)

//---------------------------------------------------------------------------
// ValidCtrCheck is used to assure that the components created do not have
// any pure virtual functions.
//
static inline TActiveImage *ValidCtrCheck()
{
	return new TActiveImage(NULL);
}
//---------------------------------------------------------------------------
__fastcall TActiveImage::TActiveImage(TComponent* Owner)
//            : TGraphicControl(Owner)
: TButton(Owner)
{
	mcaptured = false;
    FGlyph = new Graphics::TCanvas;
    FGlyph->Brush->Color = clNone;
    FGlyph->Brush->Style = bsClear;
    FGlyph->CopyMode = cmSrcCopy;

    GlyphNormal = new Graphics::TPicture;
    GlyphOver   = new Graphics::TPicture;
    GlyphPress  = new Graphics::TPicture;

    vAutoSize = false;
}
//---------------------------------------------------------------------------
namespace Actimg
{
	void __fastcall PACKAGE Register()
	{
		TComponentClass classes[1] = {__classid(TActiveImage)};
		RegisterComponents("JD Soft.", classes, 0);
	}
}
//---------------------------------------------------------------------------
void __fastcall TActiveImage::CreateParams(TCreateParams &Params)
{
  TButton::CreateParams(Params); // La clase ascendente se ocupará de establecer los parámetros generales
//  Params.ExStyle = Params.ExStyle | WS_EX_TRANSPARENT;
  Params.Style = Params.Style | BS_OWNERDRAW;
  TButton::ControlStyle = TControlStyle();
}
//---------------------------------------------------------------------------
void __fastcall TActiveImage::CNMeasureItem(TWMMeasureItem& Mensaje)
{
   Mensaje.MeasureItemStruct->itemWidth = Width;
   Mensaje.MeasureItemStruct->itemHeight = Height;
}
//---------------------------------------------------------------------------
// Cada vez que haya que dibujar el control se llamará a este método
void __fastcall TActiveImage::CNDrawItem(TWMDrawItem& Mensaje)
{
   Graphics::TBitmap *Bitmap;

   Bitmap = GlyphNormal->Bitmap;

   if (Mensaje.DrawItemStruct->itemState & ODS_SELECTED) // El botón está pulsado
     Bitmap = GlyphPress->Bitmap;
   else
   // Si el botón está desactivado
   if (! Enabled )
     Bitmap = GlyphPress->Bitmap;
   else
   if ( mcaptured )
     Bitmap = GlyphOver->Bitmap;

   FGlyph->Handle = Mensaje.DrawItemStruct->hDC;

   FGlyph->BrushCopy( ClientRect, Bitmap, Rect( 0, 0, Bitmap->Width-1, Bitmap->Height-1 ), Bitmap->TransparentColor );

   // El Handle de FCanvas será el Hdc enviado en Mensaje.DrawItemStruct,
   // lo que nos permitirá dibujar en la superficie del botón
   FGlyph->Handle = 0;
}
//---------------------------------------------------------------------------
// Al cambiar el estado del botón
void __fastcall TActiveImage::SetButtonStyle(bool ADefault)
{
	Refresh(); // simplemente redibujar
}
//---------------------------------------------------------------------------
__fastcall TActiveImage::~TActiveImage()
{
	delete FGlyph;
	delete GlyphNormal;
	delete GlyphOver;
	delete GlyphPress;
}
//---------------------------------------------------------------------------
void __fastcall TActiveImage::MouseMove( Classes::TShiftState Shift, int X, int Y )
{
	if( ! mcaptured )
    {
        SetCapture( Handle );
		mcaptured = true;
        Refresh();
	}
	if( (X<0) || (Y<0) || (X>Width) || (Y>Height))
    {
        ReleaseCapture();
		mcaptured = false;
        Refresh();
	}else{
		TButton::MouseMove( Shift, X, Y );
	}
}
//---------------------------------------------------------------------------
void __fastcall TActiveImage::Click( void )
{
	TButton::Click();
	ReleaseCapture();
	mcaptured = false;
}
//---------------------------------------------------------------------------
void __fastcall TActiveImage::SetGlyphOver( Graphics::TPicture *val )
{
  GlyphOver -> Assign( val );
}
//---------------------------------------------------------------------------
void __fastcall TActiveImage::SetGlyphPress( Graphics::TPicture *val )
{
  GlyphPress -> Assign( val );
}
//---------------------------------------------------------------------------
void __fastcall TActiveImage::SetGlyphNormal( Graphics::TPicture *val )
{
  GlyphNormal -> Assign( val );
}
//---------------------------------------------------------------------------
void __fastcall TActiveImage::SetAutoSize( bool val )
{
 vAutoSize = val;
 // Facilitamos la anchura y altura del control
 if ( vAutoSize && ! GlyphNormal->Graphic->Empty )
 {
   Width = GlyphNormal->Width;
   Height = GlyphNormal->Height;
 }
}
//---------------------------------------------------------------------------