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:   begin
      J := Images.GetImageCountAt(Start - Buff);
      J1 := FormControls.GetControlCountAt(Start - Buff);
      if J = 0 then {it's and image}
      begin
        Wid := Images.GetWidthAt(Start - Buff, Align, HSpcL, HSpcR, FlObj);
      {Here we count floating images as 1 ThtChar but do not include their width,
  
negative.code:       begin
          // Expand columns to fit exactly into NewWidth.
          // Prefer widening columns without or with relative specification.
          CountsPerType(Counts, ColumnSpecs, 0, NumCols - 1);
          if Counts[wtNone] > 0 then
          begin
            // a) There is at least 1 column without any width constraint: modify this/these.
  