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

#include "ympyra1.h"
//---------------------------------------------------------------------------
#pragma resource "*.dfm"
TFormYmpyra *FormYmpyra;

//---------------------------------------------------------------------------
void ympyra(TCanvas *dc, const TPoint &kp, int r)
{
  dc->Brush->Style = bsClear;
  dc->Ellipse(kp.x-r,kp.y-r,kp.x+r,kp.y+r);
}

//---------------------------------------------------------------------------
void __fastcall TFormYmpyra::Alku(void)
{
  pt.x = 30; pt.y = 100; r = 40;
}

//---------------------------------------------------------------------------
void __fastcall TFormYmpyra::Seuraava(void)
{
  ympyra(Kuva->Canvas,pt,r);
  pt.x = pt.x + 10;
}

//---------------------------------------------------------------------------
__fastcall TFormYmpyra::TFormYmpyra(TComponent* Owner)
        : TForm(Owner)
{
  Alku();
  askel = 0;
}

//---------------------------------------------------------------------------
void __fastcall TFormYmpyra::ButtonSeuraavaClick(TObject *Sender)
{
  Seuraava();
  askel++;
}
//---------------------------------------------------------------------
void __fastcall TFormYmpyra::KuvaPaint(TObject *Sender)
{
  Alku();
  for (int i=0; i<askel; i++) Seuraava();        
}
//---------------------------------------------------------------------