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

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

Переходы между слайдами [D7, WinXP]

piratesoft ©   (2006-08-07 19:29:00) 

Добрый день, уважаемые!
Подскажите пожалуйста, как бы сделать красивые переходы между слайдами (обычными Bitmap'ами) например как в powerpoint или adobe premiere.
Заранее весьма благодарен!

---

@!!ex   (2006-08-07 19:41:00) [1]

Посмотрел пример... Во я криво писал. :))
Вообщем функция для вычисления цвета:


Function GetColor(src,dst:TColor; step,stepscount:integer):TColor;
var
R,G,B,SrcR,SrcG,SrcB,DstR,DstG,DstB:byte;
progress:single;
begin
progress:=step/stepscount;

SrcR:=GetRValue(Src);
SrcG:=GetGValue(Src);
SrcB:=GetBValue(Src);

DstR:=GetRValue(Dst);
DstG:=GetGValue(Dst);
DstB:=GetBValue(Dst);

R:=Round(SrcR+(DstR-SrcR)*progress);
G:=Round(SrcG+(DstG-SrcG)*progress);
B:=Round(SrcB+(DstB-SrcB)*progress);

Result:=RGB(R,G,B);
end;


вроде должно работать. Хотя писал я ее здесь, а не в IDE.

---

@!!ex   (2006-08-07 19:31:00) [2]

У меня есть примерчик который плавно меняет цвет.:))
Алгоритм очень простой. надо?

---

Наверх