anchor.diff:  begin
     inherited HandleRMouseUp(x, y, shiftstate);
   //  ShowDefaultPopupMenu(x, y, ShiftState);
  -  if not Assigned(FPopupMenu) then
  -  begin
  -    FPopupMenu := TfpgPopupMenu.Create(self);
  -    FPopupMenu.AddMenuItem('Close Tab', '', @pmCloseTab);
  -  end;
  -  FPopupMenu.ShowAt(self, x, y);
  +  if to_PMenuClose in FTabOptions then
  +  begin
  +    if not Assigned(FPopupMenu) then
  +    begin
  +      FPopupMenu := TfpgPopupMenu.Create(self);
  +      FPopupMenu.AddMenuItem('Close Tab', '', @pmCloseTab);
  +    end;
  +    FPopupMenu.ShowAt(self, x, y);
  +  end;
   end;
   
   procedure TfpgPageControl.HandleKeyPress(var keycode: word;
  
positive.code:   FWidth  := 150;
    FHeight := 100;
    FIsContainer := True;
  
    FTextColor        := Parent.TextColor;
    FBackgroundColor  := Parent.BackgroundColor;
  
negative.code:     FStyle: TfpgTabStyle;
      FTabPosition: TfpgTabPosition;
      FPopupMenu: TfpgPopupMenu;
      FTabOptions: TfpgTabOptions;
      function    GetActivePageIndex: integer;
      function    GetPage(AIndex: integer): TfpgTabSheet;
      function    GetPageCount: Integer;
  