anchor.diff:    if Mode = 2 then
     begin
       r.Height -= 1;
  +    if TabPosition = tpBottom then
  +      r.Top += 1;
       Canvas.SetColor(ActiveTabColor);
     end
     else
  
positive.code: begin
    if FFixedTabHeight = AValue then
      Exit; //==>
    if AValue > 5 then
    begin
      FFixedTabHeight := AValue;
      RePaint;
  
negative.code: begin
    if FFixedTabWidth = AValue then
      Exit; //==>
    if AValue >= 5 then
    begin
      FFixedTabWidth := AValue;
      RePaint;
  