Графика в FPC 2.2.0 Опции

[mr.voland]

Вобщем есть задание нарисовать чебурашку.
В колледже мы используем БП, дома у меня стоит виста поэтому юзаю FPC
В учебники сказано что пистаь надо так.

programm test;
uses Graph;
var driver, mode: integer;
Begin
driver:=detect;
initgraph (driver, mode, 'C:\TP\BGI');
Ellipse (200,250,0,359,10,20); (это овал)
closegraph;
end.

папки C:\TP\BGI у меня естественно нет я не чего умне как взять папку из БП скопировал папку в фрипаскаль не придумал.
Но не работает (чесно говоря я и не удивлен)
собственно и вопрос что делать?.
Заранее благодарен.

[volvo]

собственно и вопрос что делать?

Исправлять, разумеется...

uses graph;
var 
  driver, mode: smallint; { <--- InitGraph работает не с integer-ами, а со SmallInt }
Begin 
  // driver:=detect; { это делать в FPC необязательно }
  initgraph (driver, mode, ''); { <--- Путь тоже можно не указывать }
  Ellipse (200,250,0,359,10,20);
  readln; { <--- ждешь нажатия на Enter }
  closegraph;
end.

Все работает...

[mr.voland]

Спасибо большое

[Valinor]

У меня пишет что модуль граф отсутствует? че за тема

[volvo]

В Options->Directories закладка Units прописан путь к папке \FPC\2.2.0\units\i386-Win32\graph ?

[Valinor]

А, разобрался, спасибо

[Гость]

У меня проблема: линию рисуется разрывна(команда line) в Висте. Как это исправить, подскажите пожалуйста?

[Lapp]

У меня проблема: линию рисуется разрывна(команда line) в Висте. Как это исправить, подскажите пожалуйста?

Покажи скриншот этого разрыва и фрагмент программы, в котором это рисуется.

[-максим-]

у меня тоже пишет что модуль граф отсутствует. но путь прописан В Options->Directories закладка Units \FPC\2.2.0\units\i386-Win32\graph че делать???

[volvo]

че делать???

Проверить версию компилятора. Если качал недавно - значит, у тебя уже не 2.2.0, а 2.4.0, и надо изменить соответствующим образом путь. Хотя у меня на 2.4.0 вообще вот так:

F:\FPC\2.4.0\units\i386-Win32
F:\FPC\2.4.0\units\i386-Win32\*
F:\FPC\2.4.0\units\i386-Win32\rtl

, и графика прекрасно работает.

[Игорь]

А у меня в граф. режиме не реагирует на нажатие клавиш.

[Ozzя]

{$ifdef Win32}
{$apptype GUI}
{$endif}

Uses
{$ifdef Win32}
  Windows,
  WinCrt,
{$else}
  Crt,
{$endif}
Graph;
//... далее Ваша программа

[Игорь]

Cделал, но появляется ошибка при выполнении №103

Program Dot ;    
{$Ifdef Win32}  
{$apptype GUI}  
{$endif}    
Uses    
{$ifdef Win32}   
Windows,   
WinCrt,  
{$else}   
Crt;  
{$endif}   
Graph;
    
Var driver,mode:smallint;
    
begin   
 initgraph(driver,mode,'');   
 putpixel(100,100,White);   
 readln;   
 CloseGraph;  
end.

[volvo]

Сам же запретил создание консольного окна (директивой {$APPTYPE GUI}), и сам же удивляешься, что при попытке чтения из консоли (ReadLn) вылетает ошибка? Так консоли-то нет!

Program Dot;

{$Ifdef Win32}
  {$apptype GUI}
{$endif}

Uses
  {$ifdef Win32}
    Windows, WinCrt, WinGraph; // Под Windows - используем WinGraph, а не Graph
  {$else}
    Crt, Graph;
  {$endif}

Var
  driver, mode: smallint;

begin
  initgraph(driver, mode, '');
  putpixel(100, 100, White);

  // Не будем читать из консоли, сделаем по-другому
  repeat until readkey = #13;

  CloseGraph;
end.