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

> 

Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.

 
 Ответить  Открыть новую тему 
> FPC 2.4.0 - графика, Проблемы с модулем Graph
сообщение
Сообщение #1


Пионер
**

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

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


Решил попробовать свои силы с графикой. Первая проблема, которая сейчас стоит (точнее стояла) была в подключении модуля Graph, поскольку не находило его (проблема решилась благодаря форума и я ее успешно решил).
Следующая проблема была в том, что чтобы нарисовать простейшую фигуру - эллипс, выдает ошибку в FPC следующего рода: "Invalid Graphics Mode". Как это проблему решить?

Исходный код:

Uses Graph,Crt;

procedure Init;
var
Driver, Mode, ErrorCode: smallint;
begin
//Driver:=EGA;
//Mode :=EGAHI;
InitGraph(Driver,Mode,'');
ErrorCode := GraphResult;
if ErrorCode <> grOK then
begin
Writeln(GraphErrorMsg(ErrorCode));
Halt(1);
end;
end;

Begin
Init;
writeln('hello!');
Ellipse (200,250,0,359,10,20);
readln;
End.

 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Гость






Цитата(Relrin @ 20.02.2011 13:38) *
выдает ошибку в FPC следующего рода: "Invalid Graphics Mode"

Перед InitGraph сделай
Driver:= Detect;

Распространенная ошибка.. Ты привык, что компилятор сам за тебя инициализирует переменные нулем. Но в процедурах и функциях это не так. Рекомендую тебе НИКОГДА не полагаться на компилятор в этом отношении, ибо это не есть свойство ЯЗЫКА, а есть свойство его конкретной реализации. В данном случае Detect - это константа из модуля Graph, ее значение равно нулю (можешь написать просто Driver:= 0 )
 К началу страницы 
+ Ответить 

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

 





- Текстовая версия 19.11.2019 1:48
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name