anchor.diff:      FTabDragEnabled: boolean; //enable drag-drop
       FTabDragOutEnabled: boolean; //also enable drag-drop to another controls
   
  -    //others
  +    //otherrs
       FTabWidth: Integer;
       FTabIndex: Integer;
       FTabIndexOver: Integer;
       FTabIndexDrop: Integer;
       FTabList: TList;
       FTabMenu: TatPopupMenu;
  -    FScalePercents: integer;
   
       FBitmap: TBitmap;
       FOnTabClick: TNotifyEvent;
  
positive.code:   (Source as TATTabs).DoTabDropToOtherControl(Self, Point(X, Y));
  end;
  
  function TATTabs.DoScale(N: integer): integer;
  begin
    if ScalePercents<=100 then
      Result:= N
    else
      Result:= MulDiv(N, ScalePercents, 100);
  end;
  
  end.
  
  
negative.code:     FOnTabMove: TATTabMoveEvent;
      FOnTabChangeQuery: TATTabChangeQueryEvent;
  
      procedure DoHandleClick;
      procedure DoPaintTo(C: TCanvas);
      procedure DoPaintBgTo(C: TCanvas; const ARect: TRect);
  