Курсовые работы, лабораторные и дипломы по информатике.

>> Справочник по функциям Turbo Pascal 7.0.

Наши спонсоры:

Процедура Bar.

  • Объявление:

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

  • Описание:

    Рисует дугу окружности.

  • Замечания:

    Процедура 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.



Вернуться к оглавлению справочника