anchor.diff:    FXScroll := FHScrollBar.Position;
     FLastXScroll := FXScroll;
   
  -  FVScrollbar.OnScroll  := @FVScrollbarScroll;
  +  FVScrollbar.OnScroll := @FVScrollbarScroll;
  +  FHScrollbar.OnScroll := @FHScrollbarScroll;
   End;
   
   Procedure TRichTextView.SetupCursor;
  
positive.code:   Canvas.ClearClipRect;
    DrawBorder;
  writeln('DEBUG:  TRichTextView.HandlePaint   1');
    TextRect := GetTextAreaRect;
    Canvas.SetClipRect(TextRect);
  
  ProfileEvent('DEBUG:  TRichTextView.HandlePaint   2');
    Canvas.Color := BackgroundColor;
    Canvas.FillRectangle(TextRect);
  
  ProfileEvent('DEBUG:  TRichTextView.HandlePaint   3');
    if InDesigner then
  
negative.code:   HWidth  := Width - 4;
  
    if FVScrollBar.Visible then
      Dec(HWidth, FScrollbarWidth);
    if FHScrollBar.Visible then
      Dec(VHeight, FScrollbarWidth);
  
    FHScrollBar.Top     := Height -FHScrollBar.Height - 2;
    FHScrollBar.Left    := 2;
  