anchor.diff:    end;
   end;
   
  -function TfpgPageControl.FindNextPage(ACurrent: TfpgTabSheet; AForward: boolean
  -  ): TfpgTabSheet;
  +function TfpgPageControl.FindNextPage(ACurrent: TfpgTabSheet; AForward: boolean): TfpgTabSheet;
   begin
     // To be completed
     result := nil;
  
positive.code:   ActiveWidget := nil;
    FFirstTabButton := nil;
    inherited Destroy;
  end;
  
  function TfpgPageControl.TabSheetAtPos(const x, y: integer): TfpgTabSheet;
  
negative.code:     procedure   HandleLMouseUp(x, y: integer; shiftstate: TShiftState); override;
      procedure   HandleRMouseUp(x, y: integer; shiftstate: TShiftState); override;
      procedure   HandleKeyPress(var keycode: word; var shiftstate: TShiftState; var consumed: boolean); override;
      procedure   RePaint; override;
    public
      constructor Create(AOwner: TComponent); override;
      destructor  Destroy; override;
      procedure   BeginUpdate;
      procedure   EndUpdate;
      function    TabSheetAtPos(const x, y: integer): TfpgTabSheet;
      function    AppendTabSheet(ATitle: string): TfpgTabSheet;
      procedure   RemoveTabSheet(ATabSheet: TfpgTabSheet);
  