Delphi TGIFImage animation issue with some GIF viewers
I have discovered that animated GIFs created using Delphi 2009's TGIFImage sometimes doesn't play correctly in some GIF viewers. The problem is that the animation is restarted prematurely. Consider the following example: program GIFAnomaly; {$APPTYPE CONSOLE} uses Windows, Types, Classes, SysUtils, Graphics, GIFImg; var g: TGIFImage; bm: TBitmap; procedure MakeFrame(n: integer); var x: Integer; y: Integer; begin for x := 0 to 256 - 1 do for y := 0 to 256 - 1 do bm.Canvas.Pixels[x, y] := RGB((x + n) mod 255, (x + y - 2*n) mod 255, (x*y*n div 500) mod 255); end; var i: integer; begin bm :=