anchor.diff:  
         R.Top:= R.Bottom;
         if i>0 then
  -        Inc(R.Top, FOptSpaceBetweenTabs);
  +        Inc(R.Top, DoScale(FOptSpaceBetweenTabs));
   
         if Data.TabSpecialHeight>0 then
           NLineHeight:= Data.TabSpecialHeight
  
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:         end;
        atpLeft:
          begin
            RBottom:= Rect(ClientWidth-DoScale(FOptSpacer2), 0, ClientWidth, ClientHeight);
            NLineX1:= RBottom.Left;
            NLineY1:= RBottom.Top;
            NLineX2:= RBottom.Left;
  