anchor.diff:  var
     tx, ty, ix, iy: integer;
     r: TfpgRect;
  -  pofs: integer;
  +  offset: TPoint;
     lBtnFlags: TFButtonFlags;
     clr: TfpgColor;
     img: TfpgImage;
  
positive.code:     Canvas.DrawText(r, Text, lTextFlags);
    end
    else
      fpgStyle.DrawString(Canvas, tx+pofs, ty+pofs, Text, Enabled);
  end;
  
  procedure TfpgBaseButton.DoPush;
  
negative.code:       r.Width -= ix;
      end;
      if FDown then
       OffsetRect(r, offset.x, offset.y);
  
      lTextFlags := [txtHCenter, txtVCenter{, txtWrap}];
      if not Enabled then
  