Transparentes Gif mit diesem Tutorial erstellen ?

[thomas2009]

Hallo

ein Tutorial von dem Author Melander, der TGifImage erschaft hat, funktioniert bei mir nicht richtig

Delphi-Quellcode:

var
  GIF: TGIFImage;
begin
  GIF := TGIFImage.Create;
  try
    // Make bitmap transparent
    Bitmap.Transparent := True;
 
    // Convert bitmap to GIF
    GIF.Assign(Bitmap);
 
    // Do something with the GIF here...
    gif.SaveToFile('MyBitmap_trans.GIF');
  finally
    GIF.Free;
  end;
end;

Origianle hier :

Ich erhalte keine Fehlermeldung aber ich kann die erzeugte gif Datei nicht sehen ?
Ich habe das Tutorial nicht ganz kapiert

[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

[thomas2009]

Ich habe folgendes gemach:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
  GIF: TGIFImage;
  Ext: TGIFGraphicControlExtension;
begin
  GIF := TGIFImage.Create;
  try
    // Convert bitmap to GIF
    GIF.Assign(image1.Picture.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...
    gif.SaveToFile('c:\MyBitmap_trans.GIF');
  finally
    GIF.Free;
  end;
end;

Error: Invalid Pixel coordinates

[thomas2009]

Das Bild kommt mit einem schwarzen Hintergrund, wenn ich die Transparenz aktiviere !