Анимированное изображение в RAD Studio 2010

MediaPlayer1->Canvas->...
Edit1->Canvas->...
Button1->Canvas->...
Image1->Canvas->...//и т.д.

 #include <vcl.h>
  Graphics::TBitmap * myPicture;

myPicture = new Graphics::TBitmap();

myPicture->LoadFromFile("C:/pic01.bmp");

void __fastcall TForm1::FormMouseMove(TObject *Sender, TShiftState Shift, int X, int Y) 
{
  Form1->Canvas->Draw(X,Y,myPicture); //В качестве положения верхнего левого угла картинки, используется положение курсора
}

//Unit1.h
...
Graphics::TBitmap * myBuffer;
...
 
//Unit1.cpp
...
myBuffer = new Graphics::TBitmap();
/*Так как конкретная картинка с диска(накопителя) компьютера не 
понадобится, нужно вручную сообщить каких размеров холст нужен
Для этого используем размеры формы*/
myBuffer->Height=Form1->Height; //высота
myBuffer->Width=Form1->Width;   //ширина
...

void __fastcall TForm1::FormMouseMove(TObject *Sender, TShiftState Shift, int X, int Y)
{
  myBuffer->Canvas->FillRect(TRect(0,0,Form1->Width,Form1->Height));
  myBuffer->Canvas->Draw(X,Y,myPicture);
  Form1->Canvas->Draw(0,0,myBuffer);
}

#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
Graphics::TBitmap *myBuffer;
Graphics::TBitmap *myPicture;
myBuffer = new Graphics::TBitmap();
myPicture = new Graphics::TBitmap();
myPicture->LoadFromFile("C:\\1.bmp");
myBuffer->Height->Form1->Height;
myBuffer->Width=Form1->Width;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormMouseMove(TObject *Sender, TShiftState Shift, int X, int Y)
 
{
        myBuffer->Canvas->FillRect(0,0,Form1->Width, Form1->Height);
        myBuffer->Canvas->Draw(X,Y, myPicture);
        Form1->Canvas->Draw(0,0,myBuffer);
}

[BCC32 Error] Unit1.cpp(11): E2303 Type name expected
[BCC32 Error] Unit1.cpp(11): E2238 Multiple declaration for 'myBuffer'
[BCC32 Error] Unit1.cpp(9): E2344 Earlier declaration of 'myBuffer'
[BCC32 Error] Unit1.cpp(12): E2303 Type name expected
[BCC32 Error] Unit1.cpp(12): E2238 Multiple declaration for 'myPicture'
[BCC32 Error] Unit1.cpp(10): E2344 Earlier declaration of 'myPicture'
[BCC32 Error] Unit1.cpp(13): E2238 Multiple declaration for 'myPicture'
[BCC32 Error] Unit1.cpp(12): E2344 Earlier declaration of 'myPicture'
[BCC32 Error] Unit1.cpp(13): E2141 Declaration syntax error
[BCC32 Error] Unit1.cpp(14): E2238 Multiple declaration for 'myBuffer'
[BCC32 Error] Unit1.cpp(11): E2344 Earlier declaration of 'myBuffer'
[BCC32 Error] Unit1.cpp(14): E2141 Declaration syntax error
[BCC32 Error] Unit1.cpp(15): E2238 Multiple declaration for 'myBuffer'
[BCC32 Error] Unit1.cpp(14): E2344 Earlier declaration of 'myBuffer'
[BCC32 Error] Unit1.cpp(15): E2141 Declaration syntax error
[BCC32 Error] Unit1.cpp(25): E2064 Cannot initialize 'const TRect &' with 'int'
  Full parser context
    Unit1.cpp(24): parsing: void _fastcall TForm1::FormMouseMove(TObject *,TShiftState,int,int)
[BCC32 Error] Unit1.cpp(25): E2342 Type mismatch in parameter 'Rect' (wanted 'const TRect &', got 'int')
  Full parser context
    Unit1.cpp(24): parsing: void _fastcall TForm1::FormMouseMove(TObject *,TShiftState,int,int)
[BCC32 Error] Unit1.cpp(25): E2227 Extra parameter in call to _fastcall TCanvas::FillRect(const TRect &)
  Full parser context
    Unit1.cpp(24): parsing: void _fastcall TForm1::FormMouseMove(TObject *,TShiftState,int,int)

