anchor.diff:    inherited Destroy;
   end;
   
  +procedure TfpgTabSheet.AfterConstruction;
  +begin
  +  if (Owner <> nil) and (Owner is TfpgPageControl) then
  +  begin
  +    FPageControl:=TfpgPageControl(Owner);
  +    FPageControl.InsertPage(self, True);
  +  end;
  +  inherited AfterConstruction;
  +end;
  +
   procedure TfpgTabSheet.SetPageControl(APageControl: TfpgPageControl);
   begin
     FPageControl := APageControl;
  
positive.code:     function    GetActivePageIndex: integer;
      function    GetPage(AIndex: integer): TfpgTabSheet;
      function    GetPageCount: Integer;
      procedure   InsertPage(const APage: TfpgTabSheet; SuppressOnChangeEvent: boolean = False);
      procedure   RemovePage(const APage: TfpgTabSheet);
      procedure   SetActivePageIndex(const AValue: integer);
      procedure   SetActivePage(const AValue: TfpgTabSheet);
      function    MaxButtonWidthSum: integer;
      function    MaxButtonHeightSum: integer;
      function    MaxButtonWidth: integer;
  
negative.code:   FBackgroundColor := Parent.BackgroundColor;
    FTextColor := Parent.TextColor;
    FIsContainer := True;
  end;
  
  constructor TfpgTabSheet.CreateWithTitle(AOwner: TComponent; const AText: TfpgString);
  begin
    Create(AOwner);
    FText := AText;
  end;
  
  destructor TfpgTabSheet.Destroy;
  