19.9.2.1. Загрузка шрифтов из пакета Турбо Паскаль. Для хранения в памяти более одного шрифта одновременно необходимо предварительно разместить их в памяти и вызвать функцию {460}
RegisterBGIFont( FontPtr : Pointer ) : Integer
которая регистрирует шрифт в системе и возвращает его номер или отрицательный код ошибки. После этого шрифт становится доступным в любой момент работы программы. Последовательность действий при этом должна быть следующей:
1. В динамической памяти (куче) отводится область размером с файл шрифта.
2. Файл шрифта считывается с диска и помещается в эту область.
3. Указатель на шрифт в памяти регистрируется при помощи функции RegisterBGIDriver.
Пример процедуры загрузки шрифта в память приведен на рис. 19.32. В процедуру надо передать полное имя одного из CHR-файлов и сохранить возвращаемые ею указатель на место шрифта в памяти FPtr и размер Size (это может понадобиться при удалении шрифтов из кучи процедурой FreeMem(FPtr.Size)).
PROCEDURE LoadFont(BGIFileName: String; VAR FPtr: Pointer;
VAR Size: Word );
VAR
FontFile : File;
BEGIN
Assign(FontFile,BGIFileName); { связь файла с диском }
Reset( FontFile, 1 ); { чтение с начала, побайтно }
Size:=FileSize(FontFile); { размер файла со шрифтом }
GetMem( FPtr, Size ); { выделение участка памяти }
BlockRead(FontFile,FPtr:,Size); { загрузка туда шрифта }
Close( FontFile ); { закрытие файла }
if RegisterBGIFont(FPtr) < grOK then
begin { Если возникла ошибка, то }
WriteLn( 'Ошибка загрузки шрифта: ', { выдать }
GraphErrorMsg(GraphResult) ); {сообщение }
ReadLn { пауза до нажатия ввода... }
end {if}
END;
Рис. 19.32
Регистрация может проводится до инициализации графики. Так, в примере на рис. 19.32 считается, что текущий режим — текстовый, и используется оператор WriteLn для выдачи аварийного сообщения. Функция RegisterBGIFont может возвращать значения ошибки (табл. 19.7). {461}
Код
Обозначение ошибки
Пояснения
-11
grError
Может возникнуть, если таблица шрифтов уже заполнена. Всего можно зарегистрировать десять шрифтов. Так как в системе даны только четыре шрифта, то эта ошибка появляться не должна.
-13
grInvalidFont
Заголовок файла шрифта — неправильный или испорченный.
-14
grInvalidFontNum
Номер шрифта в заголовке файла шрифта — неправильный.
19.9.2.2. Регистрация новых штриховых шрифтов. Модуль Graph может поддерживать таблицу из десяти шрифтов. Однако в системе их представлено только четыре (не считая DefaultFont, который не требует загрузки), Возникает вопрос, как указать системе, что мы хотим использовать новые шрифты, не имеющие идентификаторов в системе (созданные самостоятельно или приобретенные дополнительно). Модуль Graph предоставляет и такую возможность — главное, чтобы файл шрифтов был в формате фирмы Borland. Пользуясь функцией
можно установить соответствие между именем шрифтового файла (FontFileName) и его регистрационным номером в системе (возвращаемым функцией InstallUserFont). После этого можно выбрать этот шрифт процедурой SetTextStyle, указав первым параметром номер нового шрифта. Если таблица шрифтов уже вся заполнена, то функция возвращает значение 0 (DefaultFont). В общем случае, ошибка установки нового шрифта диагностируется функцией GraphResult. После установки можно обращаться с новым шрифтом как со стандартным, и в том числе загружать в память.
19.9.2.3. Загрузка матричных шрифтов 8x8. Часть матричного шрифта 8x8 (коды от 0 по 127) реализована в ПЭВМ аппаратно и всегда доступна. Другая часть (коды от 128 до 255) должна быть предварительно резидентно загружена в память ПЭВМ. Обычно это делается программами-русификаторами или утилитой MS-DOS GRAFTABL. Но можно это проделать самим, предварительно создав файл типа File of Byte из 128 матриц по восемь байтов, представля-{462}ющий новый матричный шрифт (размер файла должен равняться 1024 байт). Имея такой файл, легко установить его в качестве шрифта DefaultFont, как показано на рис. 19.33.
USES DOS, Graph; { необходим модуль DOS }
VAR
OldFont8x8 : Pointer; { адрес исходного шрифта 8x8 }
PROCEDURE LoadFont8x8(FileName: String; VAR FPtr:Pointer);
VAR
FontFile : File;
BEGIN
Assign(FontFile,FileName); { связывание файла с диском }
Reset( FontFile, 1024 ); { чтение с начала и целиком }
GetMem( FPtr, 1024 ); { выделение участка памяти }
BlockRead(FontFile,FPtr^,1); { загрузка в него шрифта }
Close( FontFile ); { закрытие файла }
GetIntVec($1F,OldFont8x8); { запоминание старого шрифта }
SetIntVec( $1F, FPtr ) { установка нового шрифта }
END;
Рис. 19.33
Важно предусмотреть, чтобы перед окончанием работы программа восстанавливала адрес исходного шрифта при помощи вызова процедуры модуля DOS SetIntVec( $1F, OldFont8x8).
Описанные способы подключения к системе шрифтов имеют один общий недостаток: для того чтобы программа, использующая их, нормально работала, необходимо наличие соответствующих шрифтов в текущем или известном программе каталоге файлов. Начичие дополнительных файлов в системе снижает ее надежность, поэтому в языке Турбо Паскаль предусмотрена возможность встраивания шрифтов прямо в ЕХЕ-файл. Этот вопрос рассматривается в разделе 19.10.
