anchor.diff:      Exit;
     end;
   
  -  if Button=mbLeft then
  +  if FMouseDownButton=mbLeft then
     begin
       case FTabIndexOver of
         cAtArrowDown:
  
positive.code:   end;
  end;
  
  
  procedure TATTabs.MouseDown(Button: TMouseButton; Shift: TShiftState;
    X, Y: Integer);
  var
    R: TRect;
  begin
    FMouseDown:= true;
    FMouseDownPnt:= Point(X, Y);
    FTabIndexOver:= GetTabAt(X, Y);
  
    if Button=mbMiddle then
    begin
      if FTabMiddleClickClose then
        if FTabIndexOver>=0 then
  
negative.code:     FMouseDown: boolean;
      FMouseDownPnt: TPoint;
      FMouseDownDbl: boolean;
      FMouseDownButton: TMouseButton;
      FMouseDownShift: TShiftState;
      FMouseDrag: boolean;
  
      //colors
  