Основные процедуры, функции, константы
Константы цвета
0 Черный 8 Темно-серый
1 Синий 9 Светло-синий
2 Зеленый 10 Светло-зеленый
3 Бирюзовый 11 Светло-бирюзовый
4 Красный 12 Светло-красный
5 Малиновый 13 Светло-малиновый
6 Коричневый 14 Желтый
7 Светло-серый 15 Белый
PutPixel(X, Y, C) – рисование точки в заданном месте экрана (x,y), где с – номер цвета
Bar(X1, Y1, X2, Y2) – рисование закрашенного прямоугольника
Line(X1, Y1, X2, Y2) – рисование отрезка с концами в точках (x1,y1) и (x2,y2)
LineRel(DX, DY) – построение отрезка из текущего положения (x,y) до точки с координатами (x+dx,y+dy)
LineTo(X, Y) – построение отрезка из текущего положения до точки с координатами (x,y)
MoveRel(X, Y) – перемещение на x точек по горизонтали вправо и на y точек по вертикали вниз
MoveTo(X, Y) – перемещение в точку с координатами (x,y)
OutTextXY(X, Y, S) – строка S выводится с позиции (x,y)
OutText(S) – строка S выводится в точке текущего положения
SetColor(C) – устанавливает цвет рисования линий
SetBkColor(C) – устанавливает цвет фона
SetFillStyle(P, C) – устанавливает стиль и цвет закрашивания замкнутых областей. P может принимать значения от 0 до 12
Uses Graph; подключение модуля Graph.tpu, позволяющего работать в графическом режиме.
Проверьте путь к файлу модуля: Options → Directories → Unit Directories (c:\bp\units)
Процедура инициализации графического режима:
Var GraphDriver, GraphMode:Integer;
Procedure Init;
Begin
GraphDriver:=Detect; {автораспознавание драйвера}
InitGraph(GraphDriver, GraphMode, ’c:\bp\bgi’);
{инициализация графической системы и перевод аппаратуры в графический режим}
If GraphResult<>0 then
Begin
Writeln(‘Ошибка инициализации графики’);
Halt(1); {прерывание работы программы}
End;
End.
Если GraphDriver равен Detect, то драйвер автоматически инициализируется и выбирается оптимальный графический режим.
’c:\bp\bgi’ – путь к графическим драйверам (egavga.bgi).
Оператор CloseGraph закрывает графическую систему
Uses Graph; подключение модуля Graph.tpu, позволяющего работать в графическом режиме.
Проверьте путь к файлу модуля: Options → Directories → Unit Directories (c:\bp\units)
Процедура инициализации графического режима:
Var GraphDriver, GraphMode:Integer;
Procedure Init;
Begin
GraphDriver:=Detect; {автораспознавание драйвера}
InitGraph(GraphDriver, GraphMode, ’c:\bp\bgi’);
{инициализация графической системы и перевод аппаратуры в графический режим}
If GraphResult<>0 then
Begin
Writeln(‘Ошибка инициализации графики’);
Halt(1); {прерывание работы программы}
End;
End.
Loading ...