anchor.diff:  begin
     inherited;
     TabIndex:= FTabIndexLoaded;
  +end;
  +
  +procedure TATTabs.DoContextPopup(MousePos: TPoint; var Handled: Boolean);
  +begin
  +  inherited;
  +  if not Handled then
  +  begin
  +    DoHandleRightClick;
  +    Handled:= true;
  +  end;
   end;
   
   function TATTabs.GetButtonsEmpty: boolean;
  
positive.code:     {$endif}
      procedure DragOver(Source: TObject; X, Y: integer; State: TDragState; var Accept: Boolean); override;
      procedure Loaded; override;
  
    published
      //inherited
  
negative.code:     DoHandleClick;
      Invalidate;
      Exit
    end;
  end;
  
  