anchor.diff:      FOnChange: TTabSheetChange;
       FRightButton: TfpgButton;         // bottom/right
       FLeftButton: TfpgButton;          // left/top
  -    FFirstTabButton: TfpgTabSheet;
  +    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;
  
positive.code: 
      tpBottom:
        begin
          p1 := Height - FMargin - Buttonheight;
          p2 := Height - FMargin;
        end;
  
  
negative.code:     tpTop:
        begin
          lTxtFlags += TextFlagsDflt;
          lp := 0;
          r2.SetRect(2, 2, 50, 21);
          while h <> nil do
  