bitbox.h

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

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

#ifndef BitBoxH
#define BitBoxH
//---------------------------------------------------------------------------
#include <SysUtils.hpp>
#include <Controls.hpp>
#include <Classes.hpp>
#include <Forms.hpp>
//---------------------------------------------------------------------------
class PACKAGE TBitBox : public TCustomControl
{
private:
  bool FState;
  bool FHasFocus;
  TColor FOnColor, FOffColor;
  AnsiString FCaption;

  void __fastcall SetState (bool st);
  void __fastcall SetOnColor (TColor col);
  void __fastcall SetOffColor (TColor col);
  void __fastcall SetCaption (AnsiString cap);
  MESSAGE void __fastcall WMSetFocus(TWMSetFocus &Message);
  MESSAGE void __fastcall WMKillFocus(TWMKillFocus &Message);
  TNotifyEvent FOnChange;

protected:
  void __fastcall Paint (void);
  DYNAMIC void __fastcall Click(void);
  DYNAMIC void __fastcall DblClick(void);
  DYNAMIC void __fastcall KeyPress(char &Key);
  void __fastcall SetName(const AnsiString Value);
  void __fastcall SetEnabled(bool Value);

  BEGIN_MESSAGE_MAP
  VCL_MESSAGE_HANDLER(WM_SETFOCUS, TWMSetFocus, WMSetFocus);
  VCL_MESSAGE_HANDLER(WM_KILLFOCUS, TWMKillFocus, WMKillFocus);
  END_MESSAGE_MAP(TCustomControl);

public:
  __fastcall TBitBox(TComponent* Owner);

__published:
  __property bool State = {read=FState, write=SetState, default=false};
  __property AnsiString Caption = {read=FCaption, write=SetCaption};
  __property TNotifyEvent OnChange = {read=FOnChange, write=FOnChange};
  __property TColor OnColor = {read=FOnColor, write=SetOnColor, default=clLime};
  __property TColor OffColor = {read=FOffColor, write=SetOffColor, default=clRed};
  __property Font;
  __property OnClick;
  __property TabStop;
  __property TabOrder;
  __property Enabled;
  __property Visible;

};
//---------------------------------------------------------------------------
#endif