anchor.diff:    
     TfpgPageControl = class(TfpgWidget)
     private
  -    FFont: TfpgFont;
       FActivePage: TfpgTabSheet;
       FMargin: integer;
       FFixedTabWidth: integer;
  
positive.code:           r3 := DrawTab(r2, h = ActivePage);
            // paint text on non-active tabs
            if h <> ActivePage then
              Canvas.DrawText(lp + (ButtonWidth(h.Text) div 2) - FFont.TextWidth(GetTabText(h.Text)) div 2,
                  FMargin+toffset, GetTabText(h.Text), lTxtFlags);
            r2.Left := r2.Left + r2.Width;
            lp := lp + ButtonWidth(h.Text);
  
negative.code:   if FFixedTabWidth > 0 then
      result := FFixedTabWidth
    else
      result := fpgStyle.DefaultFont.TextWidth(AText) + 10;
  end;
  
  procedure TfpgPageControl.SetFixedTabWidth(const AValue: integer);
  