anchor.diff:          if TryStrToColor(Props[I],False,NewColor) then begin
             MArray[I] := Props[I]
           end else begin
  -          MArray[I] := ADefColor;
  +          LVal := Props[I];
  +          if LVal = CurColor_Val then begin
  +            // 'currentColor'
  +            MArray[I] := Props[StyleUn.Color];
  +          end else begin
  +            MArray[I] := ADefColor;
  +          end;
           end;
         end
       else
  
positive.code: {
  Version   11.5
  Copyright (c) 1995-2008 by L. David Baldwin,
  Copyright (c) 2008-2013 by HtmlViewer Team
  
negative.code: //          Propty.Props[BorderRightColor] := NewColor;
  //          Propty.Props[BorderBottomColor] := NewColor;
  //        end;
  
        BorderTopColor..BorderLeftColor:
          if TryStrToColor(Value, False, NewColor) then
            Propty.Props[PropIndex] := NewColor
          else if LowerCase(Value) = CurColorStr then
            Propty.Props[PropIndex] := CurColor_Val;
  
        BackgroundColor:
          if TryStrToColor(Value, False, NewColor) then
            Propty.Props[PropIndex] := NewColor
          else
            Propty.Props[PropIndex] := clNone;
  
        Visibility:
          if Value = 'visible' then
            Propty.Props[Visibility] := viVisible
          else if Value = 'hidden' then
            Propty.Props[Visibility] := viHidden;
  
        TextTransform:
          if Value = 'uppercase' then
            Propty.Props[TextTransform] := txUpper
          else if Value = 'lowercase' then
            Propty.Props[TextTransform] := txLower
          else
            Propty.Props[TextTransform] := txNone;
  
        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
  