![]() КАТЕГОРИИ: Архитектура-(3434)Астрономия-(809)Биология-(7483)Биотехнологии-(1457)Военное дело-(14632)Высокие технологии-(1363)География-(913)Геология-(1438)Государство-(451)Демография-(1065)Дом-(47672)Журналистика и СМИ-(912)Изобретательство-(14524)Иностранные языки-(4268)Информатика-(17799)Искусство-(1338)История-(13644)Компьютеры-(11121)Косметика-(55)Кулинария-(373)Культура-(8427)Лингвистика-(374)Литература-(1642)Маркетинг-(23702)Математика-(16968)Машиностроение-(1700)Медицина-(12668)Менеджмент-(24684)Механика-(15423)Науковедение-(506)Образование-(11852)Охрана труда-(3308)Педагогика-(5571)Полиграфия-(1312)Политика-(7869)Право-(5454)Приборостроение-(1369)Программирование-(2801)Производство-(97182)Промышленность-(8706)Психология-(18388)Религия-(3217)Связь-(10668)Сельское хозяйство-(299)Социология-(6455)Спорт-(42831)Строительство-(4793)Торговля-(5050)Транспорт-(2929)Туризм-(1568)Физика-(3942)Философия-(17015)Финансы-(26596)Химия-(22929)Экология-(12095)Экономика-(9961)Электроника-(8441)Электротехника-(4623)Энергетика-(12629)Юриспруденция-(1492)Ядерная техника-(1748) |
Порядок выполнения. Компонент Animate расположен на вкладке Win32 и позволяет воспроизвести только простую, не сопровождаемую звуком анимацию
Постановка задачи Пояснения к работе Компонент Animate расположен на вкладке Win32 и позволяет воспроизвести только простую, не сопровождаемую звуком анимацию, кадры которой находятся в AVI-файле. Свойства компонента приведены в таблице:
Разработать приложение позволяющее выбирать и воспроизводить AVI-файлы в двух режимах: непрерывном и покадровом.
1. Загрузить Delphi, сохранить проект. 2. Расположить на форме компонент Animate (Win32). 3. Для свойства FileName выбрать имя Avi-файла. 4. В процедуру TForm1.FormCreate ввести код: animate1.Play(0,animate1.FrameCount,1); 5. Проверить работу приложения. 6. Самостоятельно изменить программу для того, чтобы количество повторов было 3. Проверить. 7. Привести форму в соответствие с образцом, для этого добавить компоненты и изменить им свойство Caption: · · 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. Результат показать преподавателю.
Дата добавления: 2014-10-23; Просмотров: 439; Нарушение авторских прав?; Мы поможем в написании вашей работы! Нам важно ваше мнение! Был ли полезен опубликованный материал? Да | Нет |