Как сделать AniGIF
Друмлин © (2002-05-21 09:05:00)
Как мне из ряда картинок собрать анимированный гиф?
Спасибо!
Evgeny (2002-05-23 05:35:00) [1]
Используя библиотеку RXLib - это делается очень просто.
var
FImage : TGIFImage;
Pic : TPicture;
begin
FImage := TGIFImage.Create;
FImage.Looping := True; // крутить в цикле
Pic := TPicture.Create;
FImage.LoadFromFile(1 фрейм); // загрузим 1 кадр
FImage.Frames[0].AnimateInterval := 2000; // время задержки
Pic.LoadFromFile(2 фрейм); // загрузим 2 (и след. кадры)
FImage.AddFrame(Pic.Graphic);
FImage.Frames[1].AnimateInterval := 1000;
FImage.Frames[1].Origin := Point(7, 19); // позиция кадра
FImage.EncodeAllFrames; // превратить в единый файл
FImage.SaveToFile(полное имя); // сохранить
FImage.Free;
Pic.Free;
end.
Наверх 
ЧАТ |
Орешник |
|
