#include <vcl.h>
#pragma hdrstop
       
#include "Unit2.h"
#include <math.h>
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm2 *Form2;
Graphics::TBitmap *Dude;
int x=225,y=85;  // Координаты нашего обьекта
Graphics::TBitmap *bb;
int b=5,c=85;
Graphics::TBitmap* dump=new Graphics::TBitmap;
int AnimStep=1; //Кадр анимации
String Anim="n";
int Where=0;
//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
           : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm2::FormKeyDown(TObject *Sender, WORD &Key, TShiftState Shift)
       
{
if( Key == VK_LEFT) Where=1;
if( Key == VK_RIGHT) Where=3;
if( Key == VK_UP) Where=5;
if( Key == VK_DOWN) Where=2;
}
//---------------------------------------------------------------------------
void __fastcall TForm2::FormCreate(TObject *Sender)
{
     Dude=new Graphics::TBitmap;
     Dude->LoadFromFile("n1.bmp");
      Dude->Transparent=true;
     bb=new Graphics::TBitmap;
      bb->LoadFromFile("n1.bmp");
      bb->Transparent=true;
       
      dump->Width=Width;
      dump->Height=Height;
      dump->Canvas->FillRect(Rect(0,0,dump->Width,dump->Height));
}
//---------------------------------------------------------------------------
       
void __fastcall TForm2::FormKeyUp(TObject *Sender, WORD &Key, TShiftState Shift)
{
Where=0;
Dude->LoadFromFile("n1.bmp");           //Загружаем кадр "простоя" обьекта
}
//---------------------------------------------------------------------------
       
       
       
void __fastcall TForm2::Timer1Timer(TObject *Sender)
{
if( Where !=0 )     //Если задано направление
     {
       
     if( Where==3)             //Если задано движение вправо
     {             // Устанавливаем соответствующие имя  анимации
     for(int i=1;i<11;i++)      // Запускаем цикл, в каждом новом шаге которого будет рисовать новый кадр анимации
                      {
                      // Делаем это для небольших пауз между кадрами
       
                     Application->ProcessMessages();       // Ммм... приводим приложение в чувство, чтобы оно могла перерисоваться
                      // Собственно, перерисовываем форму, стирая тем самым старый кадр анимации
                     Dude->LoadFromFile("n"+String(i)+".bmp");       //Загружаем новый кадр анимации под номером i
                            Canvas->Draw(x,y,Dude);
                      x+=5;
                      dump->Canvas->FillRect(Rect(0,0,dump->Width,dump->Height));
                      dump->Canvas->Draw(x,y,Dude);
                      dump->Canvas->Draw(b,c,bb);              //Выводим на форму
                      Canvas->Draw(0,0,dump);       // Делаем это для небольших пауз между кадрам
                      }                   //Увеличиваем положение по x-координата не 5
     }
                   if( Where==1){
     for(int i=1;i<11;i++)      // Запускаем цикл, в каждом новом шаге которого будет рисовать новый кадр анимации
                      {
                      // Делаем это для небольших пауз между кадрами
       
                     Application->ProcessMessages();       // Ммм... приводим приложение в чувство, чтобы оно могла перерисоваться
                      // Собственно, перерисовываем форму, стирая тем самым старый кадр анимации
                     Dude->LoadFromFile("n"+String(i)+".bmp");       //Загружаем новый кадр анимации под номером i
                            Canvas->Draw(x,y,Dude);
                      x-=5;
                      dump->Canvas->FillRect(Rect(0,0,dump->Width,dump->Height));
                      dump->Canvas->Draw(x,y,Dude);
                      dump->Canvas->Draw(b,c,bb);              //Выводим на форму
                      Canvas->Draw(0,0,dump);       // Делаем это для небольших пауз между кадрам
                      }
     }
       
     if (x<b+65) {
     x = b + 65;
     for(int i=1;i<33;i++)      // Запускаем цикл, в каждом новом шаге которого будет рисовать новый кадр анимации
                      {
                      b-=1;
                      dump->Canvas->FillRect(Rect(0,0,dump->Width,dump->Height));
                      dump->Canvas->Draw(x,y,Dude);
                      dump->Canvas->Draw(b,c,bb);              //Выводим на форму
                      Canvas->Draw(0,0,dump);
                      }
     }
           if( Where==5)           //Вверх
     {
     y-=5;
     }
           if( Where==2)           //Вниз
     {
     y+=5;
     }
       
    }
             dump->Canvas->FillRect(Rect(0,0,dump->Width,dump->Height));
                      dump->Canvas->Draw(x,y,Dude);
                      dump->Canvas->Draw(b,c,bb);              //Выводим на форму
                      Canvas->Draw(0,0,dump);
}