VPF::Шрифты - Форум программистов

Mew

Дата 30.9.2004, 03:43 (ссылка)

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

Загрузка ...

Шустрый

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

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

Люди подскажите как добавить штриф, в компонент caption. возможно ли это

<Spawn>

Дата 30.9.2004, 04:58 (ссылка)

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

Загрузка ...

Око кары:)

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

Репутация: 44
Всего: 64

Что ты подразумеваешь под добавить шрифт? У каждого визуального компонента есть свойство Font, в котором можно выбирать нужный тебе шрифт. Или ты что то другое имеешь ввиду?

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

"Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков.

p0s0l

Дата 30.9.2004, 10:08 (ссылка)

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

Загрузка ...

Г-н Посол

Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

Репутация: 58
Всего: 112

Может имеется в виду смена шрифта текста в заголовке окна ?

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

С уважением, г-н Посол.

Mew

Дата 30.9.2004, 12:30 (ссылка)

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

Загрузка ...

Шустрый

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

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

Нет у меня есть свой собственный шрифт. и я хочу чтобы буквы были напечатаны в моим шрифтом. Это возможно?

Akella

Дата 30.9.2004, 13:02 (ссылка)

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

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329

Как использовать неустановленный шрифт

Код

AddFontResource('путь к фонту\\Algerian.ttf'); 
Объект.Font.Name:="Algerian"; 

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

Как добавить новый True Type -шрифт в систему

Код

Чтобы установить шрифт в систему, необходимо скопировать файл шрифта в 'Windows\Fonts' и добавить ключ в реестр: 

'Software\Microsoft\Windows\CurrentVersion\Fonts'  

Этот ключ указывает на файл шрифта. Далее запускаем API функцию 'AddFontRecource'. В заключении нужно уведомить систему широковещательным сообщением. 

uses Registry;  

procedure TForm1.Button1Click(Sender: TObject);  
var  
  hReg: TRegistry;  
  hBool : bool;  
begin  
  CopyFile('C:\DOWNLOAD\FP000100.TTF',  
           'C:\WINDOWS\FONTS\FP000100.TTF', hBool);  
  hReg := TRegistry.Create;  
  hReg.RootKey := HKEY_LOCAL_MACHINE;  
  hReg.LazyWrite := false;  
  hReg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Fonts',  
               false);  
  hReg.WriteString('TESTMICR (TrueType)','FP000100.TTF');  
  hReg.CloseKey;  
  hReg.free;  
  //Добавляем ресурс шрифта 
  AddFontResource('c:\windows\fonts\FP000100.TTF');  
  SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);  
  //Убираем блокировку ресурса 
  RemoveFontResource('c:\windows\fonts\FP000100.TTF');  
  SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);  
end;

Dron84

Дата 28.11.2005, 19:49 (ссылка)

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

Загрузка ...

Шустрый

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

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

dsergey
делаю так как ты написал, но шрифты не ставятся... smile

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