anchor.diff:      procedure HandlePaint; override;
       procedure HandleHide; override;
       procedure HandleKeyPress(var keycode: word; var shiftstate: TShiftState; var consumed: boolean); override;
  +    procedure HandleRMouseUp(x, y: integer; shiftstate: TShiftState); override;
   
       //procedure ScanEvent( Var KeyCode: TKeyCode;
       //                     RepeatCount: Byte ); override;
  
positive.code:   inherited HandleKeyPress(keycode, shiftstate, consumed);
  end;
  
  Destructor TRichTextView.Destroy;
  Begin
    FDefaultMenu.Free;
  
negative.code: procedure TRichTextView.FVScrollbarScroll(Sender: TObject; position: integer);
  begin
    SetVerticalPosition(position);
  end;
  
  procedure TRichTextView.ShowDefaultPopupMenu(const x, y: integer;
    const shiftstate: TShiftState);
  begin
    if not Assigned(FDefaultMenu) then
      CreateDefaultMenu;
    FDefaultMenu.ShowAt(x, y);
  end;
  
  procedure TRichTextView.DoAllocateWindowHandle(AParent: TfpgWindowBase);
  