anchor.diff:    if Value <> FVisited then
     begin
       FVisited := Value;
  -    if Value then
  -      if Hover then
  -        ConvertFont(FIArray.Ar[HVFont])
  -      else
  -        ConvertFont(FIArray.Ar[VFont])
  -    else if Hover then
  -      ConvertFont(FIArray.Ar[HLFont])
  -    else
  -      ConvertFont(FIArray.Ar[LFont]);
  +    ConvertFont(FIArray.Ar[FontInfoIndex]);
       FontChanged;
     end;
   end;
  
positive.code:   if Value <> FHover then
    begin
      FHover := Value;
      if Value then
        if FVisited then
          ConvertFont(FIArray.Ar[HVFont])
        else
          ConvertFont(FIArray.Ar[HLFont])
      else if FVisited then
        ConvertFont(FIArray.Ar[VFont])
      else
        ConvertFont(FIArray.Ar[LFont]);
      FontChanged;
    end;
  end;
  
negative.code: function TFontObj.GetOverhang: Integer;
  begin
    Result := Overhang;
  end;
  
  //-- BG ---------------------------------------------------------- 17.06.2012 --
  function TFontObj.GetFontInfoIndex: FIIndex;
  begin
    if Visited then
      if Hover then
        Result := HVFont
      else
        Result := VFont
    else
      if Hover then
        Result := HLFont
      else
        Result := LFont;
  end;
  
  function TFontObj.GetHeight(var Desc: Integer): Integer;
  