Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Free Pascal, Pascal ABC и другие _ Графика в FPC 2.2.0

Автор: mr.voland 28.11.2007 0:17

Вобщем есть задание нарисовать чебурашку.
В колледже мы используем БП, дома у меня стоит виста поэтому юзаю 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 28.11.2007 3:20

Цитата
собственно и вопрос что делать?
Исправлять, разумеется...
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 2.12.2007 20:56

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

Автор: Valinor 4.12.2007 0:14

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

Автор: volvo 4.12.2007 0:18

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

Автор: Valinor 4.12.2007 0:26

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

Автор: Гость 16.10.2009 22:01

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

Автор: Lapp 23.10.2009 10:46

Цитата(Гость @ 16.10.2009 19:01) *
У меня проблема: линию рисуется разрывна(команда line) в Висте. Как это исправить, подскажите пожалуйста?
Покажи скриншот этого разрыва и фрагмент программы, в котором это рисуется.

Автор: -максим- 3.05.2010 23:28

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

Автор: volvo 4.05.2010 0:03

Цитата
че делать???
Проверить версию компилятора. Если качал недавно - значит, у тебя уже не 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
, и графика прекрасно работает.

Автор: Игорь 4.05.2010 16:36

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

Автор: Ozzя 4.05.2010 16:37

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

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

Автор: Игорь 18.05.2010 22:18

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 18.05.2010 22:42

Сам же запретил создание консольного окна (директивой {$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.