IPB
ЛогинПароль:

> Правила раздела!

1. Заголовок или название темы должно быть информативным !
2. Все тексты фрагментов программ должны помещаться в теги [code] ... [/code] или [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ" и используйте ПОИСК !
4. НЕ используйте форум для личного общения!
5. Самое главное - это раздел теоретический, т.е. никаких задач и программ (за исключением небольших фрагментов) - для этого есть отдельный раздел!

 
 Ответить  Открыть новую тему 
> Кривой шрифт
SMIKE
сообщение 20.10.2003 21:17
Сообщение #1


Гость






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

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

Может быть, кто-то знает, как решить эту проблему ???
Пишите, буду очень признателен
 К началу страницы 
+ Ответить 
Jonson
сообщение 21.10.2003 12:49
Сообщение #2


Новичок
*

Группа: Пользователи
Сообщений: 37

Репутация: -  0  +


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

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('Тест : абвгд...) );


--------------------
Лутший язык тот, которым владееш в совершенстве.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
SMIKE
сообщение 22.10.2003 10:06
Сообщение #3


Гость






Я имел в виду графический режим, а не текстовый.
В текстовом у меня все ОК
Драйвер стандартный - egavga.bgi
 К началу страницы 
+ Ответить 
Jonson
сообщение 22.10.2003 14:35
Сообщение #4


Новичок
*

Группа: Пользователи
Сообщений: 37

Репутация: -  0  +


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


--------------------
Лутший язык тот, которым владееш в совершенстве.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
SMIKE
сообщение 22.10.2003 21:46
Сообщение #5


Гость






НЕ ПОМОГАЕТ.  :(
ТЕПЕРЬ ВМЕСТО РУССКИХ БУКВ НАБОР АНГЛИЙСКИХ
 К началу страницы 
+ Ответить 
GLuk
сообщение 23.10.2003 4:45
Сообщение #6


Профи
****

Группа: Пользователи
Сообщений: 775
Пол: Мужской

Репутация: -  0  +


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


Гость






А поконктретней
Ссылку пожалуйста
 К началу страницы 
+ Ответить 
GLuk
сообщение 24.10.2003 5:46
Сообщение #8


Профи
****

Группа: Пользователи
Сообщений: 775
Пол: Мужской

Репутация: -  0  +


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

2. А это русские шрифты:
http://www.dospage.by.ru/files/rusfonts.arj
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 26.07.2025 3:39
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"