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:   inherited HandleKeyPress(keycode, shiftstate, consumed);
  end;
  
  procedure TfpgPageControl.RePaint;
  begin
    if FUpdateCount > 0 then
      Exit;
    inherited RePaint;
  end;
  
  constructor TfpgPageControl.Create(AOwner: TComponent);
  begin
    inherited Create(AOwner);
  