Transparentes Gif mit diesem Tutorial erstellen ?

[Neutral General]

Hi,

Habe kein TGIFImage installiert, deswegen kann ich dir nicht so aktiv helfen.

Aber versuch doch mal die andere Variante:

Delphi-Quellcode:

var
  GIF: TGIFImage;
  Ext: TGIFGraphicControlExtension;
begin
  GIF := TGIFImage.Create;
  try
    // Convert bitmap to GIF
    GIF.Assign(Bitmap);
 
    // Create an extension to set the transparency flag
    Ext := TGIFGraphicControlExtension.Create(GIF.Images[0]);
    Ext.Transparent := True;
 
    // Set transparent color to lower left pixel color
    Ext.TransparentColorIndex := GIF.Images[0].Pixels[0, GIF.Height-1];
 
    // Do something with the GIF here...
    ...
  finally
    GIF.Free;
  end;
end;

Gruß
Neutral General