Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Анимационный вывод изображения [D7]


Алексей ©   (2007-11-07 22:21:00) 

Попосил бы помочь, я не могу написать процедуру:
procedure AnimationDraw(DC1, DC2: HDC; const Left, Top, Width, Height: Integer;
 const Time, Count: Byte);
где
 DC1 - куда рисуем (исходное изображение);
 DC2 - откуда рисуем (изображение на замену);
 Time - время замены
 Count - число кадров на замену

Как я понял:
 - создается массив DC: array of HDC;
 - в DC[I] копируется DC1;
 - в DC[I] AlphaBlend DC2, BlendValue = I;
 - с определенной задержкой в DC1 копируется поочередно DC[I];
 - задержку обеспечивал с помощью таймера

Не работает.

Заранее признателен Алексей, мой mail Kirsanov-Alex@Yandex.ru


antonn   (2007-11-07 23:40:00) [1]


> - создается массив DC: array of HDC;

ну я бы создал массив из Tbitmap :) Но вроде как более материален, чем непонятный HDC :)


Наверх

Титульная страница Поиск, карта сайта Написать письмо