Кривой шрифт Опции

[SMIKE]

Недавно написал в Win'98SE курсовую-игру на Паскале
В 98 все ОК, а вот в XP и ME вместо русских букв коряболы отображаются(в граф режиме) при запуске EXE-шника.

А у руководителя курсовой стоит XP и он сказал мне, чтобы я решил эту проблему(чтобы у него тоже все корректно отображалось)
Keyrus не помогает, шрифты менять пробовал - тоже ни в какую.

Может быть, кто-то знает, как решить эту проблему ???
Пишите, буду очень признателен

[Jonson]

??? Может это:

Код

function Ru(mes: string):string;
   var
       i: integer;
   begin
       for i:=1 to length(mes) do
          case mes[i] of
             'А'..'п' : mes[i] := Chr(Ord(mes[i]) - 64);
             'р'..'я' : mes[i] := Chr(Ord(mes[i]) - 16);
          end;
       rus := mes;
   end;

Вывесте текст:   writeln( Ru('Тест : абвгд...) );

[SMIKE]

Я имел в виду графический режим, а не текстовый.
В текстовом у меня все ОК
Драйвер стандартный - egavga.bgi

[Jonson]

А так не пробовал: OutText (ru('Тест: абвгд...'); ?

[SMIKE]

НЕ ПОМОГАЕТ.  :(
ТЕПЕРЬ ВМЕСТО РУССКИХ БУКВ НАБОР АНГЛИЙСКИХ

[GLuk]

Дык ессесно так оно и будет, если используется альтернативная ASCII, а ежели отнять от каждого кода по 64-16 - примерно оно и получится
Каким шрифтом выводишь, небось по умлч.?
И преподу ишшо объясни, что прога твоя под ОС МС ДОС! Это на всякий случай, мы ее по любому оптимизируем под any винду. А то что у тя нет русских буковок, дык это херовая эмуляция...
Странно, что с keyrus'om ничего не вышло, ты хоть подключал шрифты под графику?
И советую тебе переделать ее под стандартные векторные шрифты, типа Triplex, Small и т.д. Русские варианты валяются везде, в частности и на этом сайте

[SMIKE]

А поконктретней
Ссылку пожалуйста

[GLuk]

1. Для начала; почитай вот это:
http://home.uic.tula.ru/~ams/WIN/BOOK/Comp...PasGr/pasgr.htm

2. А это русские шрифты:
http://www.dospage.by.ru/files/rusfonts.arj