anchor.diff:                  - Fixed Layout: experiments showed that IExplore and Firefox *do* respect width attributes of <td> and <th>
                     even if there was a <colgroup> definition although W3C specified differently.
                 }
  -              SummarizeCountsPerType(SpannedCounts, ColumnSpecs, I, EndIndex);
  +              CountsPerType(SpannedCounts, ColumnSpecs, I, EndIndex);
   
                 if CellPercent > 0 then
                 begin
  
positive.code:     {Here we count floating images as 1 ThtChar but do not include their width,
        This is required for the call in FindCursor}
        if not (Align in [ALeft, ARight]) then
        begin
          Result := Result + Wid + HSpcL + HSpcR;
        end;
        Dec(N); {image counts as one ThtChar}
        Inc(Start);
      end
      else if J1 = 0 then
      begin
        Result := Result + FormControls.GetWidthAt(Start - Buff, HSpcL, HSpcR);
        Result := Result + HSpcL + HSpcR;
        Dec(N); {control counts as one ThtChar}
        Inc(Start);
      end
      else
      begin
        Font := Fonts.GetFontAt(Start - Buff, OHang);
        Font.AssignToCanvas(Canvas);
        I := Min(J, J1);
        I := Min(I, Min(Fonts.GetFontCountAt(Start - Buff, Len), N));
        Inc(Result, GetXExtent(Canvas.Handle, Start, I) - OHang);
        if I = 0 then
          Break;
  
negative.code:   const Widths: IntArray;
    StartIndex, EndIndex: Integer): Integer;
    {$ifdef UseInline} inline; {$endif}
  var
    I: Integer;
  begin
    Result := 0;
    for I := StartIndex to EndIndex do
      if ColumnSpecs[I] = WidthType then
        Inc(Result, Widths[I]);
  end;
  
  //-- BG ---------------------------------------------------------- 17.06.2012 --
  function SumOfNotType(
    WidthType: TWidthType;
    const ColumnSpecs: TWidthTypeArray;
    const Widths: IntArray;
    StartIndex, EndIndex: Integer): Integer;
    {$ifdef UseInline} inline; {$endif}
  var
    I: Integer;
  begin
    Result := 0;
    for I := StartIndex to EndIndex do
      if ColumnSpecs[I] <> WidthType then
        Inc(Result, Widths[I]);
  end;
  
  