load from any resource

bgraspriteanimation.pas

@@ -547,8 +547,16 @@ begin
 end;
 
 procedure TBGRASpriteAnimation.LoadFromBitmapResource(const Resource: string);
-begin
-  LoadFromResourceName(HInstance, Resource);
+var
+  tempGif: TBGRAAnimatedGif;
+begin
+  tempGif := TBGRAAnimatedGif.Create;
+  try
+    tempGif.LoadFromResource(Resource);
+    GifImageToSprite(tempGif);
+  finally
+    tempGif.Free;
+  end;
 end;
 
 procedure TBGRASpriteAnimation.LoadFromBGRABitmap(const BGRA: TBGRABitmap);