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

//---------------------------------------------------------------------------
                            //Лабораторная Работа №3.1
#include <vcl.h>            //Барыкин А. В. МП-21
#pragma hdrstop

#include <math.h>
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)  //Начальные установки
        : TForm(Owner)                        //таймер выкл.,цвет Img белый
{
   Timer1->Enabled=0;
   Img->Canvas->Brush->Color=clWhite;
   Img->Canvas->FillRect(Rect(0, 0, Img->Width, Img->Height));

   pic1 = new pict(Img);   //Создание и инициализация объекта
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
   pic1->a=(TrackBar1->Position); //Задание радиуса шара

   Timer1->Enabled=1;
   Timer1->Interval=100;
   pic1->RotateToAngle(0);

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

void __fastcall TForm1::tick(TObject *Sender)
{
   pic1->a=TrackBar1->Position;
   pic1->Hide();
   pic1->RotateToAngle(0.1);

}
//---------------------------------------------------------------------------
void __fastcall TForm1::track1change(TObject *Sender)
{
   pic1->Hide();
  // pic1->RotateToAngle(0);

}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormDestroy(TObject *Sender)
{

   delete pic1;        //Уничтожение при закрытии

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