anchor.diff:  
         if FOptShowXButtons<>atbxShowNone then
           if not Data.TabHideXButton then
  -          Inc(FTabWidth, FOptSpaceXSize);
  -
  -      if FTabWidth<FOptTabWidthMinimal then
  -        FTabWidth:= FOptTabWidthMinimal;
  -      if FTabWidth>FOptTabWidthMaximal then
  -        FTabWidth:= FOptTabWidthMaximal;
  +          Inc(FTabWidth, DoScale(FOptSpaceXSize));
  +
  +      if FTabWidth<DoScale(FOptTabWidthMinimal) then
  +        FTabWidth:= DoScale(FOptTabWidthMinimal);
  +      if FTabWidth>DoScale(FOptTabWidthMaximal) then
  +        FTabWidth:= DoScale(FOptTabWidthMaximal);
       end;
   
       if FOptMultiline and (i>0) then
  
positive.code:   P: TPoint;
  begin
    P:= Point(
      ARect.Right-FOptSpaceXRight,
      (ARect.Top+ARect.Bottom) div 2 + 1);
    Dec(P.X, FOptSpaceXSize div 2);
    Dec(P.Y, FOptSpaceXSize div 2);
    Result:= Rect(
      P.X,
      P.Y,
      P.X+FOptSpaceXSize,
      P.Y+FOptSpaceXSize);
  end;
  
  function TATTabs._IsDrag: boolean;
  
negative.code:     Result:= ClientWidth;
      case FOptPosition of
        atpLeft:
          Dec(Result, DoScale(FOptSpacer2));
        atpRight:
          Dec(Result, DoScale(FOptSpacer));
      end;
    end;
  end;
  