Иллюстрированный самоучитель по C++ Builder

Компонент Animate

Editl-XText = OpenDialogl › FileName;
// отобразить имя файла
RadioButtonl › Checked = true;
// режим просмотра – непрерывно
Buttonl › Enabled = true;
// кнопка Пуск доступна Button2 › Enabled = false;
// кнопка Предыдущий кадр недоступна
Button3 › Enabled = false;
// кнопка Следующий кадр недоступна
RadioButtonl › Enabled = true;
 RadioButton2 › Enabled = true;
}
}
// щелчок на кнопке Пуск/Стоп
void__fastcall TForml::ButtonlClick(TObject *Sender)
{
if (Animatel › Active)
{
// анимация отображается, щелчок на кнопке Стоп
Animatel › Active = false; Buttonl ›
Caption = "Пуск";
RadioButton2 › Enabled = true;
}
else // щелчок на кнопке Пуск
(
// активизировать отображение анимации
Animatel › StartFrame = 1;
// с первого кадра
Animatel › StopFrame = Animatel › FrameCount;
// по последний кадр
Animatel › Active = true;
Buttonl › Caption = "Стоп";
RadioButton2 › Enabled = false;
}
}
// выбор режима просмотра всей анимации
void __fastcall TForml::RadioButtonlClick(TObject *Sender)
{
Buttonl › Enabled = true; // кнопка Пуск/Стоп доступна
// сделать недоступными кнопки режима просмотра по кадрам
Button2 › Enabled = false;
Button3 › Enabled = false;
Animatel › Active = false; }
// выбор режима просмотра по кадрам
void __fastcall TForml::RadioButton2Click(TObject *Sender)
{
Buttonl › Enabled = false; // кнопка Пуск/Стоп недоступна
Button2 › Enabled = true; // кнопка Следующий кадр доступна
Button3 › Enabled = false; // кнопка Предыдущий кадр недоступна
// отобразить первый кадр
Animatel › StartFrame =1;
Animatel › StopFrame = 1;
Animatel › Active = true;
CFrame =1; // запомним номер отображаемого кадра
 }
// щелчок на кнопке Следующий кадр
void__fastcall TForml::Button2Click(TObject *Sender)
{
CFrame++;
// отобразить кадр
Animatel › StartFrame = CFrame;
Animatel › StopFrame = CFrame;
Animatel › Active = true;
if (CFrame > 1)
Button3 › Enabled = true;
if (CFrame == Animatel › FrameCount)
// отобразили последний кадр
Button2 › Enabled = false;
// кнопка Следующий кадр недоступна }
// щелчок на кнопке Предыдущий кадр
void__fastcall TForml::Button3Click(TObject *Sender)
{
if (CFrame == Animatel › FrameCount)
 // последний кадр Button2 › Enabled = true;
CFrame– ;
// отобразить кадр
Animatel › StartFrame = CFrame;
Animatel › StopFrame = CFrame;
Animatel › Active = true;
if (CFrame == 1)
Button3 › Enabled = false;
// кнопка Следующий кадр недоступна
}