anchor.diff:      FBoxLayout: TBoxLayout;
       FBoxSize: integer;
       FIsPressed: boolean;
  +    FImgTextSpacing: integer;
       function    GetBoxLayout: TBoxLayout;
       function    GetFontDesc: string;
       procedure   SetBoxLayout(const AValue: TBoxLayout);
  
positive.code:     procedure   SetFontDesc(const AValue: string);
      procedure   SetText(const AValue: string);
      procedure   DoAdjustWidth;
    protected
      procedure   HandlePaint; override;
      procedure   HandleLMouseDown(x, y: integer; shiftstate: TShiftState); override;
      procedure   HandleLMouseUp(x, y: integer; shiftstate: TShiftState); override;
      procedure   HandleKeyPress(var keycode: word; var shiftstate: TShiftState; var consumed: boolean); override;
      procedure   HandleKeyRelease(var keycode: word; var shiftstate: TShiftState; var consumed: boolean); override;
      function    FindNeighbour(direction: TFocusSearchDirection): TfpgRadioButton;
    public
      constructor Create(AOwner: TComponent); override;
      destructor  Destroy; override;
  
negative.code: procedure TfpgRadioButton.HandlePaint;
  var
    r: TfpgRect;
    img: TfpgImage;
    ix: integer;
    LFlags: TFTextFlags;
  begin
    inherited HandlePaint;
    Canvas.ClearClipRect;
    Canvas.SetColor(FBackgroundColor);
    Canvas.FillRectangle(0, 0, Width, Height);
    Canvas.SetFont(Font);
    Canvas.SetLineStyle(1, lsSolid);
  
    if FBoxLayout = tbLeftBox then
      r.SetRect(2, ((Height - FBoxSize) div 2), FBoxSize, FBoxSize)
    else
      r.SetRect(Width - FBoxSize - 2, ((Height - FBoxSize) div 2), FBoxSize, FBoxSize);
    if r.top < 0 then
      r.top := 0;
  
  