GIF image transparent - wie

[eholzer]

Was ich noch probiert habe:

Delphi-Quellcode:

var Ext: TGIFGraphicControlExtension;
  begin
    Image1.Picture.LoadFromFile('D:\Downloads\blumen00047.gif');
    gif := (Image1.Picture.Graphic as TGifImage);
    Ext := TGIFGraphicControlExtension.Create(gif.Images[0]);
    Ext.Transparent := True;

    Ext.TransparentColorIndex :=
        gif.Images[0].ActiveColorMap[gif.Images[0].Pixels[0,
        gif.Height-1]];
    gif.Images[0].Extensions.Add(Ext);
    
    gif.Animate := true;
    if gif.IsTransparent then
       gif.Transparent:= true;
  end

Geht auch nicht - nur die Animation funktioniert.

Danke
Eric