Анимация - Разработка 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; - командные кнопки.
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
Цель Работы: Закрепить навыки программирования в Delphi. Постановка задачи: Текстовый файл содержит несколько вопросов и 4 варианта ответа, из которых...
-
Программирование для Интернет - Разработка Windows-приложений в среде Borland Delphi
Цель Работы: Получить навыки использования компонента WebBrowser. Пояснения к работе Начиная с пятой версии Delphi появился компонент WebBrowser который...
-
Базовые компоненты Delphi. - Разработка Windows-приложений в среде Borland Delphi
Цель работы: Получить навыки использования в программе базовых компонентов Delphi. Пояснения к работе В форме практически любого приложения есть...
-
Элементы пользовательского интерфейса - Разработка Windows-приложений в среде Borland Delphi
Цель Работы: Закрепить навыки проектирования интерфейса приложения, получить навыки использования стандартных диалоговых окон и буфера обмена. Пояснения...
-
Проектирование многооконных приложений - Разработка Windows-приложений в среде Borland Delphi
Цель Работы: Получить навыки добавления новых форм к проекту. Пояснения к работе Проект приложения, включающий несколько окон, создается поэтапно. Шаги...
-
Разработка приложения для базы данных - Разработка Windows-приложений в среде Borland Delphi
Цель Работы: Получить навыки создания приложения для базы данных. Пояснения к работе Для работы с базами в Delphi есть несколько наборов компонент,...
-
Использование звука и видео в приложениях. - Разработка Windows-приложений в среде Borland Delphi
Цель Работы Получить навыки использования медиаплеера при проектировании приложений. Пояснения к работе Компонент MediaPlayer (рис.1), значок которого...
-
Компонент TPanel является несущей конструкцией для размещения на ней других элементов управления, являясь в этом случае родителем для размещенных на ней...
-
Массивы - Разработка Windows-приложений в среде Borland Delphi
Цель работы Изучить различные алгоритмы сортировки списка. Закрепить навыки использования массивов данных и массивов объектов. Пояснения к работе...
-
Цель работы: Получить навыки эффективного использования интегрированной среды Delphi. Пояснения к работе Borland Delphi - это объектно-ориентированная...
-
Графические возможности Delphi - Разработка Windows-приложений в среде Borland Delphi
Цель Работы: Получить навыки использования в приложении битовых образов. Пояснения к работе Эффект перемещения сложной картинки может быть создан путем...
-
Рекурсивные графические построения - Разработка Windows-приложений в среде Borland Delphi
Цель Работы: Получить навыки использования рекурсии. Пояснения к работе Рекурсивным называется объект, частично состоящий или определяемый с помощью...
-
ВВЕДЕНИЕ - Разработка Windows-приложений в среде Borland Delphi
Целью учебного пособия является формирование практических навыков разработки и отладки Windows-приложений в среде Borland Delphi. Учебное пособие состоит...
-
Среда объектно-ориентированного программирования Delphi Delphi - это комбинация нескольких важнейших технологий, высокопроизводительный компилятор в...
-
Данное методическое руководство является фактически введением в предмет создания приложений с помощью Delphi / C++Builder и тем более...
-
Borland Delphi 7 - Разработка справочной информационной системы "Рецепты"
Интерфейс программы был написан в среде Borland Delphi 7 - визуальной среде программирования, использующей объектно-ориентированную модификацию языка...
-
Реальный проект состоит из многих (часто десятков) форм (окон), каждое из которых активируется в виде реакции на некоторое событие (нажатие кнопки...
-
- замечания, нужно запомнить. Знакомство со средой DELPHI Для загрузки Delphi нужно запустить файл Delphi32.exe из папки Bin каталога Delphi7. Можно...
-
Первая программа - движение слева направо Просмотрите код Unit1.pas для нашего примера: Unit Unit1; Interface Uses Windows, Messages, SysUtils, Variants,...
-
Бизнес - планирование, являясь нормой любой предпринимательской деятельности, необходимо для предвидения будущей ситуации, стратегических решений и для...
-
Корпусная лингвистика и ее применение в области преподавания иностранного языка "Корпусная лингвистика - раздел компьютерной лингвистики, занимающийся...
-
Разработка базы данных мониторинга окружающей среды
ВВЕДЕНИЕ Информация о состоянии окружающей природной среды, об изменениях этого состояния давно используется человеком для планирования своей...
-
Общие сведения о программе Программа разработана для демонстрации возможностей языка C++ и может использоваться для пользователей, которые не знакомы с...
-
Выбор СУБД - Разработка прототипа веб-приложения "Репозиторий электронных ресурсов"
Самыми широкоиспользуемыми на данный момент СУБД являются MySQL, PostgreSQL и MSSQL Server, а также Oracle, SQLite, Firebird и другие СУБД. Выделим...
-
2.1 Среды разработки для построения программных агентов Инструментальные средства разработки программных агентов формируют среду, которая оптимизирована...
-
В среде электронного ресурса ИИС "MD_SLAGMELT" (Рис. 6) для доступа к компоненту "моделирование" необходима учетная запись (пара логин/пароль) (Рис.7)....
-
Проектирование и разработка сайта Средства разработки Язык гипертекстовой разметки HTML В Интернете сосредотачивается и передается достаточно большое...
-
Кроме поддержки интерпретатора порождающих правил, описанного в главе 5, CLIPS обладает следующими функциональными возможностями: - для определения...
-
Дальнейшим развитием локальных средств разработки программ, являются интегрированные программные среды разработчиков. Основное назначение инструментария...
-
Основным документом, на основании которого потенциальные партнеры захотят иметь дело с компанией, а инвесторы вложат деньги, является бизнес-план....
-
После заполнения основной части бизнес-плана необходимо рассчитать потребность в финансовых средствах. В результате предварительного расчета определяется...
-
Для описания плана развития предприятия формируется: 1) Инвестиционный план Раздел "Инвестиционный план" предназначен для формирования календарного плана...
-
При составлении бизнес-плана решаются задачи, которые можно сгруппировать в два раздела: собственно планирование, анализ результатов/ подготовка...
-
Разработка сайта, Среда разработки web-сайта - Разработка сайта для компании
Среда разработки web-сайта При разработке web-сайта используются: - HTML - язык разметки web-страниц; - CSS - формальный язык описания внешнего...
-
Разработать и создать аналог системной утилиты "Диспетчер задач" по дисциплине "Системное программирование". "Диспетчер задач" должен содержать следующие...
-
Постановка задачи нечеткого управления Была рассмотрена задача по прогнозированию износа (в микрометрах) тормозных дисков автомобилей. Входные данные:...
-
- рисуем графический примитив, например, эллипс у рыбки; - накладываем сверху на эллипс другой графический объект так, чтобы он закрывал часть эллипса; -...
-
Цель Работы - изучить приемы создания и использования шаблонов классов. - Теоретические сведения Достаточно часто встречаются классы, объекты которых...
-
Объявим переменные как глобальные: Var Form1: TForm1; A, b, x : int64; // Самый большой целочисленный тип Implementation Код процедуры Click для кнопки...
-
Тестирование - Разработка и сопровождение программного обеспечения
Тестирование - ряд мероприятий, связанных с различного рода испытаниями объекта тестирования с целью установления соответствия или несоответствия его...
Анимация - Разработка Windows-приложений в среде Borland Delphi