Merge remote-tracking branch 'dibo/fpgimganim' into develop

This adds the ability to read image data from a in-memmory byte array,
instead of always from a file. Thanks Dibo!

1 files changed, 23 insertions, 0 deletions

diff --git a/src/gui/fpg_animation.pas b/src/gui/fpg_animation.pas
index 36972877..29a80960 100644
--- a/src/gui/fpg_animation.pas
+++ b/src/gui/fpg_animation.pas
@@ -31,6 +31,8 @@ uses
 
 type
 
+  { TfpgBaseImgAnim }
+
   TfpgBaseImgAnim = class(TfpgWidget)
   private
     FFrameCount: integer;
@@ -58,6 +60,8 @@ type
   public
     constructor Create(AOwner: TComponent); override;
     destructor  Destroy; override;
+
+    procedure   ImageFromByteArray(ABmp: Pointer; ASize: longword; AMaskSample: TPoint);
   end;
 
 
@@ -161,6 +165,25 @@ begin
   Repaint;
 end;
 
+procedure TfpgBaseImgAnim.ImageFromByteArray(ABmp: Pointer; ASize: longword;
+  AMaskSample: TPoint);
+begin
+  if ABmp=nil then
+    Exit;
+
+  FTimer.Enabled := False;
+  FImage.Free;
+  FImage := CreateImage_BMP(ABmp, ASize);
+  if FTransparent then
+  begin
+    FImage.CreateMaskFromSample(AMaskSample.X, AMaskSample.Y);
+    FImage.UpdateImage;
+  end;
+  FImageFilename := 'byte'; // because handle paint check if file is set
+  RecalcImageWidth;
+  Repaint;
+end;
+
 constructor TfpgBaseImgAnim.Create(AOwner: TComponent);
 begin
   inherited Create(AOwner);