Как работать с GIF файлами 2

Delphi , Графика и Игры , GIF

Автор: МММ
WEB-сайт: http://forum.vingrad.ru

из файловов GIF (анимированных) вытаскивает каждую картинку в отдельности, или записывает в отдельный BMP по очереди Для этих программок нужен всеми любимый RX Lib !!!

procedure TForm1.Button4Click(Sender: TObject);
var
  i, a: integer;
  bm: TBItmap;
begin
  a := 0;
  bm := TBItmap.Create;
  bm.Height := RxGIFAnimator1.Height;
  bm.Width := RxGIFAnimator1.Image.Count * RxGIFAnimator1.width;
  for i := 0 to RxGIFAnimator1.Image.Count - 1 do
  begin
    RxGIFAnimator1.FrameIndex := i;
    bm.Canvas.Draw(a, 0, RxGIFAnimator1.Image.Frames[i].Bitmap);
    a := a + RxGIFAnimator1.Height;
  end;
  //form1.Canvas.Draw(0,0,bm);
  bm.SaveToFile(Edit1.Text + '.bmp');
  bm.free;
end;

Статья Как работать с GIF файлами 2 раздела Графика и Игры GIF может быть полезна для разработчиков на Delphi и FreePascal.

Комментарии и вопросы

:: Главная :: GIF ::