anchor.diff:      // Rectangle (GetClientRect) minus scrollbars (if they are enabled)
       Function GetDrawRect: TfpgRect;
       // Rectangle minus scrollbars (GetDrawRect), minus extra 2px border all round
  -    Function GetTextAreaRect: TfpgRect;
  -    Function GetTextAreaHeight: longint;
  -    Function GetTextAreaWidth: longint;
  +    function GetTextAreaRect: TfpgRect;
  +    function GetTextAreaHeight: longint;
  +    function GetTextAreaWidth: longint;
   
       // Queries
       procedure GetFirstVisibleLine( Var LineIndex: longint; Var Offset: longint );
  
positive.code:   AvailableWidth: longint;
    MaxDisplayWidth: longint;
    AvailableHeight: longint;
  Begin
    // Calculate used and available width
    AvailableWidth := GetTextAreaWidth;
    MaxDisplayWidth := FLayout.Width;
  
    // Defaults
    FNeedVScroll := false;
    FNeedHScroll := false;
  
    // Horizontal scroll setup
    if MaxDisplayWidth > AvailableWidth then
  
negative.code:   InflateRect(Result, -2, -2);
  end;
  
  function TRichTextView.GetTextAreaHeight: longint;
  begin
    Result := GetTextAreaRect.Height;
  end;
  
  function TRichTextView.GetTextAreaWidth: longint;
  begin
    Result := GetTextAreaRect.Width;
  end;
  
  Procedure TRichTextView.SetupScrollbars;
  