anchor.diff:  
   procedure TfpgBaseImgAnim.HandlePaint;
   begin
  -  if (FImageFilename = '') or (FImage = nil) then
  +  if (FImage = nil) then
       Exit; //==>
     Canvas.BeginDraw;
     Canvas.Clear(clWindowBackground);
  
positive.code:   fpg_widget;
  
  type
  
    { TfpgBaseImgAnim }
  
    TfpgBaseImgAnim = class(TfpgWidget)
    private
  
negative.code:     FImage.CreateMaskFromSample(AMaskSample.X, AMaskSample.Y);
      FImage.UpdateImage;
    end;
    RecalcImageWidth;
    Repaint;
  end;
  