Изменение шрифта в Паскаль 7.1

[Magnum]

В графическом режиме Паскаля не удается изменить шрифт процедурой "SetTextStyle". Установлен кейрус, шрифты в папке BGI.
В чем может быть проблема и как ее исправить?

[Хыиуду]

Возможно, неправильно прописаны директории, откуда все подгружается? Проверьте в Options - Directories

[Magnum]

Прописана директория для модулей, остальное все лежит в одной папке.

[Хыиуду]

Тогда код приведите.

[Magnum]

Код простейшей программы:
[syntax='Pascal'] uses crt,graph;
Var d,m:integer;
BEGIN d:=detect; m:=2;
Inithraph(d,m,'c:\tp7\bgi');
cleardevice;
setcolor(red);
settextstyle(2,0,2);
outtextxy(320,240,'Primer teksta');
readkey;
END.[/syntax]

[Хыиуду]

Вариант 1 - попробуйте не задавать явно значение m, пусть работает автоопределение.
Вариант 2 - попробуйте http://pascal.sources.ru/tmt/help/settextstyle_proc.htm, если это не будет работать - проблемы где-то в папках.

[Magnum]

Все, получилось... Проблема оказалась где-то в папках, где именно - без понятия. Помог, как всегда, бубен