10. Задайте початкове положення картинки, яка рухатиметься.

Для цього оголосіть змінні: х, у.

Задайте їм початкові значення.

Наприклад, х := -W; у := 20.

Слід звернути увагу на те, що початкове значення змінної х, яка визначає положення лівої верхньої точки бітового образу рухомої картинки, — від’ємне число, рівне ширині бітового образу картинки. Тому на початку роботи програми зображення повітряного змія не з'являється, картинка вимальовується за межею видимої області.

Картинка рухатиметься зліва направо. Початково її не буде видно (ефект випливання зліва).

Змінюючи значення х та у можна добитися зміни положення і напрямку руху картинки.

11. Визначіть область фону, що зберігається.

BackRct:=Bounds(x,y,W,H);

Збережіть цю область.

Buf.Canvas.CopyRect(BufRet,fon.Canvas,BackRct).

12. Обробка сигналу таймера.

Здійснюється процедурою TForm1.Timer1Timer(Sender: TObject).

13. Відновіть фон (з буфера).

Form1.image1.canvas.Draw(x,у,Buf);

14. Забезпечте рух картинки по фону.

Для цього необхідно змінювати значення координат положення картинки, яка рухається:

x:=x+2;

З кожною подією OnTimer значення координати х збільшується, і на екрані з'являється та частина бітового образу, координати якої більше нуля. Таким чином, у спостерігача створюється враження, що повітряний змій вилітає із-за лівої границі вікна.

Якщо значення координати х перевищить ширину форми, повертаємо картинку в початкове положення (створення ефекту безперервності руху картинку по фону):

if x>fоrm1.Image1.Width then x:=-W;

15. Визначіть область фону, що зберігається.

BackRct:=Bounds(x,у,W,H);

Збережть її копію

Buf.Canvas.CopyRect(BufRet,fon.Canvas,BackRеt);

16. Виведіть малюнок (рис. 5.3).

Form1.image1.canvas.Draw(x,y,zmij);

Рис. 5.3. Реалізація ефекту переміщення повітряного змія

17. Обробка подій при завершенні роботи програми.

Здійснюється процедурою TForm1.FormClose(Sender: TObject; var Action: TCloseAction).

Звільніть пам'ять, виділену для зберігання бітових образів:

fon.Free;

zmij.Free;

Buf.Free;

17. Забезпечте можливість зміни швидкості переміщення картинки.

Для цього використайте властивість таймера Interval.

18. Забезпечте ефект відбивання картинки від країв.

а) Досягнувши протилежної сторони рухома картинка повертається назад (зліва направо, тоді справа наліво, або знизу вверх, тоді зверху вниз).

б) Досягнувши межі форми змінює напрямок руху на 45 градусів до сусідньої межі форми (наприклад, ліва межа, нижня межа, права межа, верхня межа, знову ліва межа і т.д. ).

19. Створіть ехе-файл програми.

20. 3акрийте Delphi, запустіть створену програму.

Запустіть ехе-файл з іменем проекту зі своєї власної папки.

Контрольні запитання

1. Яким чином реалізовується ефект переміщення картинки?

2. Для чого призначені бітові образи?

3. За допомогою якого об’єкта можна вивести ілюстрацію, що перебуває у файлі?

4. Завдяки якій властивості зображення виводиться на поверхню об’єкта?

5. Які властивості має Canvas?

6. Які методи має Canvas?

7. Що таке бітовий образ?

8. Які властивості мають об’єкти Tbitmap?

9. Як завантажити в бітовий образ потрібну картинку?

10. Як вивести вміст бітового образу (картинку) на поверхню форми або області виведення ілюстрації?

11. Як створити ефекту прозорого фону?

12. Для чого призначений компонент Tіmer?

13. Які властивості має компонент Tіmer?

14. Яка подія генерує компонент Tіmer?

10