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