Для цього необхідно змінювати значення координат положення картинки, яка рухається:
x:=x+2;
З кожною подією OnTimer значення координати х збільшується, і на екрані з'являється та частина бітового образу, координати якої більше нуля. Таким чином, у спостерігача створюється враження, що повітряний змій вилітає із-за лівої границі вікна.
Якщо значення координати х перевищить ширину форми, повертаємо картинку в початкове положення (створення ефекту безперервності руху картинку по фону):
if x>fоrm1.Image1.Width then x:=-W;
Визначіть область фону, що зберігається.
BackRct:=Bounds(x,у,W,H);
Збережть її копію
Buf.Canvas.CopyRect(BufRet,fon.Canvas,BackRеt);
Виведіть малюнок (рис. 5.3).
Form1.image1.canvas.Draw(x,y,zmij);
Рис. 5.3. Реалізація ефекту переміщення повітряного змія
