anchor.diff:      procedure ShowTabMenu;
       procedure SwitchTab(ANext: boolean);
       procedure MoveTab(AFrom, ATo: integer; AActivateThen: boolean);
  -    property ScalePercents: integer read FScalePercents write FScalePercents default 100;
     protected
       procedure Paint; override;
       procedure Resize; override;
  
positive.code:     FOnTabMove: TATTabMoveEvent;
      FOnTabChangeQuery: TATTabChangeQueryEvent;
  
      function DoScale(N: integer): integer;
      procedure DoHandleClick;
      procedure DoPaintTo(C: TCanvas);
      procedure DoPaintBgTo(C: TCanvas; const ARect: TRect);
  
negative.code:   (Source as TATTabs).DoTabDropToOtherControl(Self, Point(X, Y));
  end;
  
  end.
  
  