anchor.diff:  end;
   
   function TRichTextView.GetClientRect: TfpgRect;
  -begin
  -  // Standard border of 2px on all sides
  +var
  +  r: TRect;
  +begin
     Result.SetRect(0, 0, Width, Height);
  -  InflateRect(Result, -2, -2);
  +  case BorderStyle of
  +    ebsNone:
  +        begin
  +          // do nothing
  +        end;
  +    ebsDefault:
  +        begin
  +          r := fpgStyle.GetControlFrameBorders;
  +          InflateRect(Result, -r.Left, -r.Top);  { assuming borders are even on opposite sides }
  +        end;
  +    ebsSingle:
  +        begin
  +          InflateRect(Result, -1, -1);
  +        end;
  +  end;
   end;
   
   
  
positive.code: {
      fpGUI  -  Free Pascal GUI Toolkit
  
      Copyright (C) 2006 - 2011 See the file AUTHORS.txt, included in this
      distribution, for details of the copyright.
  
      See the file COPYING.modifiedLGPL, included in this distribution,
  
negative.code:     Procedure   DebugMIClick( Sender: TObject );
      Procedure   DefaultMenuPopup( Sender: TObject );
      procedure   SetScrollDistance(const AValue: integer);
      procedure SetBorderStyle(AValue: TfpgEditBorderStyle);
    protected
      FFontManager: TCanvasFontManager;
      FRichTextSettings: TRichTextSettings;
  