Последние записи

made in programmersforum 8

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

13th
Июн

Как вывести русский текст в графическом режиме? Pascal.

Posted by bullvinkle under Пост-обзор

Чтоб русский в графике отображался, надо указать адрес таблицы символов, вектор прерывания 1F.

Код:


uses graph, dos;

{$L EGA3FONT.OBJ}
procedure Ega3Font; external;

var gd, gm: integer;

begin
  SetIntVec($1F, @Ega3Font);
  gd := detect;
  InitGraph(gd, gm, '');
  OutTExtXY(260, 220, 'Что-то в dos-кодировке');
  ReadLn;
  CloseGraph;
end.

EGA3FONT – шрифт, выдранный из русского доса, содержит символы с кодами 128-255 (русские буквы и псевдографика), пропущенный через утилиту binobj и слинкованный с программой.

В аттаче пример и русские векторные шрифты (те, что через SetTextStyle выбираются)

Вложения