Правила форума
Bar (процедура) (модуль Graph)Язык:
Русский
English
Bar (процедура) (модуль Graph)
Рисует закрашенный прямоугольник, используя текущие стиль и цвет закраски.
Объявление
Procedure Bar(X1, Y1, X2, Y2 : Integer);
Режим
Real, Protected
Замечания
Процедура Bar рисует закрашенный прямоугольник (используемый например, в гистограммах). Для закраски использует шаблон и цвет, определенные при обращении к SetFillStyle и SetFillPattern. Чтобы нарисовать выделенный прямоугольник, вызовите процедуру Bar3D с параметром Depth равным нулю.
Ограничения
Нужно быть в графическом режиме.
Смотри также
Пример
Язык:
Русский
English
{Bar.PAS}
{ Пример программы для процедуры Bar }
uses Graph;
var
Gd, Gm, I, Width : Integer;
begin
Gd := Detect;
InitGraph(Gd, Gm, 'X:\BP'); { Путь к 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.
var
Gd, Gm, I, Width : Integer;
begin
Gd := Detect;
InitGraph(Gd, Gm, 'X:\BP'); { Путь к 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.
::
::
::
