Процедура Bar

Модуль GRAPH

Вызов процедуры Bar(x1, y1, x2, y2) рисует закрашенный прямоугольник, используя текущие стиль и цвет закраски, из точки x1y1 до точки x2y2.

Объявление:

Procedure Bar(X1, Y1, X2, Y2 : Integer);

Режим:

Real, Protected

Замечание:

Процедура Bar рисует закрашенный прямоугольник (используемый например, в гистограммах). Для закраски использует шаблон определенный при обращении к SetFillStyle и цвет с через SetFillPattern. Чтобы нарисовать выделенный прямоугольник, вызовите процедуру Bar3D с параметром Depth равным нулю.

Ограничения:

Нужно быть в графическом режиме.

Пример:

{Пример программы для процедуры Bar}

Uses Graph;

Var Gd, Gm, I, Width : Integer;

Begin
    Gd:=Detect;
    InitGraph(Gd, Gm, 'C:\BP\BGI'); { Путь к BGI драйверам }
    If GraphResult <> grOk Then Halt(1);
    Width:=10;
    For I:=1 To 5 Do Bar(I*Width, I*10, Succ(I)*Width, 200);
    ReadLn;
    CloseGraph;
End.