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:     FTabDragEnabled: boolean; //enable drag-drop
      FTabDragOutEnabled: boolean; //also enable drag-drop to another controls
  
      //otherrs
      FTabWidth: Integer;
      FTabIndex: Integer;
      FTabIndexOver: Integer;
      FTabIndexDrop: Integer;
      FTabList: TList;
      FTabMenu: TatPopupMenu;
  
      FBitmap: TBitmap;
      FOnTabClick: TNotifyEvent;
  