anchor.diff:      FRectButtonUser2: TRect;
       FRectButtonUser3: TRect;
       FRectButtonUser4: TRect;
  +
  +    FHintForX: string;
  +    FHintForPlus: string;
  +    FHintForArrowLeft: string;
  +    FHintForArrowRight: string;
  +    FHintForArrowMenu: string;
  +    FHintForUser0: string;
  +    FHintForUser1: string;
  +    FHintForUser2: string;
  +    FHintForUser3: string;
  +    FHintForUser4: string;
   
       //events    
       FOnTabClick: TNotifyEvent;
  
positive.code:   FTabIndexOver:= GetTabAt(X, Y, IsX);
    FTabIndexDrop:= FTabIndexOver;
  
    Data:= GetTabData(FTabIndexOver);
    if Assigned(Data) and (Data.TabHint<>'') and ShowHint then
    begin
      Hint:= Data.TabHint;
      if FTabIndexOver<>FTabIndexHinted then
      begin
        FTabIndexHinted:= FTabIndexOver;
        Application.ActivateHint(Mouse.CursorPos);
      end;
    end
    else
  
negative.code:   FOptMouseDoubleClickPlus:= _InitOptMouseDoubleClickPlus;
    FOptMouseDragEnabled:= _InitOptMouseDragEnabled;
    FOptMouseDragOutEnabled:= _InitOptMouseDragOutEnabled;
  
    FHintForX:= 'Close tab';
    FHintForPlus:= 'Add tab';
    FHintForArrowLeft:= 'Scroll tabs left';
    FHintForArrowRight:= 'Scroll tabs right';
    FHintForArrowMenu:= 'Show tabs list';
    FHintForUser0:= '0';
    FHintForUser1:= '1';
    FHintForUser2:= '2';
    FHintForUser3:= '3';
    FHintForUser4:= '4';
  
    FBitmap:= TBitmap.Create;
    FBitmap.PixelFormat:= pf24bit;
  