anchor.diff:  
       tpBottom:
         begin
  -        p1 := Height - FMargin - Buttonheight;
  +        p1 := Height - FMargin - ButtonHeight;
           p2 := Height - FMargin;
         end;
   
  
positive.code:     tpTop:
        begin
          lTxtFlags += TextFlagsDflt;
          if MaxButtonWidthSum > (Width-(FMargin*2)) then
          begin
            if FFirstTabButton = nil then
              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;
          end
          else
          begin
            FLeftButton.Visible   := False;
            FRightButton.Visible  := False;
          end;
  
          lp := 0;
          r2.SetRect(2, 2, 50, 21);
          while h <> nil do
  
negative.code:     FOnChange: TTabSheetChange;
      FRightButton: TfpgButton;         // bottom/right
      FLeftButton: TfpgButton;          // left/top
      FFirstTabButton: TfpgTabSheet;    // when tabs don't fit in screen this is the first button on screen when tabs are scrolled
      FSortPages: boolean;
      FStyle: TfpgTabStyle;
      FTabPosition: TfpgTabPosition;
  