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

#include <vcl.h>
#pragma hdrstop

#include "Splat1Unit1.h"
#include "About.h"
#include "Dialouge.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TfrmSplat1 *frmSplat1;
//---------------------------------------------------------------------------
__fastcall TfrmSplat1::TfrmSplat1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TfrmSplat1::tmrMoveShapeTimer(TObject *Sender)
{
TShape* shp;

     int count;
     count = 0;
     while (pnlSplat->ControlCount>count)
     {
     shp =(TShape*)pnlSplat->Controls[count];
     shp->Left = rand()% 600;
     shp->Top = rand()% 290;
     count = count + 1;
     shp->Enabled = true;
     }


}
//---------------------------------------------------------------------------
void __fastcall TfrmSplat1::shpdown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
int count;
count=0;
while (pnlSplat->ControlCount > count)
{
TShape * shpCurrent;
shpCurrent = (TShape*)pnlSplat->Controls[count];
if (shpCurrent->Brush->Color == shp->Brush->Color)
{
 X > shp->Width/3 && X < shp->Width/3*2 && Y > shp->Height/3 && Y< shp->Height/3*2;
 edtScore->Text=StrToInt(edtScore->Text)+3;
 }
  else
  {edtScore->Text=StrToInt(edtScore->Text)+1;
  }
  tmrMoveShape->Enabled = false;
  shp->Enabled = false;
  shp->Width =(shp->Width + (shp->Width / 3));
  shp->Height = shp->Height / 3;
  lblSplat->Visible = true;
  tmrSplatShape->Enabled = true;
  if (StrToInt(edtMove->Text)<=3)
  { edtScore->Text=StrToInt(edtScore->Text)+3;
  }
  else
  {edtScore->Text=StrToInt(edtScore->Text)+1;;

  }
   int disable;
     disable = 0;
     while (pnlSplat->ControlCount>disable)
     {
     TShape* RandomShape;
     RandomShape =(TShape*)pnlSplat->Controls[disable];
     RandomShape->Enabled= False;
     disable = disable + 1;
     }
     }






}
//---------------------------------------------------------------------------
void __fastcall TfrmSplat1::tmrSplatShapeTimer(TObject *Sender)
{

  shp = new TShape(this);
  shp->Parent = pnlSplat;
  tmrSplatShape->Enabled = false;
  shp->Height = shp->Height * 3;
  shp->Width = shp->Height;
  lblSplat->Visible = false;
  tmrMoveShape->Enabled = true;
  edtMove->Text = 0;
  edtScore->Text = 0;

}
//---------------------------------------------------------------------------
void __fastcall TfrmSplat1::Exit1Click(TObject *Sender)
{
frmSplat1->Close();
}

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




void __fastcall TfrmSplat1::About1Click(TObject *Sender)
{
AboutBox->ShowModal();
}
//---------------------------------------------------------------------------


void __fastcall TfrmSplat1::Settings1Click(TObject *Sender)
{
   TShape* shp;
  frmSettings->tkbTimer->Position = tmrMoveShape->Interval;
  frmSettings->tkbSize->Position = shp->Width;
  if (frmSettings->ShowModal() == mrOk)
  {
    tmrMoveShape->Interval = frmSettings->tkbTimer->Position;
    shp->Width = frmSettings->tkbSize->Position;
    shp->Height = frmSettings->tkbSize->Position;
  }

}
//---------------------------------------------------------------------------


void __fastcall TfrmSplat1::tmrAddTimer(TObject *Sender)
{
TShape* RandomShape;
 RandomShape = new TShape(this);
  RandomShape->Parent = pnlSplat;

  RandomShape->Shape = stCircle;
  RandomShape->Left = rand()% 600;
  RandomShape->Top = rand()% 290;

  switch(rand() % 4)
   {

   case 0 : RandomShape->Brush->Color= clRed;
   break;
   case 1 : RandomShape->Brush->Color= clYellow;
   break;
   case 2 : RandomShape->Brush->Color= clBlue;
   break;
   case 3 : RandomShape->Brush->Color= clGreen;
   break;
 }

}
//---------------------------------------------------------------------------