psbevel.h

用于开发Atmel的AVR系列单片机的GCC集成开发环境

//---------------------------------------------------------------------------
#ifndef PSBevelH
#define PSBevelH
//---------------------------------------------------------------------------
#include <vcl\SysUtils.hpp>
#include <vcl\Controls.hpp>
#include <vcl\Classes.hpp>
#include <vcl\Forms.hpp>
#pragma link "PSBevel"
//---------------------------------------------------------------------------

class TPSBevel : public TPersistent
{
private:
 TColor FHFromColor, FHToColor, FSFromColor, FSToColor;
 int FBevelWidth;
 Classes::TNotifyEvent FOnChange;

 void __fastcall SetHFromColor (TColor val);
 void __fastcall SetHToColor (TColor val);
 void __fastcall SetSFromColor (TColor val);
 void __fastcall SetSToColor (TColor val);
 void __fastcall SetBevelWidth (int val);
 void __fastcall Change (void);

protected:


public:
 __fastcall TPSBevel(void);
 void __fastcall DrawBevel (Graphics::TCanvas *can, TRect rect);
 
 
__published:
 __property TColor HFromColor = {read=FHFromColor, write=SetHFromColor, default=clWhite, stored=true};
 __property TColor HToColor = {read=FHToColor, write=SetHToColor, default=clSilver, stored=true};
 __property TColor SFromColor = {read=FSFromColor, write=SetSFromColor, default=(TColor)0x00444444, stored=true};
 __property TColor SToColor = {read=FSToColor, write=SetSToColor, default=(TColor)0x00888888, stored=true};
 __property int BevelWidth = {read=FBevelWidth, write=SetBevelWidth, default=16};
 __property Classes::TNotifyEvent OnChange = {read=FOnChange, write=FOnChange};
};
//---------------------------------------------------------------------------
#endif