anchor.diff:      if Positioning in [posAbsolute, posRelative] then
         MaxWidth := ScrollWidth + MiscWidths - MargArray[MarginRight] + LeftP - Xin
       else
  -      MaxWidth := ScrollWidth + MargArray[MarginRight] + MargArray[PaddingRight] + MargArray[BorderRightWidth] + Indent;
  +      MaxWidth := ScrollWidth + RightWidths + Indent;
   
       if Positioning = posRelative then
         ClientContentBot := Max(ContentTop, MyCell.tcContentBot - TopP)
  
positive.code:     Inc(Result);
  end;
  
  function WrapChar(C: WideChar): boolean;
  begin
    Result := Ord(C) >= $3000;
  end;
  
  {----------------TSection.MinMaxWidth}
  
negative.code:   ScrollWidth, YClear: integer;
    LIndex, RIndex: integer;
    SaveID: TObject;
    TotalWidth, LeftWidths, RightWidths, MiscWidths: integer;
    AutoCount: integer;
    BlockHeight: integer;
    IB, Xin: Integer;
  