#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//Здесь можно объвлять указатели и переменные, но они будут глобальными, что не желательно для переменных, 
//используемых только в одном файле
Graphics::TBitmap *myBuffer; //Это объвление указателей.
Graphics::TBitmap *myPicture;//И это тоже.
 
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
/*Объявлять переменные можно практически в любом месте, но 
когда выполненять операции с этими переменными должно быть
известно программе. Вообщем, в .h файле и вне блоков нельзя 
совершать операции. Для этого обязательно надо использовать 
объявления функций, но потом всеровно придется использовать 
функцию в каком-то блоке*/
 
//все ниже, это операции с переменными, поэтому они должны быть здесь. 
//Программа знает, что при создании TForm1 она должна будет совершить операции с этими указателями
myBuffer = new Graphics::TBitmap();
myPicture = new Graphics::TBitmap();
myPicture->LoadFromFile("C:\\1.bmp");
myBuffer->Height->Form1->Height;
myBuffer->Width=Form1->Width;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormMouseMove(TObject *Sender, TShiftState Shift, int X, int Y)
 
{
        //myBuffer->Canvas->FillRect(0,0,Form1->Width, Form1->Height);  << Здесь тоже ошибка, функция FillRect 
//принимает в качестве установочных значений один параметр типа TRect. У Вас же передается в FillRect четыре 
//параметров типа int. Поэтому 4 параметра углов квадрата, перед отправкой в функцию FillRect необходимо 
//преобразовать в тип TRect. Обратите внимание как написано в следующей строчке
        myBuffer->Canvas->FillRect(TRect(0,0,Form1->Width, Form1->Height));
        myBuffer->Canvas->Draw(X,Y, myPicture);
        Form1->Canvas->Draw(0,0,myBuffer);
}

//myBuffer->Height->Form1->Height;  << Ошибка
myBuffer->Height=Form1->Height;  //знак присваивания =

// h.файл
#define GTB Graphics::TBitmap  //чтобы каждый раз не писать Graphics::TBitmap
 
class CAnimation
{
  private:
    //Используемые переменные. В комменатрии написано для чего нужна каждая.
    int frameCount, frame, frameSpeed, frameHeight, frameWidth, animWait; 
/*кол-во кадров, текущий кадр, время(скорость) смены кадров( в мс), высота кадра, 
ширина кадра, время ожидания до следующего цикла проигрывания анимации(в мс)*/
    
    unsigned long nextFrame; 
/*Время когда нужно сменить кадр*/
    bool autoreverse, reverse; 
/*1-ая переменная обозначает Как проигрывать анимацию. 1-2-3-1-2-3 или 1-2-3-2-1-2-3. 
2-ая переменная для того, чтобы знать в какую сторону в данный момент идут кадры(на убывание 
или возрастание) и используется только если autoreverse==true*/
    GTB * pAnimation;
    GTB * pFrame;
/* pAnimation - сюда загружается вся картинка с анимацией
   pFrame - здесь хранится текущий кадр*/
  
  public:
    //Методы класса
    CAnimation(void); //конструктор
    virtual ~CAnimation(void); //деструктор, не помню почему он виртуальный (о_О)
    CAnimation(const CAnimation&); //конструктор копий
    void Copy (const CAnimation & _org);  //копирование в ручную, потому что конструктор копий в stl::vector не работал
    int Animate(void); // проиграть анимацию проверив не настало ли время следующего кадра.
/*Возвращяет:
0 - проигрывать кадр не требуется. В анимации всего 1 кадр
1 - проигрывать кадр не требуется, потому что время следующего кадра не настало
2,3 - кадр сменился на следующий.*/
    GTB* Draw(void); //возвращает pFrame, чтобы нарисовать его
    void LoadAnimation(int framesCount,int fps,bool autorevers,int waitting,String Path); //загрузить новую анимацию
/*framesCount - кол-во кадров в анимации
  fps - скорость смены кадров
  autorevers - как зацикливать анимацию 1-2-3-1-2-3 или 1-2-3-2-1-2-3
  waitting - значение для переменной aniWait. Когда цикл анимации завершился - сколько времени выждать перед следующим циклом
  Path - путь к файлу с анимацией*/
};

//cpp.файл
 
