anchor.diff:  end;
   
   procedure TATTabs.MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  -begin
  -  if FMouseDown and not FMouseDrag then
  -    if (Abs(X-FMouseDownPnt.X) < cTabsMouseMaxDistanceToClick) and
  -       (Abs(Y-FMouseDownPnt.Y) < cTabsMouseMaxDistanceToClick) then
  -    begin
  -      FMouseDown:= false;
  -
  -      //double click?
  -      if FMouseDownDbl then
  -      begin
  -        FMouseDownDbl:= false;
  -
  -        if FTabDoubleClickClose and (FTabIndexOver>=0) then
  -          DeleteTab(FTabIndexOver, true, true)
  -        else
  -        if FTabDoubleClickPlus and (FTabIndexOver=-1) then
  -          if Assigned(FOnTabPlusClick) then
  -            FOnTabPlusClick(Self);
  -        Exit
  -      end;
  -
  -      DoHandleClick;
  -      Exit
  -    end;
  -
  +var
  +  IsClick, IsDblClick: boolean;
  +begin
  +  IsClick:= FMouseDown and
  +    (Abs(X-FMouseDownPnt.X) < cTabsMouseMaxDistanceToClick) and
  +    (Abs(Y-FMouseDownPnt.Y) < cTabsMouseMaxDistanceToClick);
  +  IsDblClick:= IsClick and FMouseDownDbl;
  +       
     FMouseDown:= false;
  +  FMouseDownDbl:= false;
     Cursor:= crDefault;
     Screen.Cursor:= crDefault;
  -
  -  //do drop?
  -  if FMouseDrag then
  -  begin
  -    FMouseDrag:= false;
  -    if (FTabIndexDrop>=0) then
  -    begin
  -      DoTabDrop;
  -      Invalidate;
  -      Exit
  -    end;
  +  
  +  if IsDblClick then
  +  begin
  +    if FTabDoubleClickClose and (FTabIndexOver>=0) then
  +      DeleteTab(FTabIndexOver, true, true)
  +    else
  +    if FTabDoubleClickPlus and (FTabIndexOver=-1) then
  +      if Assigned(FOnTabPlusClick) then
  +        FOnTabPlusClick(Self);
  +    Exit
  +  end;
  +
  +  if IsClick then     
  +  begin
  +    DoHandleClick;
  +    Exit
     end;
   end;
   
  
positive.code: procedure TATTabs.DragDrop(Source: TObject; X, Y: Integer);
  begin
    if not (Source is TATTabs) then exit;
    if (Source=Self) then exit; //internal DnD not allowed here
    (Source as TATTabs).DoTabDropToOtherControl(Self, Point(X, Y));
  end;
  
  end.
  
  
negative.code:     FMouseDownDbl: boolean;
      FMouseDownButton: TMouseButton;
      FMouseDownShift: TShiftState;
  
      //colors
      FColorBg: TColor; //color of background (visible at top and between tabs)
  