anchor.diff:    FVAlign := VAlign;
   end;
   
  +//-- BG ---------------------------------------------------------- 27.01.2012 --
  +constructor TColSpec.CreateCopy(const ColSpec: TColSpec);
  +begin
  +  Create(ColSpec.FWidth, ColSpec.FAlign, ColSpec.FVAlign);
  +end;
  +
   initialization
   {$ifdef UNICODE}
   {$else}
  
positive.code:   Result := Ord(C) >= $3000;
  end;
  
  //BG, 20.09.2010:
  function CanWrap(C: WideChar): Boolean;
  begin
    case C of
      WideChar(' '), WideChar('-'), WideChar('?'), ImgPan, FmCtl, BrkCh:
        Result := True
    else
      Result := WrapChar(C);
  
negative.code:           end;
          until (P1^ = #0) or (CanWrap(P1^) and (Brk[I] = 'y'));
          SoftHyphen := Brk[I - 1] = 's';
          if CanWrapAfter(P1^) then
          begin
            Inc(P1);
            Inc(I);
          end;
        end;
        Min := Math.Max(Min, FindTextWidthB(Canvas, P, P1 - P, True));
  