VPF::Как подключать шрифты - Форум программистов

Fedor

Дата 23.1.2004, 18:26 (ссылка)

(нет голосов)

Загрузка ...

Днепрянин

Профиль
Группа: Участник
Сообщений: 2090
Регистрация: 8.2.2003
Где: Великий

Репутация: нет
Всего: 32

Добрый день...

Моя прога использует шрифт Monotupe Coursiva. его может не быть на компьютере, на котором будет защита. Как подключить этот шрифт к тому компьютеру? Обязательно ли для этого копировать его в папку Windows\Fonts

Заранее спасибо за советы

--------------------

Мы - Днепряне. Мы всех сильней.

Vit

Дата 23.1.2004, 19:47 (ссылка)

(нет голосов)

Загрузка ...

Vitaly Nevzorov

Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 48
Всего: 207

Зарегистрировать шрифт:
AddFontResource('путь к фонту\\Algerian.ttf');
Объект.Font.Name:="Algerian";

Удалить -
RemoveFontResource('путь к фонту\\Algerian.ttf');

--------------------

With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru

Fedor

Дата 23.1.2004, 21:17 (ссылка)

(нет голосов)

Загрузка ...

Днепрянин

Профиль
Группа: Участник
Сообщений: 2090
Регистрация: 8.2.2003
Где: Великий

Репутация: нет
Всего: 32

Vit Вот вспомнил я про FAQ, а там еще написано, что нуно в реестр прописывать... Это обязательно? Или достаточно того, что вы ответили выше?

--------------------

Мы - Днепряне. Мы всех сильней.

Pakshin A. S.

Дата 23.1.2004, 21:50 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: 21
Всего: 61

У меня есть несколько иной способ, хотя суть та же:

Код


uses Registry;

procedure AddFont(const FileName:string);
var
   reg: TRegistry;
   b: bool;
begin
   CopyFile(FileName, 'C:\Windows\Fonts\' + ExtractFileName(FileName), b);
   reg:=TRegistry.Create;
   reg.RookKey:=HKEY_LOCAL_MACHINE;
   reg.lazyWrite:=false;
   reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Fonts', false);
   reg.WriteString('TestMicr )trueType)', ExtractFileName(FileName));
   reg.CloseKey;
   reg.Free;
   // Добавление
   AddFontresource(FileName);
   SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);
   { 
   Удаление
   RemoveFontResource(FileName);
   SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);
   }
end;

Могут быть ошибки, писал по-памяти...
Нужно доделать до более универсальной версии...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »