anchor.diff:    FTabMenu:= nil;
     FScrollPos:= 0;
     FCaptionList:= TStringList.Create;
  +  {$ifdef FPC}
     FCaptionList.TextLineBreakStyle:= tlbsLF;
  +  {$endif}
   end;
   
   function TATTabs.CanFocus: boolean;
  
positive.code: 
  procedure TATTabs.DoUpdateTabRects(C: TCanvas);
  var
    TempCaption: string;
    Data: TATTabData;
    R: TRect;
    Extent: TSize;
  
negative.code: begin
    {$ifdef WIDE}
    Str:= UTF8Decode(AText);
    ExtTextOutW(C.Handle, AX, AY, ETO_CLIPPED, @AClipRect,
      PWideChar(Str), Length(Str), nil);
    {$else}
    ExtTextOut(C.Handle, AX, AY, ETO_CLIPPED, @AClipRect,
  