anchor.diff:      Canvas.DrawText(r, Text, lTextFlags);
     end
     else
  -    fpgStyle.DrawString(Canvas, tx+pofs, ty+pofs, Text, Enabled);
  +    fpgStyle.DrawString(Canvas, tx+offset.x, ty+offset.y, Text, Enabled);
   end;
   
   procedure TfpgBaseButton.DoPush;
  
positive.code:   Canvas.SetFont(Font);
  
    if FDown then
      pofs := 1
    else
      pofs := 0;
  
    CalculatePositions (ix, iy, tx, ty);
  
    if FShowImage and Assigned(FImage) then
    begin
      if Enabled then
        Canvas.DrawImage(ix + pofs, iy + pofs, FImage)
      else
      begin
        img := FImage.CreateDisabledImage;
        Canvas.DrawImage(ix + pofs, iy + pofs, img);
        img.Free;
      end;
  
  
negative.code: var
    tx, ty, ix, iy: integer;
    r: TfpgRect;
    offset: TPoint;
    lBtnFlags: TFButtonFlags;
    clr: TfpgColor;
    img: TfpgImage;
  