CAnimation::CAnimation(void) {
  pFrame = new GTB();
  pFrame->Transparent= true;
  pAnimation = new GTB();
  pAnimation->Transparent= true;
}
CAnimation::~CAnimation(void) {
  delete pFrame;
  delete pAnimation;
}
CAnimation::CAnimation(const CAnimation& _org)
{
  pFrame = new GTB();
  pFrame->Transparent= true;
  pAnimation = new GTB();
  pAnimation->Transparent= true;
  animWait= _org.animWait;
  frameCount= _org.frameCount;
  frame= _org.frame;
  frameSpeed= _org.frameSpeed;
  frameHeight= _org.frameHeight;
  frameWidth= _org.frameWidth;
  nextFrame= _org.nextFrame;
  autoreverse= _org.autoreverse;
  reverse= _org.reverse;
  _org.pAnimation->Transparent= false;
  pAnimation->Height= _org.pAnimation->Height;
  pAnimation->Width= _org.pAnimation->Width;
  pAnimation->Canvas->Draw(0,0,_org.pAnimation);
  pFrame->Height= frameHeight;
  pFrame->Width= frameWidth;
}
void CAnimation::LoadAnimation(int _count, int _fps, bool _reverse, int _wait, String _Path)
{
  animWait= _wait;
  frameCount= _count;
  frameSpeed= _fps;
  autoreverse= _reverse;
  //pAnimation->LoadFromResourceName((unsigned int)DataDLL,_Path); //Чтобы загружать из DLL (Вам это пока не понадобится), заменена LoadFromFile
  pAnimation->LoadFromFile(_Path);
  frameHeight= pAnimation->Height;
  frameWidth= pAnimation->Width / _count;
  frame= 0;
  reverse= false;
  pFrame->Height= frameHeight;
  pFrame->Width= frameWidth;
  nextFrame= GetTickCount() + _fps;
}
 
int CAnimation::Animate(void) {
  if (frameCount > 1)
  {
    if (GetTickCount() > nextFrame)
    {
      if (reverse)
      {
        if (frame <= 0)
        {
          reverse= false;
          frame= 0;
          nextFrame= GetTickCount() + animWait;
          return 3;
        }
        else
        {
          frame--;
        }
      }
      else
      {
        if (frame >= frameCount-1)
        {
          if (autoreverse)
          {
            reverse= true;
            frame--;
          }
          else
          {
            frame= 0;
            nextFrame= GetTickCount() + animWait + frameSpeed;
            return 3;
          }
        }
        else
        {
          frame++;
        }
      }
      nextFrame= GetTickCount() + frameSpeed;
      return 2;
    }
    return 1;
  }
  return 0;
}
 
GTB* CAnimation::Draw(void){
  pFrame->Canvas->FillRect(TRect(0,0,frameWidth,frameHeight));
  pFrame->Canvas->CopyRect(TRect(0,0,frameWidth,frameHeight),pAnimation->Canvas,TRect(frame*frameWidth,0,frame*frameWidth+frameWidth,frameHeight));
  return pFrame;
}
 
void CAnimation::Copy (const CAnimation & _org)
{
  _org.pAnimation->Transparent= false;
  pAnimation->Height= _org.pAnimation->Height;
  pAnimation->Width= _org.pAnimation->Width;
  pAnimation->Canvas->Draw(0,0,_org.pAnimation);
  animWait= _org.animWait;
  frameCount= _org.frameCount;
  frame= _org.frame;
  frameSpeed= _org.frameSpeed;
  frameHeight= _org.frameHeight;
  frameWidth= _org.frameWidth;
  nextFrame= _org.nextFrame;
  autoreverse= _org.autoreverse;
  reverse= _org.reverse;
  pFrame->Height= frameHeight;
  pFrame->Width= frameWidth;
  pFrame->Transparent= true;
}

// h.файл
...
//подключаем добавленный в проект файл с классом.
#include "Animation.h>
...
private:
    CAnimation anim; //создаем где-нибудь(например в привате) объект класса CAnimation
...

//cpp.файл
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
  anim.LoadAnimation(5,200,false,300,"C:/slave.BMP");  //5 кадров, 200 миллисекнд между кадрами, повторять по принципу 1-2-3-1-2-3, по окончанию цикла, ждать 300 мс и сразу же начинать новый, путь к картинке
}

void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
  anim.Animate();
}

