anchor.diff:    private
       FPopupMenu: TfpgPopupMenu;
       procedure   FVScrollbarScroll(Sender: TObject; position: integer);
  +    procedure   FHScrollbarScroll(Sender: TObject; position: integer);
       procedure   ShowDefaultPopupMenu(const x, y: integer; const shiftstate: TShiftState); virtual;
       Procedure   CreateDefaultMenu;
       Procedure   SelectAllMIClick( Sender: TObject );
  
positive.code:   // Physical horizontal scroll setup
    FHScrollbar.Visible := FNeedHScroll;
    FHScrollbar.Enabled := FNeedHScroll;
    FHScrollbar.Left := 0;
    FHScrollbar.Top := Height - FScrollBarWidth - 2;
    FHScrollbar.Height := FScrollbarWidth;
    if FNeedVScroll then
      FHScrollbar.Width := Width - FScrollBarWidth - 2
    else
      FHScrollbar.Width := Width - 4;
  
    // Physical vertical scroll setup
    FVScrollbar.Visible := FNeedVScroll;
    FVScrollbar.Enabled := FNeedVScroll;
    FVScrollbar.Left := Width - FScrollbarWidth - 2;
    FVScrollbar.Top := 2;
    FVScrollbar.Width := FScrollbarWidth;
    if FNeedHScroll then
      FVScrollbar.Height := Height - FScrollbarWidth -2
    else
      FVScrollbar.Height := Height - 4;
  
  
negative.code: ProfileEvent('DEBUG:  TRichTextView.HandlePaint   5');
    Canvas.ClearClipRect;
  
    if FHScrollbar.Visible and FVScrollbar.Visible then
    begin
      // blank out corner between scrollbars
      CornerRect.Left := Width - 2 - FScrollBarWidth;
      CornerRect.Top := Height - 2 - FScrollBarWidth;
      CornerRect.Width := FScrollBarWidth;
      CornerRect.Height := FScrollBarWidth;
      Canvas.Color := clButtonFace;
  