Пример работы с графикой в нашей системе.

uses oglgraph;                     // Необходимая библиотека, у нас заменяет graph
 
var 
  gd, gm: smallint;                // Имена не важны, а тип переменных - важен
 
begin
  gd := Detect;                    // Автоматическая установка разрешения
  gm := DetectMode;
  initgraph(gd, gm, '');           // Открытие "графического окна" 
 
{далее все, что Вы хотите нарисовать, например:}
 
  setcolor(green);
  line(0, 0, 100, 100);
 
{конец отрисовки}
  repeat until graphkeypressed;    // Задержка закрытия графического окна до нажатия 
                                   // клавиши для завершения работы программы - 
                                   // иначе рискуете ничего толком не увидеть
 
  closegraph();                    // закрытие графического окна - не обязательно, но рекомендуемо.
 
end.

        Mx := GetMaxX div 2;
	My := GetMaxY div 2;
	for y := -my to my do
		for x := -mx to mx do 
		begin
			n := 0;
			c.x := x * 0.005;
			c.y := y * 0.005;
			z.x := 0;
			z.y := 0;
			while (sqr(z.x) + sqr(z.y) < max) and (n < iter) do 
			begin
				t := z;
				z.x := sqr(t.x) - sqr(t.y) + c.x;
				z.y := 2 * t.x * t.y+ c.y;
				Inc(n);
				if KeyPressed then 
					Cancel := true;
			end;
		if n < iter then 
		begin
        		PutPixel(mx + x,my + y,16 - (n mod 16));
		end;
		if Cancel then 
			exit;
	end;

Среди примеров - часто возникающие задачи.

| Определение размеров экрана для рисования рамки экрана

uses oglgraph;          { Подключаем нашу библиотеку }
 
var 
  gd, gm: smallint;
  maxx, maxy : integer;
 
begin
  gd := Detect;
  gm := DetectMode;
  initgraph(gd, gm, ''); 
 
  maxx := getmaxx();     { Выясняем ширину экрана}
  maxy := getmaxy();     { Выясняем высоту экрана} 
 
  {Внимание! Функции getmaxx и getmaxy правильно работают только после вызова initgraph }
 
  setcolor(blue);        { устанавливаем синий цвет для рисования линий }
 
  rectangle(1, 1, maxx - 1, maxy - 1); { Рисуем прямоугольник с отступом в 1 пиксель от края экрана}
 
 
  repeat until graphkeypressed;        { Сохраняем рисунок на экране до нажатия кнопки} 
 
  closegraph();           
end.

| Изменение цвета экрана заливкой

uses oglgraph;
 
var 
  gd, gm: smallint;
  color : integer;
 
begin
  gd := Detect;
  gm := DetectMode;
  initgraph(gd, gm, ''); 
 
    color := white;                      {выбираем цвет с помощью описанной в библиотеке константы white}
    setBkColor(color);                   {устанавливаем "нужный" цвет фона - ничего не происходит}
    cleardevice;                         {"очищаем" экран нужным цветом - установленным цветом фона } 
 
    ...                                  {Можно что-то рисовать}
 
  repeat until graphkeypressed;        { Сохраняем рисунок на экране до нажатия кнопки} 
 
  closegraph();           
end.

Другой способ

| Изменение цвета экрана

    ...
  initgraph(gd, gm, ''); 
 
    color := white;                      {выбираем цвет с помощью описанной в библиотеке константы white}
    setfillstyle(1, color);              {устанавливаем "нужный" цвет и способ "штриховки" при заливке - ничего не происходит}
    floodfill(0,0,red);                  {"заливаем" экран нужным цветом - установленным цветом заливки, 
                                         пока не наткнёмся на красный, которого нет } 
    ...                                  {Можно что-то рисовать}
 

Обратите внимание, что значение параметра не задает толщину линии, а указывает режим рисования. Написать setLineStyle(LineStyle, Pattern, 4);, вообще говоря, ошибка!

Чтобы избежать мигания экрана при перерисовке «заполненных» объектов, применяется метод двойной буферизации. При этом используются два виртуальных экрана, один из которых виден, а другой в это время - перерисовывается. Затем он показывается на экране, а видимый ранее - убирается и перерисовывается.

В начале рисования один раз командой SetDoubleBuffer(true) вызывается двойная буферизация, затем, после прорисовки каждого нового кадра, производится обмен вновь перерисованого кадра с тем, который был показан на экране, командой graphSwapBuffers.

Отключается войная буферизация командой SetDoubleBuffer(false);

m640x200x16       = VGALo;
m640x400x16       = VGAMed;
m640x480x16       = VGAHi;

{ VESA Specific video modes. }
m320x200x32k      = $10D;
m320x200x64k      = $10E;

m640x400x256      = $100;

m640x480x256      = $101;
m640x480x32k      = $110;
m640x480x64k      = $111;

m800x600x16       = $102;
m800x600x256      = $103;
m800x600x32k      = $113;
m800x600x64k      = $114;

m1024x768x16      = $104;
m1024x768x256     = $105;
m1024x768x32k     = $116;
m1024x768x64k     = $117;

m1280x1024x16     = $106;
m1280x1024x256    = $107;
m1280x1024x32k    = $119;
m1280x1024x64k    = $11A;

В графическом режиме обработка событий клавиатура происходит очень похоже на текстовый режим, так как реализованы аналоги функций readkey и keypressed из модуля crt. В модуле oglgraph они называются graphreadkey и graphkeypressed. Функция graphkeypressed служит для определения события нажатия на клавиатуру, это логическая функция, которая возвращает два значения: истина или ложь. Обычно результатом ее работы будет всегда false, кроме того случая если нажата какая-нибудь клавиша на клавиатуре. В примерах выше это ее поведение используется для остановки выполнения программы перед закрытием графического режима:

 repeat until graphkeypressed;

Когда выполнение программы доходит до приведенной строки, запускается цикл repeat-until, который работает до тех пор, пока условие не станет истинным, что в нашем случае произойдет только при нажатии любой клавиши.

Функция graphreadkey так же реагирует на нажатия, но в результате работы возвращает скан-код клавиши, т.е. уникальное целочисленное значение, которое соответствует коду клавиши, генерируемому контроллером клавиатуры.

 code := graphreadkey;

Особенностью это функции является то, что она блокирует исполнение программы до того момента пока не будет нажата клавиша. Если же требуется реализовать работу с клавиатурой, которая бы не останавливала работу программы, то в этом случае нужно предварительно сделать проверку на нажатие клавиши с помощью graphkeypressed:

if graphkeypressed then
    code := graphreadkey; 

Напишем программу, которая опрашивает клавиатуру и выводит на экран коды клавиш:

uses oglgraph;
var
  gd, gm, code: smallint;
 
begin
  gd := Detect;
  gm := DetectMode;
  initgraph(gd, gm, '');
 
  while true do
  begin
     if graphkeypressed then
     begin
        code := graphreadkey; 
        writeln(code);
     end;   
  end;
  closegraph;
end.

Все параметры графических процедур и функций — целые числа.

Ось Y направлена вниз. Следовательно, координаты левого верхнего угла - (0, 0).

Все процедуры и функции можно разбить на три группы.

Функции и процедуры, позволяющие узнать текущие настройки, начинаются с «get…» (getcolor и др.).

Процедуры, устанавливающие параметры рисования — с «set…» (setcolor и др.).

Процедуры, осуществляющие рисование и все остальные, называются кто во что горазд, но более или менее осмысленно (circle, floodfill …). «Рисующие» процедуры пользуются ранее установленными настройками или настройками по умолчанию. При изменении настроек, ранее сделанные рисунки не меняются.