anchor.diff:    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;
  
positive.code:     FActivePage: TfpgTabSheet;
      FMargin: integer;
      FFixedTabWidth: integer;
      FPages: TList;
      FActivePageIndex: integer;
      FOnChange: TTabSheetChange;
  
negative.code:     property    ActivePageIndex: integer read GetActivePageIndex write SetActivePageIndex;
      property    BackgroundColor;
      property    FixedTabWidth: integer read FFixedTabWidth write SetFixedTabWidth default 0;
      property    FixedTabHeight: integer read FFixedTabHeight write SetFixedTabHeight default 21;
      property    Hint;
      property    ParentShowHint;
      property    ShowHint;
  