anchor.diff:    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;
  
positive.code:     procedure HandlePaint; override;
      procedure HandleHide; override;
      procedure HandleKeyPress(var keycode: word; var shiftstate: TShiftState; var consumed: boolean); override;
  
      //procedure ScanEvent( Var KeyCode: TKeyCode;
      //                     RepeatCount: Byte ); override;
  
negative.code:     Procedure SetImages( Images: TfpgImageList );
      Procedure Notification( AComponent: TComponent;
                              Operation: TOperation ); override;
    Public
      constructor Create(AOwner: TComponent); override;
      destructor  Destroy; Override;
  