|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
Использование шрифта без установки
Возможно ли использовать файл шрифта не устанавливая его в системе? (например для предварительного просмотра шрифта) и как это делается.
Очень на вас надеюсь.. |
#2
|
|||
|
|||
если ты хочешь использовать в проге свой шрифт его нужно установить предварительно
no comments |
#3
|
||||
|
||||
Цитата:
|
#4
|
||||
|
||||
Вы не забывайте о ACDSee. Она тоже читает шрифты которые не установленные в системе, тобешь обычные ttf файлы, и выводит этим шрифтом надпись Font.
Кому я должен - всем прощаю!!!! |
#5
|
|||
|
|||
Перед использованием фонт нужно установить:
Код:
AddFontResource(PChar('путь_к_файлу_с_фонтом')); После использования удалить: Код:
RemoveFontResource(PChar('путь_к_файлу_с_фонтом')); Примерно вот так: Код:
procedure ShowFont(FontFileName: String); var F: TDemoFontForm; begin AddFontResource(PChar(FontFileName)); F := TDemoFontForm.Create(Application); try F.Label1.Font.Name := 'имя_фонта'; F.ShowModal; finally F.Free; RemoveFontResource(PChar(FontFileName)); end; end; |