anchor.diff:  procedure TfpgBaseCheckBox.HandlePaint;
   var
     r: TfpgRect;
  -  ty: integer;
  -  tx: integer;
     ix: integer;
     img: TfpgImage;
  -  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)
  -  else
  -    r.SetRect(Width - FBoxSize - 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 - FBoxSize) div 2), FBoxSize, FBoxSize);
     if r.top < 0 then
       r.top := 0;
   
  
positive.code:     FFont: TfpgFont;
      FBoxLayout: TBoxLayout;
      FBoxSize: integer;
      FIsPressed: boolean;
      function    GetBoxLayout: TBoxLayout;
      function    GetFontDesc: string;
  
negative.code: begin
    FFont.Free;
    FFont := fpgGetFont(AValue);
    { TODO: Implement AutoSize property, then adjust width here if True }
    RePaint;
  end;
  
  