anchor.diff:    Repaint;
   end;
   
  -procedure TfpgBaseImgAnim.ImageFromByte(ABmp: Pointer; ASize: longword);
  +procedure TfpgBaseImgAnim.ImageFromByteArray(ABmp: Pointer; ASize: longword;
  +  AMaskSample: TPoint);
   begin
     if ABmp=nil then
       Exit;
  
positive.code:   FImage := CreateImage_BMP(ABmp, ASize);
    if FTransparent then
    begin
      FImage.CreateMaskFromSample(0, 0);
      FImage.UpdateImage;
    end;
    FImageFilename := 'byte'; // because handle paint check if file is set
  
negative.code:     constructor Create(AOwner: TComponent); override;
      destructor  Destroy; override;
  
      procedure   ImageFromByteArray(ABmp: Pointer; ASize: longword; AMaskSample: TPoint);
    end;
  
  
  