Лабы / Тельминов / набор_3 / лаб3 / part1 / part1 / part1 / Unit1

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

#include <vcl.h>
#pragma hdrstop

#include <math.h>
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
  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;   
}
//---------------------------------------------------------------------------