anchor.diff:  begin
     case Style.Alignment of
       taLeft:
  -      Result := Style.LeftMargin * FontWidthPrecisionFactor;
  +      Result := Style.LeftMargin;
   
       taRight:
  -      Result :=   Style.LeftMargin * FontWidthPrecisionFactor
  +      Result :=   Style.LeftMargin
                   + FLayoutWidth
  -                - Style.RightMargin * FontWidthPrecisionFactor
  +                - Style.RightMargin
                   - Line.Width;
   
       taCenter:
  
positive.code:         // |<-----line width------>               |
          // space = layoutw-rm-linew
          SpaceOnLine :=   FLayoutWidth
                         - Style.RightMargin * FontWidthPrecisionFactor
                         - Line.Width; // Note: line width includes left margin
          Result :=   Style.LeftMargin * FontWidthPrecisionFactor
                    + SpaceOnLine div 2;
        end;
    end;
  end;
  
negative.code:             PerformStyleTag( Element.Tag,
                               Style,
                               X );
              NewMarginX := Style.LeftMargin;
              if NewMarginX > X then
              begin
                //skip across...
  