Лабы / Тельминов / набор_1 / лабы.3(1,2,3) / part2 / part2 / Unit1

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

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
  Timer1->Interval=100;
  Img->Canvas->Brush->Color=clWhite;
  Img->Canvas->FillRect(Rect(0,0,Img->Width,Img->Height));

  Img->Canvas->Brush->Color=clRed;
  Img->Canvas->Rectangle(Img->Width-30,
                         Img->Height/2 +30,
                         Img->Width-20,
                         Img->Height/2 +90);


  Ball=new CBall(Img);
  Doska= new CSupport(Img);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  Ball->v=StrToInt(Edit1->Text)-1;
  Doska->RotateToAngle(0);
  Ball->angle0=Doska->angle;
  Ball->angle=Doska->angle;
  Ball->MoveToAngle(0);
  Timer1->Enabled=1;
  Button2->Enabled=0;
  Button3->Enabled=0;

}
//---------------------------------------------------------------------------
void __fastcall TForm1::tick(TObject *Sender)
{
  try
  {
    Ball->Hide();
  //  Doska->Hide();
  //  Doska->RotateToAngle(0);
  //  Ball->MoveToAngle(0.5);
   }
   catch  (int d)
   {
     Timer1->Enabled=0;
     Timer2->Enabled=1;
   }

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

//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
   Doska->Hide();
   Doska->RotateToAngle(pi/10);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
   Doska->Hide();
   Doska->RotateToAngle(-pi/10);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer2Timer(TObject *Sender)
{
  try
  {
    Ball->Hide();
    Ball->t+=1;
    Ball->Fly(3,3);
    Doska->RotateToAngle(0);
  }
  catch (int d)
  {
    Timer2->Enabled=0;
    delete Ball;
    Ball= new CBall(Img);
  }  

}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormDelete(TObject *Sender)
{
  delete Ball;
  delete Doska;
}
//---------------------------------------------------------------------------