Решил попробовать свои силы с графикой. Первая проблема, которая сейчас стоит (точнее стояла) была в подключении модуля 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.