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

#include "TPTest.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(TPTest *)
{
  new TPTest(NULL);
}
//---------------------------------------------------------------------------
__fastcall TPTest::TPTest(TComponent* Owner)
  : TCustomControl(Owner)
{
  ControlStyle.Clear();
  ControlStyle = ControlStyle << csClickEvents << csSetCaption << csDoubleClicks << csFixedHeight;
  Height = 25;
  Width = 121;
  TabStop = true;
  ParentColor = false;
//  FBorderStyle = bsSingle;
//  FAutoSize = true;
//  FAutoSelect = true;
//  FHideSelection = true;
}
//---------------------------------------------------------------------------
namespace Tptest
{
  void __fastcall PACKAGE Register()
  {
    TComponentClass classes[1] = {__classid(TPTest)};
    RegisterComponents("Texpia", classes, 0);
  }
}
//---------------------------------------------------------------------------