anchor.diff:  //      end;
       BorderTopColor..BorderLeftColor:
         if TryStrToColor(PropValue, False, NewColor) then
  -        Props[Index] := NewColor;
  +        Props[Index] := NewColor
  +      else if LowerCase(PropValue) = CurColorStr then
  +        Props[Index] := CurColor_Val;
  +
       Color, BackgroundColor:
         if TryStrToColor(PropValue, False, NewColor) then
           Props[Index] := NewColor
  
positive.code: //          Propty.Props[BorderRightColor] := NewColor;
  //          Propty.Props[BorderBottomColor] := NewColor;
  //        end;
        BorderTopColor..BorderLeftColor:
          if TryStrToColor(Value, False, NewColor) then
            Propty.Props[PropIndex] := NewColor;
        BackgroundColor:
          if TryStrToColor(Value, False, NewColor) then
            Propty.Props[PropIndex] := NewColor
          else
            Propty.Props[PropIndex] := clNone;
        Visibility:
          begin
            if Value = 'visible' then
              Propty.Props[Visibility] := viVisible
            else if Value = 'hidden' then
              Propty.Props[Visibility] := viHidden;
          end;
        TextTransform:
          begin
            if Value = 'uppercase' then
              Propty.Props[TextTransform] := txUpper
            else if Value = 'lowercase' then
              Propty.Props[TextTransform] := txLower
            else
              Propty.Props[TextTransform] := txNone;
          end;
        WordWrap:
          if Value = 'break-word' then
            Propty.Props[WordWrap] := Value
          else
            Propty.Props[WordWrap] := 'normal';
        piWhiteSpace:
          if Value = 'nowrap' then
            Propty.Props[piWhiteSpace] := Value
          else if Value = 'normal' then
            Propty.Props[piWhiteSpace] := 'normal';
        FontVariant:
          if Value = 'small-caps' then
            Propty.Props[FontVariant] := Value
          else if Value = 'normal' then
            Propty.Props[FontVariant] := 'normal';
        BorderTopStyle..BorderLeftStyle:
          begin
  //          if Value <> 'none' then
  
negative.code:   I: PropIndices;
    BS: BorderStyleType;
    NewColor : TColor;
    LVal : THtString;
  begin
    {$IFDEF JPM_DEBUGGING}
    CodeSiteLogging.CodeSite.EnterMethod(Self,'TProperties.GetVMarginArrayDefBorder');
  