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: function TFontObj.GetOverhang: Integer;
  begin
    Result := Overhang;
  end;
  
  function TFontObj.GetHeight(var Desc: Integer): Integer;
  
negative.code:     procedure AKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
      procedure AssignY(Y: Integer);
  {$ENDIF}
      function GetFontInfoIndex: FIIndex;
      property FontInfoIndex: FIIndex read GetFontInfoIndex;
    public
      Pos: Integer; {0..Len  Index where font takes effect}
      TheFont: TMyFont;
  