How to get a list of only TrueType fonts in FMX Delphi?

  

I have created a font selector dropdown box which is populated using the code given in the answer below.
How to get the list of fonts available – Delphi XE3 + Firemonkey 2?
However, I’m converting the text to a path using TTextLayout.ConvertToPath(), and this only works with TrueType fonts. I’d therefore like to reduce the list to omit other font formats such as the one used by Courier. I can’t see a way to do this using the above code. Only the name of the font is returned and not the format. Whichever method I use needs to work on Mac also. I’m using Delphi 10.4 FMX.

Comments are closed.