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