anchor.diff:      property OnTabChangeQuery: TATTabChangeQueryEvent read FOnTabChangeQuery write FOnTabChangeQuery;
     end;
   
  +var
  +  cTabsMouseMinDistanceToDrag: integer = 10; //mouse must move >=N pixels to start drag-drop
  +  cTabsMouseMaxDistanceToClick: integer = 4; //if mouse moves during mouse-down >=N pixels, dont click
  +
  +
   implementation
   
   uses
  
positive.code:     case FTabIndexOver of
        cAtArrowDown:
          begin
            FMouseDown:= false;
            EndDrag(false);
            FTabIndexOver:= -1;
            Invalidate;
            ShowTabMenu;
            Exit
          end;
  
        cAtTabPlus:
          begin
            FMouseDown:= false;
            EndDrag(false);
            FTabIndexOver:= -1;
            if Assigned(FOnTabPlusClick) then
              FOnTabPlusClick(Self);
            Exit;
          end;
  
        else
  
negative.code:             begin
                EndDrag(false);
                DeleteTab(FTabIndexOver, true, true);
              end;
            end;
          end;
  