anchor.diff:    fpg_widget;
   
   type
  +
  +  { TfpgBaseImgAnim }
   
     TfpgBaseImgAnim = class(TfpgWidget)
     private
  
positive.code:   public
      constructor Create(AOwner: TComponent); override;
      destructor  Destroy; override;
    end;
  
  
  
negative.code:   Repaint;
  end;
  
  procedure TfpgBaseImgAnim.ImageFromByte(ABmp: Pointer; ASize: longword);
  begin
    if ABmp=nil then
      Exit;
  
    FTimer.Enabled := False;
    FImage.Free;
    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
    RecalcImageWidth;
    Repaint;
  end;
  
  constructor TfpgBaseImgAnim.Create(AOwner: TComponent);
  begin
    inherited Create(AOwner);
  