anchor.diff:      FActivePage: TfpgTabSheet;
       FMargin: integer;
       FFixedTabWidth: integer;
  +    FFixedTabHeight: Integer;
       FPages: TList;
       FActivePageIndex: integer;
       FOnChange: TTabSheetChange;
  
positive.code:     function    ButtonHeight: integer;
      function    ButtonWidth(AText: string): integer;
      procedure   SetFixedTabWidth(const AValue: integer);
      function    GetTabText(AText: string): string;
      procedure   LeftButtonClick(Sender: TObject);
      procedure   RightButtonClick(Sender: TObject);
  
negative.code:   if AValue > 5 then
    begin
      FFixedTabWidth := AValue;
      RePaint;
    end;
  end;
  
  procedure TfpgPageControl.SetFixedTabHeight(const AValue: integer);
  begin
    if FFixedTabHeight = AValue then
      Exit; //==>
    if AValue > 5 then
    begin
      FFixedTabHeight := AValue;
      RePaint;
    end;
  end;
  