anchor.diff:      FMargin: integer;
       FFixedTabWidth: integer;
       FFixedTabHeight: Integer;
  +    FOnClosingTabSheet: TTabSheetClosing;
       FPages: TList;
       FActivePageIndex: integer;
       FOnChange: TTabSheetChange;
  
positive.code: 
  
    TTabSheetChange = procedure(Sender: TObject; NewActiveSheet: TfpgTabSheet) of object;
    
    
    TfpgPageControl = class(TfpgWidget)
  
negative.code:     FSortPages: boolean;
      FStyle: TfpgTabStyle;
      FTabPosition: TfpgTabPosition;
      FPopupMenu: TfpgPopupMenu;
      function    GetActivePageIndex: integer;
      function    GetPage(AIndex: integer): TfpgTabSheet;
      function    GetPageCount: Integer;
  