Список шрифтов...

[X-BOND]

Помню, был вроде здесь топик про вывод списка шрифтов системы. Но, к сожалению поиск не работает, а очень хочется увидеть подобный пример. Буду признателен за помощь.

P.S.
И сразу, чтобы не создавать новый топик, спрошу, как можно нарисовать необходимый текст, нужным шрифтом, нужного размера, на нужном мне месте, то бишь форме.
(пытаюсь собрать контрол для отображения шрифта, типа как у CorelDRAW)

[alibek]

У объектов Screen и Printer есть коллекция Fonts. Просто перебери их все и получишь список шрифтов (для экрана или для принтера, смотря что тебе надо). Но это медленно и тебе никак не узнать, что это именно за фонт.
Лучше используй API EnumFonts, это гораздо (в десятки раз) быстрее.
А для рисования тебе тоже подойдет API, например TextOut.

[Urvin]

Код: Выделить всё

iNumFonts = Screen.Fontcount - 1
for i = 0 to iNumFonts
    FontItem(i) = Screen.Fonts(i)
next i

А у принтера могут быть совсем другие шрифты

[Urvin]

На З.Ы.:
form1.print "Hello, world!"

[X-BOND]

Спасибо за ответы

С помощью EnumFonts и обычного Label удалось решить эту проблему достаточно легко. Результат прилагается.
Осталось только решить проблему повторяющихся значений в списке.
У меня, например, несколько раз загрузил Arial Cyr. Надо будет поковырять LOGFONT...

[alibek]

Лучше поковыряй EnumFontFamilies(Ex)