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:   if FFixedTabWidth > 0 then
      result := FFixedTabWidth
    else
      result := FFont.TextWidth(AText) + 10;
  end;
  
  procedure TfpgPageControl.SetFixedTabWidth(const AValue: integer);
  
negative.code: constructor TfpgPageControl.Create(AOwner: TComponent);
  begin
    inherited Create(AOwner);
    FPages  := TList.Create;
    Width   := 150;
    Height  := 100;
  