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

← →
Алексей © (2007-11-07 22:21) [0]

Попосил бы помочь, я не могу написать процедуру:
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) [1]

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

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

Анимационный вывод изображения Найти похожие ветки