Saving GIF file loses transparency

[dezlov]

When GIF files are saved the transparency information is lost, it is replaced by some determined color (always the same for the same image but can differ between images). This seems to affect all GIF images: I tried on my files, files from internet and "Tigers.gif" that comes with the library.

Code (pascal) Select Expand


procedure TestGIF;
var
  GIF: ImagingComponents.TImagingGIF;
begin
  GIF := ImagingComponents.TImagingGIF.Create;
  try
    GIF.LoadFromFile('Tigers.gif');
    GIF.SaveToFile('Tigers-COPY.gif');
  finally
    GIF.Free;
  end;
end; 


All other file formats were disabled by relevant switches in "ImagingOptions.inc".

Vampyre Imaging Library: 0.26.4 and last committed version [0ed5a8]
Lazarus: 1.0.12 r42478
FPC: 2.6.2 i386-win32-win32/win64
OS: Windows 7 64-bit