//---------------------------------------------------------------------------
#ifndef ympyra2H
#define ympyra2H
//---------------------------------------------------------------------------
#include <vcl\Classes.hpp>
#include <vcl\Controls.hpp>
#include <vcl\StdCtrls.hpp>
#include <vcl\Forms.hpp>
#include <vcl\ExtCtrls.hpp>

const int Ympyroita = 30;

//---------------------------------------------------------------------------
class TCircle : public TGraphicControl
{
	TPoint Fpt;
	int Fr;

public:
	__fastcall TCircle(TWinControl* AOwner, const TPoint &apt, int ar);
	virtual void __fastcall SetSize(void);
	virtual void __fastcall SetPt(const TPoint &npt);
	virtual void __fastcall SetR(int nr);
	virtual void __fastcall Paint(void);

public:
	__fastcall virtual ~TCircle(void) { }

__published:
//	__property TPoint pt = {read=Fpt, write=SetPt};
	__property int r = {read=Fr, write=SetR, nodefault};
};

//---------------------------------------------------------------------------
class TFormYmpyra : public TForm
{
__published:	// IDE-managed Components
	TPanel* PanelKuva;
	TTimer* TimerAutomaatti;
	TPanel* PanelNappulat;
	TButton* ButtonSeuraava;
	TCheckBox* CheckBoxAutomaatti;
        void __fastcall CheckBoxAutomaattiClick(TObject *Sender);
        void __fastcall TimerAutomaattiTimer(TObject *Sender);
        void __fastcall FormCreate(TObject *Sender);
        void __fastcall ButtonSeuraavaClick(TObject *Sender);
	void __fastcall Alku(void);
	void __fastcall Seuraava(void);
//	__property POINT pt = {read=Fpt, write=SetPt};
private:	// User declarations
	int askel;
	int r;
	TPoint dp;
	TPoint pt;
	TCircle* ympyrat[Ympyroita+1];
public:		// User declarations
        virtual __fastcall TFormYmpyra(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern TFormYmpyra* FormYmpyra;
//---------------------------------------------------------------------------
#endif