anchor.diff:      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);
  
positive.code:     FPopupMenu: TfpgPopupMenu;
      FTabOptions: TfpgTabOptions;
      FLastRClickPos: TfpgPoint;
      function    GetActivePageIndex: integer;
      function    GetPage(AIndex: integer): TfpgTabSheet;
      function    GetPageCount: Integer;
  
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);
  