gif (animated) aus Resource-Dateie in TImage laden

[Dani]

Moin,

Ersetze 'JPEG' durch 'GIFIMG' und es sollte gehen.
in RC:
------

Code:

Picture   GIFIMG   "..\Bilder\Picture.gif"

zum Auslesen:
-------------

Delphi-Quellcode:

 
var 
  TempGif: TGifImage; 
  ResStream: TResourceStream; 

begin 
  ResStream := TResourceStream.Create(HInstance, 'Picture', 'GIFIMG');
  TempGif  := TGifImage.Create; 

  try 
    TempGif.LoadFromStream(ResStream); 
    Image.Picture.Bitmap.Assign(TempGif); 

  finally 
    FreeAndNil(ResStream); 
    FreeAndNil(TempGif); 

  end; 
end;