anchor.diff:  
   procedure TATTabs.DoUpdateTabRects(C: TCanvas);
   var
  -  TempCaption: string;
  +  TempCaption: TATTabString;
     Data: TATTabData;
     R: TRect;
     Extent: TSize;
  
positive.code:     C.Font.Style:= AFontStyle;
      C.Font.Color:= AColorFont;
  
      TempCaption:= IfThen(ATabModified, FOptShowModifiedText) + ACaption;
      DoUpdateCaptionProps(C, TempCaption, NLineHeight, Extent);
  
      NIndentTop:= (RectText.Bottom-RectText.Top-Extent.cy) div 2 + 1;
  
negative.code:   FTabMenu:= nil;
    FScrollPos:= 0;
    FCaptionList:= TStringList.Create;
    {$ifdef FPC}
    FCaptionList.TextLineBreakStyle:= tlbsLF;
    {$endif}
  end;
  
  function TATTabs.CanFocus: boolean;
  