Использование неустановленного шрифта

← →
{RASkov} © (2008-05-18 22:17) [0]

Что-то никак не найду и не соображу как программно подгрузить и назначить например метке(TLabel) шрифт?
Шрифт в системе не установлен.
Т.е. если пользовать:
AddFontResource(<namefont.ttf>); Label.Font.Name:=?;
Тут явно наверное что-то другое нужно нежели AddFontResource...
Как узнать какие имена шрифтов добавились? Сравнивать списки до установки(AddFontResource) и после?

← →
{RASkov} © (2008-05-19 12:46) [1]

> AddFontResource()

Возвращает кол-во добавленных шрифтов.
Бывает разве больше 1?
Перепробывал с многими имеющемися у меня файлами шрифтов, везде возвращалась еденица, т.е. 1 шрифт добавляется.

Нашел таки один пример в интернете, где как раз и "вычисляется" шрифт путем перебора списков шрифтов. Один список до добавления а второй создается уже после и ищется первый отсутствующий шрифт в первом(старом) списке.

Вроде все ничего, но что значит "кол-во добавленных шрифтов"? Т.е. их может быть больше 1?
В принципе можно тогда сделать исключающий список из двух, в котором будут шрифты, которых нет в первом - т.е. только что добавленные.
Правда мне самому не нравится эта затея, но других вариантов пока нет :(

Хотелось бы еще и инфу о шрифте узнать, но здесь в принципе уже должен помочь EnumFonts...
Собсно главный вопрос:
> Как узнать какие имена шрифтов добавились в результате выполнения AddFontResource?
или как по другому использовать неустановленный шрифт?(его имя(имя шрифта, а не файла) зарание не известно)..

← →
Leonid Troyanovsky © (2008-05-19 19:44) [2]

> {RASkov} © (18.05.08 22:17)

> Тут явно наверное что-то другое нужно нежели AddFontResource.

AddFontResourceEx?

Font.Handle := handle_to_ the_ font_added
See also: TFont.Handle Property.

--
Regards, LVT.

← →
{RASkov} © (2008-05-19 22:49) [3]

> [2] Leonid Troyanovsky © (19.05.08 19:44)
> AddFontResourceEx?
>
> Font.Handle := handle_to_ the_ font_added

Наверное всеж должно быть: AddFontMemResourceEx
Так как AddFontResourceEx никаких хэндлов не возвращает...
Еще при поиске инфы по AddFontResourceEx наткнулся вот на эту страничку:
http://www.delphikingdom.com/asp/answer.asp?IDAnswer=35010
Вообщем сегодня у меня день для шрифтов оказался более удачным. :)
Огромное спасибо Леониду)

> Вообщем сегодня у меня день для шрифтов оказался более удачным.
> :)
> Огромное спасибо Леониду)
>

Скорее всего день был удачный для тебя. Шрифтам то собственно всё пофигу. :)

Использование неустановленного шрифта Найти похожие ветки