void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
  anim.Animate();
  myBuffer->Canvas->FillRect(TRect(0,0,Form1->Width,Form1->Height));
  //myBuffer->Canvas->Draw(X,Y,myPicture);
  myBuffer->Canvas->Draw(40,50,anim.Draw()); //Заменили указатель на картинку myPicture, функцией объекта класса CAnimation, которая возвращяет указатель на картинку pFrame. 
/*Обратите внимание, что X,Y заменены на констатные знаечния. Так как это больше не событие движения мыши и этих переменных нет в этом пространстве имен*/
  Form1->Canvas->Draw(0,0,myBuffer);
}

GetTickCount()

int CAnimation::Animate(void) {
  if (frameCount > 1)
  {
    if (GetTickCount() > nextFrame)
    {
      if (reverse)
      {

        anim.LoadAnimation(4,150,false,300,"C://2.bmp");
        myBuffer = new Graphics::TBitmap();
 
        myBuffer->Height=Form1->Height;//Добавьте вот эти строки
        myBuffer->Width=Form1->Width;//...

nextFrame= GetTickCount() + animWait;

int CAnimation::Animate(void) {
  //frameCount - количество кадров
  if (frameCount > 1)  //если кадров больше, чем 1, то проверить не наступило ли время сменить кадр. Если анимация 
//состоит из одной статичной картинки, то зачем производить какие-нибудь расчет?! Если будет возвращено false, то 
//вызов этого метода закончится быстро.
  {
    if (GetTickCount() > nextFrame) //Наступило ли время сменить кадр? Если время не наступило, то завершить 
//вызов метода Animate(). 
    {
      if (reverse) //если при инициализации анимации было указано, что анимация должна идти по схеме 
//1-2-3-2-1 (на это указывает autoreverse равная true), и сейчас как раз кадры идут на убывание 3-2-1, то выполнить 
//этот блок код, если autoreverse был указан в false, то reverse всегда будет равен false, и эта часть кода будет 
//пропускаться
      {
        if (frame <= 0)  //достигнуто начало анимации - тоесть первый кадр, и теперь надо отсчитывать 
//вперед. Тут я накосячил, и правильнее будет написать if (frame <= 1)
        {
          reverse= false;  //чтобы кадры увеличиывались на 1
          frame= 0; //frame выставлен в положение первого кадра
          nextFrame= GetTickCount() + animWait; //время следующей смены кадра
          return 3;  //метод завершается возвратом значения 3.
        }
        else  //если анимация идет на убывание, и первый кадр еще не наступил=> продолжаем 
//отсчитывать кадры уменьшая frame на единицу. 
        {
          frame--;
        }
      }
      else  //если кадры идут на увеличение. Не важно по какой схеме 1-2-3-2-1 или 1-2-3-1-2-3. Сейчас 
//выполняется первый шаг: 1-2-3... 
      {
        if (frame >= frameCount-1)  //проверяет не достигнут ли последний кадр, если да, то...
        {
          if (autoreverse) //Загруженная анимация выполняется по схеме 1-2-3-2-1
          {
            reverse= true;  //теперь следующие вызовы метода Animate() будут выполняться в 
//первой части кода, когда счетчик идет на убываение.
            frame--; //...и уменьшаем значение кадра на единицу.
          }
          else  //Загруженная анимация не выполняется по схеме 1-2-3-2-1, следовательно она 
//выполняется по кругу
          {
            frame= 0; //...а это значит что следующий кадр будет первым.
            nextFrame= GetTickCount() + animWait + frameSpeed; //записываем время следующей 
//смены кадра: nextFrame будет присвоенна сумма значений ткекущего времени, плюс скорость fps, и плюс animWait
//(значение которому присваивается при инициализации LoadAnimation(...)... оно служит для того, если нам нужна 
//задержка при анимации, тоесть схема получается "1-2-3-подождать animWait миллисекунд-1-2-3..."
            return 3; //завершить выполнение метода Animta()
          }
        }
        else  //если конец анимации не достигнут....
        {
          frame++; //...увеличить анимацию на единицу
        }
      }
      nextFrame= GetTickCount() + frameSpeed;  //время следующей смены кадра. (Текущее время+ время fps)
      return 2;  //завершить  Animate() 
    }
    return 1;  //завершить Animate(), потому что время следующего кадра не настало
  }
  return 0;  //завершить Animate(), потому что в анимации всего один кадр
}