anchor.diff:    ActiveWidget := nil;
     FFirstTabButton := nil;
     inherited Destroy;
  +end;
  +
  +procedure TfpgPageControl.BeginUpdate;
  +begin
  +  Inc(FUpdateCount);
  +end;
  +
  +procedure TfpgPageControl.EndUpdate;
  +begin
  +  Dec(FUpdateCount);
  +  if FUpdateCount <= 0 then
  +    RePaint;
   end;
   
   function TfpgPageControl.TabSheetAtPos(const x, y: integer): TfpgTabSheet;
  
positive.code:     FPopupMenu: TfpgPopupMenu;
      FTabOptions: TfpgTabOptions;
      FLastRClickPos: TfpgPoint;
      function    GetActivePageIndex: integer;
      function    GetPage(AIndex: integer): TfpgTabSheet;
      function    GetPageCount: Integer;
  
negative.code:   end;
  end;
  
  function TfpgPageControl.FindNextPage(ACurrent: TfpgTabSheet; AForward: boolean): TfpgTabSheet;
  begin
    // To be completed
    result := nil;
  