Topic: GIF Images not loading need help
Hello, I have the following script to load a GIF image but for some reason the image is not loading. No error messages just the image doesn't load.
Please Help.
procedure frm_main_OnShow (Sender: String; Action: string);
var gif: TGIFImage;
var ImageList: TImageList;
begin
gif:=TGIFImage.Create();
gif.LoadFromFile(ExtractFilePath(Application.ExeName)+'Images\gif.gif');
gif.Width:=200;
gif.Height:=200;
gif.Animate:=True;
gif.AnimationSpeed := 500;
frm_main.Panel1.Canvas.Draw(0,0,gif);
gif.free;
end;