Студопедия Главная Случайная страница Обратная связь

Разделы: Автомобили Астрономия Биология География Дом и сад Другие языки Другое Информатика История Культура Литература Логика Математика Медицина Металлургия Механика Образование Охрана труда Педагогика Политика Право Психология Религия Риторика Социология Спорт Строительство Технология Туризм Физика Философия Финансы Химия Черчение Экология Экономика Электроника

ЗАДАНИЕ. Создайте приложение мультипликацию, в котором на фоне снежных гор летит самолет





Создайте приложение мультипликацию, в котором на фоне снежных гор летит самолет. Рисунки фона и самолета можно сделать самостоятельно, (рис. 28).

 

 

рис. 28

 

Создайте форму, для свойства Caption которой задайте значение «Полет самолета». Поместите на форму компонент Timer из палитры System и компонент Image из палитры Additional. Задайте для свойства Image1.Align значение alClient. Сохраните файл под именем airplane, файл модуля – под именем main в папке «Летящий самолет».

Добавьте в раздел переменных модуля описание переменных:

 

Back, bitmap, Buf: Tbitmap; {фон, картинка, буфер}

BackRct, bitmapRct, BufRct: Trect; {область фона, картинки, буфера}

x, y: integer; {координаты левого верхнего угла картинки}

W, H: integer; {размеры картинки (ширина, высота)}

Для запуска анимации создайте обработчик события OnActivate, наступающего, когда форма получает или теряет фокус, например, при щелчке по ней мышью. Чтобы создать обработчик события, выберите в окне Инспектора объектов объект Form1 и на странице Events произведите двойной щелчок на пустом поле списка в событии OnActivate. После этого в окне Редактора кода будет сгенерирована заготовка процедуры обработчика события procedure TForm1.FormActivate (Sender. TObject);

Отредактируйте текст этой процедуры следующим образом:

Procedure TForm1.FormActivate (Sender: TObject);

Begin

Back: =TBitmap.Create; {фон}

Bitmap: = TBitmap.Create; {картинка}

Buf: = TBitmap.Create; {буфер}

{загрузить и вывести фон из файла Backgraund.bmp}

Back.LoadFromFile (‘Backgraund.bmp’);

Form1.Image1Canvas.Draw (0, 0, Back);

{загрузить изображение самолета, который будет двигаться}

bitmap.LoadFromFile (‘aplane.bmp’);

bitmap. Transparent: =True;

bitmap. TransParentColor: =bitmap. Canvas. Pixels[1, 1];

{создать буфер для сохранения копии области фона, на которую накладывается картинка}

W: =bitmap. Width;

H: =bitmap. Height;

Buf. Width: =W;

Buf. Height: =H;

Buf.Palette: =Back.Palette; {обеспечить соответствие палитр}

Buf. Canvas. CopyMode: =cmScrCopy;

BufRct: =Bounds (0, 0, W, H);

x: =-W;

y: =20;

BackRct: =Bounds (x, y, W, H); {обеспечить сохраняемую область фона}

Buf. Canvas. CopyRect (BufRct, Back. Canvas, BackRct); {сохранить ее}

end;

Для получения эффекта мультипликации создайте процедуру обработчика события OnTimer, для чего выберите в окне Инспектора объектов объект Timer1 и на странице Events произведите двойной щелчок на пустом поле списка в событии Timer1Timer. Отредактируйте тело процедуры обработчика события следующим образом:

Procedure TForm1. Timer1Timer (Sender: TObject);

Begin

Form1. Image1. Canvas. Draw (x, y, Buf); {восстановление фона (из буфера) -удалить рисунок}

x: =x+2; {смещение самолета по х}

if x> Form1. Image1. Width then x: =-W; {если самолет «вылетел» за пределы рисунка фона}

BackRct: =Bounds (x, y, W, H); {определить сохраняемую область фона}

Buf. Canvas. CopyRect (BufRct, Back. Canvas, BackRct); {сохранить ее копию}

Form1. Image1. Canvas. Draw (x, y, bitmap); {вывести рисунок самолета в новой позиции}

end;

 

Для освобождения памяти от переменных, в которых хранились значения фона, рисунка самолета и буфера с фрагментом фона, создайте процедуру обработчика события закрытия окна приложения. Для этого выберите в окне Инспектора объектов объект Form1 и на странице Events произвести двойной щелчок на пустом поле списка в событии OnClose. Вставьте в тело процедуры обработчика события вызов метода Free для освобождения памяти, динамически выделенной под объекты Back, bitmap и Buf.

 

Procedure TForm1. FormClose (Sender: TObject; var Action: TCloseAction);

Begin

Back. Free; {освободить память}

bitmap. Free;

Buf. Free;

End;

Сохраните текст приложения, откомпилируйте его и поверьте его работу. Убедитесь, что в окне приложения на фоне выбранного рисунка осуществляется перемещение изображения самолета, как показано ниже на рисунке 29.

 

рис. 29

 

 







Дата добавления: 2014-11-10; просмотров: 686. Нарушение авторских прав; Мы поможем в написании вашей работы!




Композиция из абстрактных геометрических фигур Данная композиция состоит из линий, штриховки, абстрактных геометрических форм...


Важнейшие способы обработки и анализа рядов динамики Не во всех случаях эмпирические данные рядов динамики позволяют определить тенденцию изменения явления во времени...


ТЕОРЕТИЧЕСКАЯ МЕХАНИКА Статика является частью теоретической механики, изучающей условия, при ко­торых тело находится под действием заданной системы сил...


Теория усилителей. Схема Основная масса современных аналоговых и аналого-цифровых электронных устройств выполняется на специализированных микросхемах...

Ученые, внесшие большой вклад в развитие науки биологии Краткая история развития биологии. Чарльз Дарвин (1809 -1882)- основной труд « О происхождении видов путем естественного отбора или Сохранение благоприятствующих пород в борьбе за жизнь»...

Этапы трансляции и их характеристика Трансляция (от лат. translatio — перевод) — процесс синтеза белка из аминокислот на матрице информационной (матричной) РНК (иРНК...

Условия, необходимые для появления жизни История жизни и история Земли неотделимы друг от друга, так как именно в процессах развития нашей планеты как космического тела закладывались определенные физические и химические условия, необходимые для появления и развития жизни...

Искусство подбора персонала. Как оценить человека за час Искусство подбора персонала. Как оценить человека за час...

Этапы творческого процесса в изобразительной деятельности По мнению многих авторов, возникновение творческого начала в детской художественной практике носит такой же поэтапный характер, как и процесс творчества у мастеров искусства...

Тема 5. Анализ количественного и качественного состава персонала Персонал является одним из важнейших факторов в организации. Его состояние и эффективное использование прямо влияет на конечные результаты хозяйственной деятельности организации.

Studopedia.info - Студопедия - 2014-2025 год . (0.013 сек.) русская версия | украинская версия