anchor.diff:    ControlStyle:= ControlStyle+[csOpaque];
     DoubleBuffered:= IsDoubleBufferedNeeded;
     DragMode:= dmManual; //required Manual
  -  ParentColor:= false;
  +
  +  //http://delphidabbler.com/tips/76
  +  if (csDesigning in ComponentState) and not
  +    (csReading in AOwner.ComponentState) then
  +    {this is true if the component is dropped on the form}
  +      ParentColor:= false; //defaults to false only at first creation
   
     Width:= 400;
     Height:= 35;
  
positive.code:     ElemType:= aeButtonClose;
  
    R:= FRectButtonClose;
    if R.Right>0 then
      if IsPaintNeeded(ElemType, -1, C, R) then
      begin
        NColor:= IfThen(
          bOver and not _IsDrag,
  
negative.code: 
  procedure TATTabs.ApplyButtonLayout;
    //
    procedure UpdateBtns(var Btns: TATTabButtons; const S: string);
    var
      i: integer;
    begin
      SetLength(Btns, 0);
      for i:= 1 to Length(S) do
        case S[i] of
          '<': AddTabButton(Btns, atbScrollLeft,   FOptButtonSize);
          '>': AddTabButton(Btns, atbScrollRight,  FOptButtonSize);
          'v': AddTabButton(Btns, atbDropdownMenu, FOptButtonSize);
          '+': AddTabButton(Btns, atbPlus,         FOptButtonSize);
          'x': AddTabButton(Btns, atbClose,        FOptButtonSize);
          '0': AddTabButton(Btns, atbUser0,        FOptButtonSize);
          '1': AddTabButton(Btns, atbUser1,        FOptButtonSize);
          '2': AddTabButton(Btns, atbUser2,        FOptButtonSize);
          '3': AddTabButton(Btns, atbUser3,        FOptButtonSize);
          '4': AddTabButton(Btns, atbUser4,        FOptButtonSize);
          '_': AddTabButton(Btns, atbSpace,        FOptButtonSizeSpace);
          '|': AddTabButton(Btns, atbSeparator,    FOptButtonSizeSeparator);
        end;
    end;
    //
  var
    S, SLeft, SRight: string;
    N: integer;
  begin
    S:= FOptButtonLayout;
    N:= Pos(',', S);
    if N=0 then N:= Length(S)+1;
    SLeft:= Copy(S, 1, N-1);
    SRight:= Copy(S, N+1, MaxInt);
  
    UpdateBtns(FButtonsLeft, SLeft);
    UpdateBtns(FButtonsRight, SwapString(SRight));
  end;
  
  procedure TATTabs.DoClickUser(AIndex: integer);
  