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:     procedure AKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
      procedure AssignY(Y: Integer);
  {$ENDIF}
    public
      Pos: Integer; {0..Len  Index where font takes effect}
      TheFont: TMyFont;
  
negative.code:   if Value <> FHover then
    begin
      FHover := Value;
      ConvertFont(FIArray.Ar[FontInfoIndex]);
      FontChanged;
    end;
  end;
  