Добавил:
korayakov
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:
//---------------------------------------------------------------------------
#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);
}
//---------------------------------------------------------------------------
Соседние файлы в папке part1_1