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:     Procedure SetImages( Images: TfpgImageList );
      Procedure Notification( AComponent: TComponent;
                              Operation: TOperation ); override;
  
      // Default Menu
      Procedure CreateDefaultMenu;
      Procedure SelectAllMIClick( Sender: TObject );
      Procedure CopyMIClick( Sender: TObject );
      Procedure RefreshMIClick( Sender: TObject );
      Procedure WordWrapMIClick( Sender: TObject );
      Procedure SmoothScrollMIClick( Sender: TObject );
      Procedure DebugMIClick( Sender: TObject );
      Procedure DefaultMenuPopup( Sender: TObject );
  
    Public
      constructor Create(AOwner: TComponent); override;
      destructor  Destroy; Override;
  
negative.code:   inherited HandleKeyPress(keycode, shiftstate, consumed);
  end;
  
  procedure TRichTextView.HandleRMouseUp(x, y: integer; shiftstate: TShiftState);
  begin
    inherited HandleRMouseUp(x, y, shiftstate);
    if Assigned(PopupMenu) then
      PopupMenu.ShowAt(self, x, y)
    else
      ShowDefaultPopupMenu(x, y, ShiftState);
  end;
  
  Destructor TRichTextView.Destroy;
  Begin
    FDefaultMenu.Free;
  