Как загрузить шрифт из конкретного файла?

[Suny-o]

Есть шрифт (pass.ttf) который отображает вместо любого символа звездочки.

На случай если шрифт не установлен в системе - положил его в папку с программой и хочу использовать из этой папки.

Встает вопрос - как загрузить шрифт (например для Label1.Font) из конкретного файла со шрифтом?

[Rin]

Допустим так

AddFontResourceA(PChar(GetCurrentDir+'\pass.ttf'));
SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);
Label1.Font.Name:='pass';

[Suny-o]

Спасибо!

С помощью Google нашел на http://forum.vingrad.ru/forum/topic-...ry41338/0.html похожий код.

Теперь программа выглядит так.

function ProgramDirectory: String;
begin
ProgramDirectory:=extractfilepath(p aramstr(0))
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
RemoveFontResource(StringToOleStr(P rogramDirectory+'pass.ttf'));
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
AddFontResource(StringToOleStr(Prog ramDirectory+'pass.ttf'));
//Или так
//AddFontResource('С:\Путь\pass.ttf') ;
Edit1.Font.Name:='Pass';
end;

Обращаю внимание на то, что цитирование и выделение текста на форуме глючит и вставляет пробелы в текст. Возможно это общая проблема см. ниже.

Все работает - процедура простая:
1. AddFontResource('С:\Путь\pass.ttf') ;
2. Edit1.Font.Name:='Pass'; Примечание: У шрифта есть внутренее имя и в данном случае обращение идет к нему.

Убрать
RemoveFontResource('С:\Путь\pass.tt f');

См. также Как проинсталлировать свои шрифты?