Delphi Font Resource - PullRequest
Новая
       7

Delphi Font Resource

0 голосов
/ 31 декабря 2011

У меня есть приложение с одним ресурсом TTF в качестве шрифта.Я хочу использовать этот шрифт как Fomr Font для события FormCreate.Я не хочу извлекать этот шрифт в каталог и загружать оттуда.Я не могу этого, пожалуйста, помогите мне.Я учусь, пожалуйста, не спрашивайте мои коды.

Я использовал "Font Resource ID 13" и "Font Name AmarBangla.ttf".Я пробовал следующие коды, но ошибка выдачи.Вот эти коды:

Первый: 

procedure TForm01.FormCreate(Sender: TObject);
 begin
    Form01.font[13] := AddFontResource (LPCTSTR lpszFontName));
    Form01.font := 13;
end;

Второй: 

 procedure TForm01.FormCreate(Sender: TObject);
 begin
    Form01.font[13] := AddFontResource (Hinstance, MakeIntResource(13));
    Form01.font := 13;
 end;

1 Ответ

5 голосов
/ 01 января 2012

Функция AddFontMemResourceEx может помочь вам, но похоже, что Microsoft запрещает встраивать свои шрифты в приложения, если она нарушает лицензию на шрифт :

Приложение не может распространяться вместе с документами, содержащими встроенные шрифты, и само приложение не может содержать встроенный шрифт .

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

...