Переходы между слайдами

← →
piratesoft (2006-08-07 19:29) [0]

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

← →
@!!ex © (2006-08-07 19:31) [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.

Переходы между слайдами Найти похожие ветки