Анимация - Разработка Windows-приложений в среде Borland Delphi

Цель Работы: Получить навыки использования анимационных компонентов.

Пояснения к работе

Компонент Animate расположен на вкладке Win32 и позволяет воспроизвести только простую, не сопровождаемую звуком анимацию, кадры которой находятся в AVI-файле. Свойства компонента приведены в таблице:

FileName

Имя AVI-файла

StartFrame

Номер кадра, с которого начинается отображение анимации

StopFrame

Номер кадра, на котором заканчивается отображение анимации

Activate

Признак активации процесса отображения

Color

Цвет фона, на котором воспроизводится анимация

Transparent

Режим использования "прозрачного" цвета при отображении анимации

Repetitions

Количество повторов отображения

Постановка задачи

Разработать приложение позволяющее выбирать и воспроизводить AVI-файлы в двух режимах: непрерывном и покадровом.

Порядок выполнения

    1. Загрузить Delphi, сохранить проект. 2. Расположить на форме компонент Animate (Win32). 3. Для свойства FileName выбрать имя Avi-файла. 4. В процедуру TForm1.FormCreate ввести код:

Animate1.Play(0,animate1.FrameCount,1);

    5. Проверить работу приложения. 6. Самостоятельно изменить программу для того, чтобы количество повторов было 3. Проверить. 7. Привести форму в соответствие с образцом, для этого добавить компоненты и изменить им свойство Caption:
      - Label и Edit; - GroupBox, RadioButton - OpenDialogs; - командные кнопки.
    8. Объявить глобальную переменную

CFrame: integer; // номер кадра,

9. Создать и объявить процедуру OpenAvi

Procedure TForm1.OpenAVI;

Begin

Button1.Enabled:= False;

Button2.Enabled:= False; Button3.Enabled:= False;

RadioButton1.Enabled:= False; RadioButton2.Enabled:= False;

Try

Animate1.FileName:= Edit1.Text;

Except

On Exception do

Begin

MessageDlg('Ошибка формата AVI файла.'+

#13+'(Анимация не должна сопровождаться звуком.)',

MtError,[mbOk],0);

Exit;

End; end;

Button1.Enabled:= True;

RadioButton1.Enabled:= True; RadioButton2.Enabled:= True;

End;

10. Для кнопки Выбрать (Button4) ввести код:

OpenDialog1.Title:= 'Выбрать AVI файл';

OpenDialog1.InitialDir:='';

If OpenDialog1.Execute Then Begin

Edit1.Text:= OpenDialog1.FileName;

OpenAVI; End;

11. Для кнопки Пуск ввести код:

If Animate1.Active = False // в данный момент анимация нет then begin

Animate1.StartFrame:=1; // вывод с первого кадра

Animate1.StopFrame:=Animate1.FrameCount; //по последний кадр

Animate1.Active:=True;

Button1.caption:='Стоп';

RadioButton2.Enabled:=False;

End

Else // анимация отображается

Begin

Animate1.Active:=False; // остановить отображение

Button1.caption:='Пуск';

RadioButton2.Enabled:=True;

End;

12. Для переключателя Непрерывно ввести код:

Button1.Enabled:=True; // доступна кнопка Пуск

// сделать недоступными кнопки просмотра по кадрам

Form1.Button3.Enabled:=False;

Form1.Button2.Enabled:=False;

13. Для переключателя По кадрам ввести код:

Button2.Enabled:=True; // кнопка Следующий кадр доступна

Button3.Enabled:=False; //кнопка Предыдущий кадр недоступна

// сделать недоступной кнопку Пуск - вывод всей анимации

Button1.Enabled:=False;

Animate1.StartFrame:=1;

Animate1.StartFrame:=1;

CFrame:=1;

14. Для кнопки К следующему кадру ввести код:

If CFrame < Animate1.FrameCount Then Begin

CFrame:= CFrame + 1;

// вывести кадр

Animate1.StartFrame:= CFrame;

Animate1.StopFrame:= CFrame;

Animate1.Active:= True;

If CFrame = Animate1.FrameCount // текущий кадр - последний

Then Button2.Enabled:=False;

End;

If CFrame > 1 then Button3.Enabled:= True;

15. Для кнопки К предыдущему кадру ввести код:

If CFrame > 1 then

Begin

CFrame:= CFrame - 1;

// вывести кадр

Animate1.StartFrame:= CFrame;

Animate1.StopFrame:= CFrame;

Animate1.Active:= True;

If CFrame = 1 // текущий кадр - первый

Then Form1.Button3.Enabled:= False;

End;

If CFrame < Animate1.FrameCount then Button2.Enabled:= True;

    16. Проверить работу приложения. 17. Добавить на форму пункт меню Справка. 18. Присоединить к проекту форму для выдачи Справки, для этого: 1. выбрать в меню File / New/Other; 2. выбрать вкладку Forms, на ней выбрать About Box. 19. Привести форму в соответствие с образцом: 20. Самостоятельно доработать приложение для вызова окна справки (пункт Справка) и скрытие окна (кнопка Ок) 21. Результат показать преподавателю.

ПРАКТИЧЕСКАЯ РАБОТА № 13

Delphi среда программа буфер

Похожие статьи




Анимация - Разработка Windows-приложений в среде Borland Delphi

Предыдущая | Следующая