anchor.diff:  begin
     Result := Width;
     //if FBorderStyle <> bsNone then
  -  //  dec( Result, 4 );
  +  dec( Result, 4 ); // borders of component
     dec( Result, FScrollBarWidth ); // always allow space for vscrollbar
   end;
   
  
positive.code: 
  Procedure TRichTextView.DebugMIClick( Sender: TObject );
  begin
    Debug := not Debug;
  end;
  
  Procedure TRichTextView.DefaultMenuPopup( Sender: TObject );
  
negative.code: *)
  
  Procedure TRichTextView.DoVerticalScroll( NewY: longint );
  //var
  //  ScrollDistance: longint;
  begin
    FYScroll := 0 - NewY;
  
    if not Visible then
    begin
  