anchor.diff:    if FFixedTabWidth > 0 then
       result := FFixedTabWidth
     else
  -    result := FFont.TextWidth(AText) + 10;
  +    result := fpgStyle.DefaultFont.TextWidth(AText) + 10;
   end;
   
   procedure TfpgPageControl.SetFixedTabWidth(const AValue: integer);
  
positive.code:   
    TfpgPageControl = class(TfpgWidget)
    private
      FFont: TfpgFont;
      FActivePage: TfpgTabSheet;
      FMargin: integer;
      FFixedTabWidth: integer;
  
negative.code:   i       := 1;
    if FFixedTabWidth > 0 then
    begin
      while fpgStyle.DefaultFont.TextWidth(s1) < (FFixedTabWidth-10) do
      begin
        if Length(s1) = Length(s) then
          Break;
        s1 := UTF8Copy(s, 1, i);
        inc(i);
      end;
      if fpgStyle.DefaultFont.TextWidth(s1) > (FFixedTabWidth-10) then
        UTF8Delete(s1, UTF8Length(s1), 1);
      if Length(s1) > 0 then
        s1 := Trim(s1);
  