anchor.diff:  procedure TATTabs.DoTabDropToOtherControl(ATarget: TControl; const APnt: TPoint);
   var
     ATabs: TATTabs;
  -  NTab, NTabTo: Integer;
  +  NTab, NTabTo: integer;
     Data: TATTabData;
     P: TPoint;
   begin
  
positive.code:     P.Y+FTabIndentXSize);
  end;
  
  procedure TATTabs.GetTabCloseColor(AIndex: Integer; const ARect: TRect;
    var AColorXBg, AColorXBorder, AColorXMark: TColor);
  var
    P: TPoint;
  
negative.code: var
    PL1, PL2, PR1, PR2: TPoint;
    RectText: TRect;
    NIndentL, NIndentR, NIndentTop: integer;
    AType: TATTabElemType;
    AInvert, NAngle: integer;
    TempCaption: atString;
    bNeedMoreSpace: boolean;
  begin
  