Подключение chr-шрифтов в fpc 2

Вопросы программирования на Free Pascal, использования компилятора и утилит.

Модератор: Модераторы

Ответить
Оззя
новенький
Сообщения: 14
Зарегистрирован: 14.03.2006 11:23:34

Сообщение Оззя »

Не подключаются. Лежат в той же папке, что и программа. Хотя просмотрев исходники Graph'а, увидел, что поддержка chr-шрифтов есть.
Оззя
новенький
Сообщения: 14
Зарегистрирован: 14.03.2006 11:23:34

Сообщение Оззя »

Проблема решена благодаря e-moe и volvo.
Нужно было сконвертировать шрифт в исходник при помощи утилиты bin2obj
bin2obj -ogoth.pp -c GothicFontProc goth.chr,
в

Код: Выделить всё

Const
  goth : Array[0..18062] of byte = (...);

и подключить его

Код: Выделить всё

b:=registerBgiFont(@goth);
Аватара пользователя
noch
постоялец
Сообщения: 145
Зарегистрирован: 07.06.2005 09:45:49
Откуда: Armenia
Контактная информация:

Сообщение noch »

Этот вопрос не в первый раз задают, но решения никто не предлагал.
Может в часто задаваемые вопросы добавить ?
Оззя
новенький
Сообщения: 14
Зарегистрирован: 14.03.2006 11:23:34

Сообщение Оззя »

Не работает, если {$apptype GUI}, только в режиме console

Код: Выделить всё

{$apptype GUI}
Uses
  Windows,WinCrt,Graph;



Ошибка 103
Аватара пользователя
noch
постоялец
Сообщения: 145
Зарегистрирован: 07.06.2005 09:45:49
Откуда: Armenia
Контактная информация:

Сообщение noch »

да, так и должно быть
Ответить