anchor.diff:      FMargin: integer;
       FFixedTabWidth: integer;
       FFixedTabHeight: Integer;
  +    FOnClosingTabSheet: TTabSheetClosing;
       FPages: TList;
       FActivePageIndex: integer;
       FOnChange: TTabSheetChange;
  
positive.code:     procedure   SetStyle(const AValue: TfpgTabStyle);
      procedure   SetTabPosition(const AValue: TfpgTabPosition);
      procedure   DoPageChange(ATabSheet: TfpgTabSheet);
      function    DrawTab(const rect: TfpgRect; const Selected: Boolean = False; const Mode: Integer = 1): TfpgRect;
    protected
      procedure   OrderSheets; // currently using bubblesort
  
negative.code:     property    ActivePage: TfpgTabSheet read FActivePage write SetActivePage;
      property    Pages[AIndex: integer]: TfpgTabSheet read GetPage;
      property    OnChange: TTabSheetChange read FOnChange write FOnChange;
      property    OnClosingTabSheet: TTabSheetClosing read FOnClosingTabSheet write FOnClosingTabSheet;
    published
      property    ActivePageIndex: integer read GetActivePageIndex write SetActivePageIndex;
      property    BackgroundColor;
  