anchor.diff:    Result := 'url("' + Result + '")';
   end;
   
  -function FindShortHand(S: ThtString; out Index: TShortHand): boolean;
  -var
  -  I: TShortHand;
  -begin
  -  for I := Low(TShortHand) to High(TShortHand) do
  -    if S = ShortHands[I] then
  -    begin
  -      Result := True;
  -      Index := I;
  -      Exit;
  -    end;
  -  Result := False;
  +//-- BG ---------------------------------------------------------- 26.11.2012 --
  +procedure THtmlStyleParser.ProcessPropertyOrShortHand(Prop, Value: ThtString);
  +
  +  function FindShortHand(S: ThtString; out Index: TShortHand): boolean;
  +  var
  +    I: TShortHand;
  +  begin
  +    for I := Low(TShortHand) to High(TShortHand) do
  +      if S = ShortHands[I] then
  +      begin
  +        Result := True;
  +        Index := I;
  +        Exit;
  +      end;
  +    Result := False;
  +  end;
  +
  +var
  +  Value1: String;
  +  Index: TShortHand;
  +begin
  +  Value1 := LowerCase(Trim(Value)); // leave quotes on for font
  +  Value := RemoveQuotes(Value1);
  +  Prop := LowerCase(Prop);
  +  if FindShortHand(Prop, Index) then
  +    ProcessShortHand(Index, Prop, Value, Value1)
  +  else if Prop = 'font-family' then
  +    ProcessProperty(Prop, Value1)
  +  else
  +  begin
  +    if (LinkPath <> '') and (Pos('url(', Value) > 0) then
  +      Value := AddPath(Value);
  +    ProcessProperty(Prop, Value);
  +  end;
   end;
   
   procedure SplitString(Src: ThtString; out Dest: array of ThtString; out Count: integer);
  
positive.code:       else
          break;
        end;
      Prop := LowerCase(Trim(Prop));
      SkipWhiteSpace;
      if (LCh = ':') or (LCh = '=') then
      begin
  
negative.code: //-- BG ---------------------------------------------------------- 29.12.2010 --
  procedure THtmlStyleAttrParser.ParseProperties(Doc: TBuffer; Propty: TProperties);
  var
    Prop, Value: ThtString;
  begin
    Self.Doc := Doc;
    Self.Propty := Propty;
  