Это указание должно быть явным,
Это указание должно быть явным, так как
изменяется подсчет строк и режим отображения. Кроме того, при этом
необходима прикомпоновка CT II-драйвера CT2US50.OBJ (см. табл. 6-4).
Примечания
. Видеоадаптеры не допускают смешивания шрифтов с различной
пиксельной высотой.
. Функцию FONTRESET() нельзя использовать, если загружен шрифт, для
которого отсутствует аналог в ROM (то есть размер символа отличается
от 8, 14, 16 пикселей). Поэтому перед ее вызовом необходимо перейти на
допустимый режим.
. Если EGA-адаптер не использует весь соответствующий диапазон
памяти, то количество доступных шрифтовых областей может быть менее 4.
Число доступных шрифтовых областей можно определить с помощью функции
MAXFONT().
Примеры
. Загрузка всех 256 символов шрифта во вторую шрифтовую область:
? SETFONT(cFontString, 2) // 0 - нормальная загрузка
FONTSELECT(2) // Вторая шрифтовая область для цветов
// с нормальной интенсивностью
. Замена последних 128 символов шрифта в области 3:
? SETFONT(cFontString, 3, 128, 128) // 0 - нормальная загрузка
FONTSELECT(3) // Третья шрифтовая область
// для цветов с нормальной
// интенсивностью
. Удвоение (по возможности) высоты загруженного шрифта. Это не
сложно, поскольку каждый байт в строке шрифта должен быть удвоен:
cFont := GETFONT()
SETFONT(CHARMIX(cFont, cFont), .T.)
. Строку шрифта можно разложить на отдельные пиксельные строки.
Здесь они выводятся в двоичном виде:
cFont := GETFONT()
nPixel := CHARPIX()
FOR A = 0 TO 255
FOR B = 1 TO nPixel
nByte := ASC(SUBSTR(cFont, (nPixel * A) + B, 1))
? NTOC(nByte, 2, 8, "0")
