anchor.diff:      procedure   SetName(const NewName: TComponentName); override;
     public
       constructor Create(AOwner: TComponent); override;
  +    constructor CreateWithTitle(AOwner: TComponent; const AText: TfpgString = ''); virtual;
       destructor  Destroy; override;
  +    procedure   AfterConstruction; override;
       property    PageIndex: Integer read GetPageIndex write SetPageIndex;
       property    PageControl: TfpgPageControl read FPageControl write SetPageControl;
       property    TabVisible: boolean read FTabVisible write FTabVisible;
  
positive.code:     FActivePageIndex := FPages.IndexOf(AValue);
    RePaint;
    DoPageChange(FActivePage);
  end;
  
  function TfpgPageControl.MaxButtonWidthSum: integer;
  
negative.code:   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;
  