True type font

[bookworm]

Hi all,
I wanna know how to display a combo box of all fonts in my system with small icon. I mean if "arial" is a TT font then it has a icon (TT), if it's not then no icon displaies.

[Thomas Stutz]

Use EnumFonts() to enumerate all system fonts. Then check the tmPitchAndFamily Member of the TTextMetric structure for TMPF_TRUETYPE.

See article
[a href="http://www.delphicollection.com/public/GregLief/gl_q&a153.html" target="_blank"]http://www.delphicollection.com/public/Gre.../gl_q&a153.html[/a]

Or component TFontComboBox
[a href="http://www.torry.net/vcl/lbcb/fontlistandcomboboxes/fontctls.zip" target="_blank"]http://www.torry.net/vcl/lbcb/fontlistandc...es/fontctls.zip[/a]

Or
[a href="http://www.torry.net/vcl/lbcb/fontlistandcomboboxes/jtfntcblst.zip" target="_blank"]http://www.torry.net/vcl/lbcb/fontlistandc.../jtfntcblst.zip[/a]