Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.04.15;
Скачать: CL | DM;

Вниз

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

 
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 вся ветка

Текущий архив: 2007.04.15;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.045 c
2-1174549272
tery
2007-03-22 10:41
2007.04.15
Помогите


1-1172039173
samum
2007-02-21 09:26
2007.04.15
Передача строк между потоками приложения


3-1169627283
Alex'
2007-01-24 11:28
2007.04.15
Передача параметра-массива в процедуру (Oracle 10g XE)


5-1151065835
Артёмич
2006-06-23 16:30
2007.04.15
TreeView передвежение главных item ов вверх, вниз


2-1174592426
CatRin
2007-03-22 22:40
2007.04.15
Люди! Срочно! Помогите!