Форум: "Media";
Текущий архив: 2007.04.15;
Скачать: [xml.tar.bz2];
Вниз
Переходы между слайдами Найти похожие ветки
← →
piratesoft (2006-08-07 19:29) [0]Добрый день, уважаемые!
Подскажите пожалуйста, как бы сделать красивые переходы между слайдами (обычными Bitmap"ами) например как в powerpoint или adobe premiere.
Заранее весьма благодарен!
← →
@!!ex © (2006-08-07 19:31) [1]У меня есть примерчик который плавно меняет цвет.:))
Алгоритм очень простой. надо?
← →
@!!ex © (2006-08-07 19:41) [2]Посмотрел пример... Во я криво писал. :))
Вообщем функция для вычисления цвета:
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.
Страницы: 1 вся ветка
Форум: "Media";
Текущий архив: 2007.04.15;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.06 c
