Карта сайтаСсылкиКонтакты

Включение шрифта из файла ресурсов

PDF Печать
Статьи

Чтобы подключить свой файл ресурсов, Вы должны включить директиву компилятора {$R MyFont.RES} в раздел implementation. Для извлечения шрифта из ресурса необходимо создать объект типа TResourceStream и добавить шрифт процедурой AddFontResource, а также Вы должны использовать сообщение WM_FONTCHANGE.

В ресурсном файле нужно создать раздел MYFONT, который будет содержать файл шрифта.


{$R MyFont.RES}

{ ... }

procedure TForm1.FormCreate(Sender: TObject);
var
  MyResStream: TResourceStream;
begin
  MyResStream:=TResourceStream.Create(hInstance, 'MYFONT', RT_RCDATA);
  MyResStream.SavetoFile('Gen4.ttf');
  AddFontResource(PChar('Gen4.ttf'));
  SendMessage(HWND_BROADCAST,WM_FONTCHANGE,0,0);
  Label1.Font.Charset:=SYMBOL_CHARSET;
  Label1.Font.Size:=24;
  Label1.Font.Name:='Gen4';
end;

 

Добавить комментарий


Защитный код
Обновить