anchor.diff:  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;
  
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:   if Value <> FVisited then
    begin
      FVisited := Value;
      ConvertFont(FIArray.Ar[FontInfoIndex]);
      FontChanged;
    end;
  end;
  