anchor.diff:  ProfileEvent('DEBUG:  TRichTextView.HandlePaint   5');
     Canvas.ClearClipRect;
   
  -  if FNeedHScroll then
  +  if FHScrollbar.Visible and FVScrollbar.Visible then
     begin
       // blank out corner between scrollbars
  -    CornerRect.Left := Width - FScrollBarWidth;
  -    CornerRect.Top := FScrollBarWidth;
  +    CornerRect.Left := Width - 2 - FScrollBarWidth;
  +    CornerRect.Top := Height - 2 - FScrollBarWidth;
       CornerRect.Width := FScrollBarWidth;
       CornerRect.Height := FScrollBarWidth;
       Canvas.Color := clButtonFace;
  
positive.code:   Public
      constructor Create(AOwner: TComponent); override;
      destructor  Destroy; Override;
      function    GetClientRect: TfpgRect; override;
      procedure   AddText( Text: PChar; ADelay: boolean = False );
      procedure   AddParagraph( Text: PChar );
  
negative.code: Var
    CornerRect: TfpgRect;
    TextRect: TfpgRect;
    DrawRect: TfpgRect;
    x: integer;
  
    // Just for fun! :-)
  