anchor.diff:      function GetRectOfButtonIndex(AIndex: integer; AtLeft: boolean): TRect;
       function GetScrollPageSize: integer;
       procedure SetOptButtonLayout(const AValue: string);
  +    procedure SetOptMouseDragEnabled(AValue: boolean);
       procedure SetOptVarWidth(AValue: boolean);
       procedure SetTabIndex(AIndex: integer);
       procedure GetTabCloseColor(AIndex: integer; const ARect: TRect; var AColorXBg,
  
positive.code:   _InitOptMouseMiddleClickClose = true;
    _InitOptMouseDoubleClickClose = true;
    _InitOptMouseDoubleClickPlus = false;
    _InitOptMouseDragEnabled = true;
    _InitOptMouseDragOutEnabled = true;
  
  type
  
negative.code:   D: TATTabData;
    R: TRect;
  begin
    if not IsScrollMarkNeeded then
      begin Result:= true; exit end;
  
    D:= GetTabData(AIndex);
    if D=nil then
      begin Result:= false; exit end;
    R:= D.TabRect;
  
    case FOptPosition of
  