Font list not complete

I mostly use the below code to fill a PopupMenu with all available ttf fonts.
But it does not lists Helvetica (all other are listed correctly). Although it exists.

Anyone?

  for i as integer = 1 to SpecialFolder.Library.child("Fonts").Count-1
    if SpecialFolder.Library.child("Fonts").Item(i).NameExtensionMBS = "ttf" then
      me.AddRow SpecialFolder.Library.child("Fonts").Item(i).NameWithoutExtensionMBS
    end if
  next

Hmmm… never mind. It seems helvetica does not exists in ttf. :slight_smile:

I think @Michel Bujardet knows the actual declares way to get the font list if you ask him nicely

Indeed, but apparently what Christophe is after seems to be the font files themselves.

Otherwise, CTFontDescriptorMBS provides all what is needed to get all the font names including styles.

Yes, I only need the fonts available in SpecialFolder.Library.child(“Fonts”)
That said, I did find a tool to convert dfont to ttf. A Helvetica .dfont is available in the SpecialFolder.Library.child(“Fonts”)

Thanks for feedback.

[quote=268174:@Christoph De Vocht]Yes, I only need the fonts available in SpecialFolder.Library.child(“Fonts”)
That said, I did find a tool to convert dfont to ttf. A Helvetica .dfont is available in the SpecialFolder.Library.child(“Fonts”).[/quote]

Care to tell which tool it is ?