anchor.diff:          Data.TabCaption;
   
         UpdateCaptionProps(C, TempCaption, NLineHeight, Extent);
  -      FTabWidth:= Extent.CX + 2*FOptSpaceBeforeText;
  +      FTabWidth:= Extent.CX + 2*DoScale(FOptSpaceBeforeText);
   
         if not Assigned(FImages) then //no imagelist
           Data.TabImageIndex := -1;
  
positive.code:     destructor Destroy; override;
      procedure DragDrop(Source: TObject; X, Y: integer); override;
  
      function GetTabRectWidth(APlusBtn: boolean): integer;
      function GetTabRect(AIndex: integer; AWithScroll: boolean=true;
        AWithAnimation: boolean=true): TRect;
  
negative.code:     atpLeft,
      atpRight:
        begin
          Result:= ClientWidth-DoScale(FOptSpacer);
        end;
      else
        begin
          if APlusBtn then
            Result:= GetTabWidth_Plus_Raw
          else
            Result:= DoScale(FOptTabWidthNormal);
          Inc(Result, 2*DoScale(FOptSpaceBeforeText));
        end;
    end;
  end;
  