anchor.diff:  end;
   
   procedure TfpgPageControl.RePaintTitles;
  +const
  +  TabHeight = 21;
   var
  +  TabW, TabH: Integer;
     r2: TfpgRect;
     r3: TfpgRect;
     h: TfpgTabSheet;
     lp: integer;
     toffset: integer;
  +  TextLeft, TextTop: Integer;
     dx: integer;
     lTxtFlags: TFTextFlags;
   begin
  
positive.code:     FPages: TList;
      FActivePageIndex: integer;
      FOnChange: TTabSheetChange;
      FRightButton: TfpgButton;
      FLeftButton: TfpgButton;
      FFirstTabButton: TfpgTabSheet;
      FSortPages: boolean;
      FStyle: TfpgTabStyle;
  
negative.code:             FFirstTabButton := h
            else
              h := FFirstTabButton;
            FLeftButton.SetPosition(Width - (FRightButton.Width * 2), FMargin, FRightButton.Height, FRightButton.Height);
            FRightButton.SetPosition(Width - FrightButton.Width, FMargin, FRightButton.Height, FRightButton.Height);
            FLeftButton.Visible   := True;
            FRightButton.Visible  := True;
  