anchor.diff:    if RemoveSpaces then
       while True do
         case (Start + N - 1)^ of
  -        WideChar(' '), BrkCh:
  +        SpcChar,
  +        BrkCh:
             Dec(N); {remove spaces on end}
         else
           break;
  
positive.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;
  
  
negative.code: end;
  
  //-- BG ---------------------------------------------------------- 18.01.2012 --
  procedure CountsPerType(
    var CountsPerType: TIntegerPerWidthType;
    const ColumnSpecs: TWidthTypeArray;
    StartIndex, EndIndex: Integer);
  