anchor.diff:  *)
   
   Procedure TRichTextView.DoVerticalScroll( NewY: longint );
  -
  -var
  -  ScrollDistance: longint;
  -begin
  -  FYScroll := NewY;
  +//var
  +//  ScrollDistance: longint;
  +begin
  +  FYScroll := 0 - NewY;
   
     if not Visible then
     begin
  
positive.code:   MaxDisplayWidth: longint;
    AvailableHeight: longint;
  Begin
  
    // Calculate used and available width
    AvailableWidth := GetTextAreaWidth;
  
    MaxDisplayWidth := FLayout.Width div FontWidthPrecisionFactor;
  
    // Defaults
    FNeedVScroll := false;
    FNeedHScroll := false;
  
    // Horizontal scroll setup
    if MaxDisplayWidth
       > AvailableWidth then
      FNeedHScroll := true;
  
    FHScrollbar.SliderSize := AvailableWidth;
    FHScrollbar.Min := 0;
  
    if FNeedHScroll then
    begin
      FHScrollbar.Max := MaxDisplayWidth;
    end
    else
    begin
      FHScrollBar.Position := 0;
  
negative.code:     procedure HandleHide; override;
      procedure HandleKeyPress(var keycode: word; var shiftstate: TShiftState; var consumed: boolean); override;
      procedure HandleRMouseUp(x, y: integer; shiftstate: TShiftState); override;
      procedure HandleMouseScroll(x, y: integer; shiftstate: TShiftState; delta: smallint); override;
  
      //procedure ScanEvent( Var KeyCode: TKeyCode;
      //                     RepeatCount: Byte ); override;
  