anchor.diff:  procedure TfpgRadioButton.HandlePaint;
   var
     r: TfpgRect;
  -  ty: integer;
  -  tx: integer;
     img: TfpgImage;
     ix: integer;
  -  cliprect: TfpgRect;
  +  LFlags: TFTextFlags;
   begin
     inherited HandlePaint;
  -
  +  Canvas.ClearClipRect;
     Canvas.SetColor(FBackgroundColor);
     Canvas.FillRectangle(0, 0, Width, Height);
     Canvas.SetFont(Font);
  -  cliprect.SetRect(1, 1, Width-2, Height-2);
  -
  -  if FFocused then
  -  begin
  -    Canvas.SetColor(clText1);
  -    Canvas.SetLineStyle(1, lsDot);
  -    Canvas.DrawRectangle(cliprect);
  -    InflateRect(cliprect, 1, 1);
  -  end;
  -  Canvas.SetClipRect(cliprect);
     Canvas.SetLineStyle(1, lsSolid);
   
     if FBoxLayout = tbLeftBox then
  -    r.SetRect(2, (Height div 2) - (FBoxSize div 2), FBoxSize, FBoxSize)
  +    r.SetRect(2, ((Height - FBoxSize) div 2), FBoxSize, FBoxSize)
     else
  -    r.SetRect(Width - FBoxSize - 2, (Height div 2) - (FBoxSize div 2), FBoxSize, FBoxSize);
  +    r.SetRect(Width - FBoxSize - 2, ((Height - FBoxSize) div 2), FBoxSize, FBoxSize);
     if r.top < 0 then
       r.top := 0;
   
  
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:   FAutoSize   := False;
    FOnChange   := nil;
    FBoxLayout  := tbLeftBox;
    FImgTextSpacing := 6;
  end;
  
  destructor TfpgRadioButton.Destroy;
  