Разобрать код

__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
        this->DoubleBuffered = true;
        Image1->Canvas->Brush->Color = Color;
        Image1->Canvas->FillRect(Image1->Canvas->ClipRect);
        Image1->Canvas->Ellipse(0,0,33,33);
        ScrollBar1Change(ScrollBar1);
        Button_ResetClick(Button_Reset);
}
 
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
        static int Angle;
        static double fOstDiffX = 0;
        static double fOstDiffY = 0;
 
        TTimer *timer = (TTimer*)Sender;
        if (timer->Tag == 1)
        {
         Angle = random(360);
         timer->Tag = 2;
        }
        int iSpeed = ScrollBar1->Position; // швидкість
        if (Image1->Left < 0)
        {
          if ( Angle > 90 && Angle <= 270)
         {
          Angle = 180 - Angle;
         }
        }
        else if ( Image1->Top < 0 )
        {
         if ( Angle >= 0 && Angle <= 180 )
         {
          Angle = 360 - Angle;
         }
        }
        else if ( Image1->Left + Image1->Width > Image1->Parent->ClientWidth )
        {
          if ( (Angle >= 0 && Angle <= 90) || (Angle > 270 && Angle <= 360) )
         {
          Angle = 180 - Angle;
         }
        }
        else if ( Image1->Top + Image1->Height > Image1->Parent->ClientHeight )
        {
         if ( (Angle > 180 && Angle <= 360) )
         {
           Angle = 360 - Angle;
         }
        }
        if (Angle < 0) Angle += 360;
         double fX = cos(Angle * M_PI / 180) * iSpeed + fOstDiffX;
         double fY = sin(Angle * M_PI / 180) * iSpeed + fOstDiffY;
          int iX = fX;
          int iY = fY;
         fOstDiffX = fX - iX;
         fOstDiffY = fY - iY;
          Image1->Left += iX;
          Image1->Top -= iY;
}
 
void __fastcall TForm1::ScrollBar1Change(TObject *Sender)
{
        TScrollBar *bar = (TScrollBar*)Sender;
        Edit_Speed->Text = AnsiString().sprintf("%d px", bar->Position);
}
 
void __fastcall TForm1::Button_ResetClick(TObject *Sender)
{
       randomize();
        Image1->Left = random(Image1->Parent->ClientWidth - Image1->Width);
        Image1->Top = random(Image1->Parent->ClientHeight - Image1->Height);
         Timer1->Enabled = false;
         Timer1->Tag = 1;
         Timer1->Enabled = true;
}