GIF image transparent - wie

[eholzer]

Hallo,

ich versuche verzweifelt ein GIF Image transparent in einem TImage darzustellen:

Delphi-Quellcode:

Image1.Picture.LoadFromFile('D:\Downloads\blumen00047.gif');
  gif := (Image1.Picture.Graphic as TGifImage);
  gif.Animate := true;
  if gif.IsTransparent then
    gif.Transparent:= true;

Das funktioniert leider nicht, d.h. die Animation funktioniert, aber hintergrund ist immer schwarz.
Was mache ich falsch?

Danke für die Hilfe
Eric

[himitsu]

TImage nimmt standardmäßig als transparente Farbe, die Farbe des Pixel oben links (oder war's unten links) im geladenen Bild, wenn man nur das Transparent auf True setzt.
Bin mir nicht ganz sicher, aber ich glaub man kann die transparente Farbe auch einstellen, wo du dann explizit dein "Schwarz" angeben müstest.

[DeddyH]

Es war unten links. Aber der TE setzt ja nicht TImage, sondern TGIFImage auf transparent, TImage würde laut Hilfe auch nicht funktionieren.

Zitat:

Anmerkung: Transparent wirkt sich nur dann aus, wenn in der Eigenschaft Picture ein TBitmap-Object enthalten ist.

[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