Процедура Bar Pascal-Паскаль

Описание

Bar - Рисует закрашенный прямоугольник, используя текущие стиль и цвет закраски.

Объявление: 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.
  • Bar3D
  • SetFillPattern
  • SetFillStyle
  • SetLineStyle