Подключить внешний шрифт и задействовать его -> Форум на Исходниках.Ру

	Наши проекты: Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту

Здравствуйте, Гость ! [18.191.86.218]

ПРАВИЛА РАЗДЕЛА · FAQ раздела Delphi · Книги по Delphi

Пожалуйста, выделяйте текст программы тегом [сode=pas] ... [/сode]. Для этого используйте кнопку [code=pas] в форме ответа или комбобокс, если нужно вставить код на языке, отличном от Дельфи/Паскаля.

Следующие вопросы задаются очень часто, подробно разобраны в FAQ и, поэтому, будут безжалостно удаляться:
1. Преобразовать переменную типа String в тип PChar (PAnsiChar)
2. Как "свернуть" программу в трей.
3. Как "скрыться" от Ctrl + Alt + Del (заблокировать их и т.п.)
4. Как прочитать список файлов, поддиректорий в директории?
5. Как запустить программу/файл?
... (продолжение следует) ...

Вопросы, подробно описанные во встроенной справочной системе Delphi, не несут полезной тематической нагрузки, поэтому будут удаляться.
Запрещается создавать темы с просьбой выполнить какую-то работу за автора темы. Форум является средством общения и общего поиска решения. Вашу работу за Вас никто выполнять не будет.

Внимание
Попытки открытия обсуждений реализации вредоносного ПО, включая различные интерпретации спам-ботов, наказывается предупреждением на 30 дней.
Повторная попытка - 60 дней. Последующие попытки бан.
Мат в разделе - бан на три месяца...

Модераторы: jack128, D[u]fa, Shaggy, Rouse_

Новое голосование

Подключить внешний шрифт и задействовать его

IgorT	Сообщ. #1 , 10.10.09, 23:06
Member Профиль · PM Рейтинг (т): 1	Подскажите пожалуйста, как можно подключить внешний шрифт из ттф файла, но так, чтобы он сразу задействовался на одном из обьектов, например на кнопке... (название шрифта неизвестное заранее). Спасибо.

arj99	Сообщ. #2 , 11.10.09, 10:02
Profi Профиль · PM Поощрения: 4 Dgm Рейтинг (т): 161	AddFontResource()

IgorT

Сообщ. #3 , 11.10.09, 14:54

Member

Профиль · PM

Рейтинг (т): 1

Цитата arj99 @ 11.10.09, 10:02

AddFontResource()

Я использую AddFontResourceEx для добавления шрифта, но я не знаю как применить добавленый шрифт к какому-то обекту... к примеру пользователь выбрал ттф файл и хочет чтобы данный шрифт сразу применился к обьекту, а в данном случае я всеголишь добавлю шрифт из файла в список выбора, что мне не поможет, так как названия шрифтов в каждый момент может быть другим...

arj99

Сообщ. #4 , 11.10.09, 15:21

Profi

Профиль · PM

Поощрения: 4 Dgm

Рейтинг (т): 161

Цитата IgorT @ 11.10.09, 14:54

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

Что это обозначает? Как другим, зачем же он выбирал?...

IgorT

Сообщ. #5 , 11.10.09, 15:23

Member

Профиль · PM

Рейтинг (т): 1

Цитата arj99 @ 11.10.09, 15:21

Цитата IgorT @ 11.10.09, 14:54

Что это обозначает? Как другим, зачем же он выбирал?...

Вы не понимаете что я хочу сделать... я хочу чтобы пользователь выбрал из какого-то места ттф файл и шрифт из него сразу применился например к кнопке... название шрифта я не знаю так как пользователь может скачать другой шрифт и потом выбрать его...

arj99	Сообщ. #6 , 11.10.09, 15:36
Profi Профиль · PM Поощрения: 4 Dgm Рейтинг (т): 161	Нет, это ты чего-то не понимаешь... Ты ведь что-то передаешь первым параметром AddFontResourceEx(), почему бы тоже самое не присвоить в качестве имени шрифта нужному компоненту?

IgorT

Сообщ. #7 , 11.10.09, 16:14

Member

Профиль · PM

Рейтинг (т): 1

Цитата arj99 @ 11.10.09, 15:36

Нет, это ты чего-то не понимаешь...
Ты ведь что-то передаешь первым параметром AddFontResourceEx(), почему бы тоже самое не присвоить в качестве имени шрифта нужному компоненту?

Похоже я и правда чего-то не понимаю... вот как я делаю :

AddFontResourceEx('Cordeballet.ttf', FR_PRIVATE, nil);

Функция AddFontResourceEx вернет мне значение integer...

Цитата

почему бы тоже самое не присвоить в качестве имени шрифта нужному компоненту?

Ммм... можно пример кода ?

arj99	Сообщ. #8 , 11.10.09, 16:54
Profi Профиль · PM Поощрения: 4 Dgm Рейтинг (т): 161	Button1.Fon.Name := 'Cordeballet'; Не работает?

IgorT

Сообщ. #9 , 11.10.09, 17:25

Member

Профиль · PM

Рейтинг (т): 1

Цитата arj99 @ 11.10.09, 16:54

Button1.Fon.Name := 'Cordeballet';

Не работает?

Дык а представте что я незнаю названия шрифта и пользователь выберет файл типа 1.ttf, значит мне нужно сначала его подключить, а потом узнать имя шрифта чтобы его присвоить для шрифта кнопки, но имени как раз я незнаю...

Сообщение отредактировано: IgorT - 11.10.09, 17:26

arj99	Сообщ. #10 , 12.10.09, 04:33
Profi Профиль · PM Поощрения: 4 Dgm Рейтинг (т): 161	Цитата IgorT @ 11.10.09, 17:25 Дык а представте что я незнаю названия шрифта и пользователь выберет файл типа 1.ttf Мне уже не смешно Каким способом пользователь выбирает шрифт?