anchor.diff:    fpg_base,
     fpg_main,
     fpg_widget,
  -  fpg_button;
  +  fpg_button,
  +  fpg_menu;
     
   type
     // forward declaration
  
positive.code:   inherited HandleLMouseUp(x, y, shiftstate);
  end;
  
  procedure TfpgPageControl.HandleKeyPress(var keycode: word;
    var shiftstate: TShiftState; var consumed: boolean);
  var
  
negative.code:     procedure   DoPageChange(ATabSheet: TfpgTabSheet);
      procedure   DoTabSheetClosing(ATabSheet: TfpgTabSheet);
      function    DrawTab(const rect: TfpgRect; const Selected: Boolean = False; const Mode: Integer = 1): TfpgRect;
      procedure   pmCloseTab(Sender: TObject);
    protected
      procedure   OrderSheets; // currently using bubblesort
      procedure   RePaintTitles; virtual;
      procedure   HandlePaint; override;
      procedure   HandleShow; override;
      procedure   HandleLMouseUp(x, y: integer; shiftstate: TShiftState); override;
      procedure   HandleRMouseUp(x, y: integer; shiftstate: TShiftState); override;
      procedure   HandleKeyPress(var keycode: word; var shiftstate: TShiftState; var consumed: boolean); override;
    public
      constructor Create(AOwner: TComponent); override;
  