anchor.diff:    if FFixedTabHeight > 0 then
       result := FFixedTabHeight
     else
  -    result := FFont.Height + 10;   { TODO: correct this }
  +    result := fpgStyle.DefaultFont.Height + 10;   { TODO: correct this }
   end;
   
   function TfpgPageControl.ButtonWidth(AText: string): 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: constructor TfpgPageControl.Create(AOwner: TComponent);
  begin
    inherited Create(AOwner);
    FPages  := TList.Create;
    Width   := 150;
    Height  := 100;
  