anchor.diff:    FWidth  := 150;
     FHeight := 100;
     FIsContainer := True;
  +  FTabOptions  := [];
   
     FTextColor        := Parent.TextColor;
     FBackgroundColor  := Parent.BackgroundColor;
  
positive.code:     property    FixedTabWidth: integer read FFixedTabWidth write SetFixedTabWidth default 0;
      property    FixedTabHeight: integer read FFixedTabHeight write SetFixedTabHeight default 21;
      property    Hint;
      property    ParentShowHint;
      property    ShowHint;
      property    SortPages: boolean read FSortPages write SetSortPages default False;
  
negative.code: begin
    inherited HandleRMouseUp(x, y, shiftstate);
  //  ShowDefaultPopupMenu(x, y, ShiftState);
    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;
  