|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
02.06.2021, 22:08 | #1 |
Пользователь
Регистрация: 11.01.2021
Сообщений: 48
|
Как сделать анимацию в delphi как на gif файле?
Здравствуйте, мне нужно сделать анимацию как на gif файле, пример по ссылке. https://vagon-igr.ru/gif/anim.gif. Я уже начала работу только вместо текста использовала rectangle, разных цветов, из анимации у меня получилось только перемещать группу квадратов вверх вниз. Как сделать так, чтобы анимация была как в гивке, т. е. когда первый слой отправляется вверх то нижние на несколько пикселей сдвигаются вниз, если первый слой отправляется вниз, то соответственно остальные перемещаются на несколько пикселей вверх. Я предполагаю, что этот эффект можно сделать с помощью синуса, но не могу сообразить как, может кто подскажет?
Вот мои созданные rectangle, в delphi. img.jpg А вот сам код. Код:
|
03.06.2021, 00:13 | #2 |
МегаМодератор
СуперМодератор
Регистрация: 09.11.2010
Сообщений: 7,291
|
Нужно movement сделать свойством каждого прямоугольника, тогда разворот первого ряда не будет влиять на движение второго. А вот для эффекта замедления при подходе к границам движения уже пригодится синус. Создавать прямоугольники лучше в FormCreate, рисование аккуратнее разместить в FormPaint, а в таймере только менять направление movement и потом вызывать repaint.
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
Последний раз редактировалось BDA; 03.06.2021 в 00:16. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Как сделать gif анимацию | sanek_da | HTML и CSS | 3 | 24.04.2013 14:23 |
Как вставить Gif анимацию на кнопку | Aleksandr | Общие вопросы Delphi | 8 | 24.05.2007 08:19 |
Как загрузить GIF анимацию в Image | Ramz | Помощь студентам | 1 | 27.04.2007 15:18 |
Как вставить в программу gif-анимацию ? | Alar | Общие вопросы Delphi | 0 | 29.10.2006 20:51 |