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

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

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

Процедура DrawPoly.

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

    Procedure DrawPoly(NumPoints : Word; Var PolyPoints);

  • Описание:

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

  • Замечания:

    Параметр NumPoints определяет число элементов в параметре PolyPoints. Каждый элемент состоит из двух значений - X и Y. Заметьте, что для рисования замкнутой фигуры с N гранями, в параметре PolyPoints должно содержаться N+1 компонентов (координаты начальной и конечной точек должны совпадать).

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

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

  • Пример:

    { Пример программы для процедуры Drawpoly }
    Uses Graph;
    Const Triangle : Array [1..4] Of PointType = ((X: 50; Y: 100),
    (X: 100; Y:100),
    (X: 150; Y: 150),
    (X: 50; Y: 100));
    Var Gd, Gm : Integer;
    Begin
    Gd:=Detect;
    InitGraph(Gd, Gm, 'C:\BP\BGI'); { Путь к BGI драйверам }
    If GraphResult <> grOk Then Halt(1);
    DrawPoly(SizeOf(Triangle) Div SizeOf(PointType), Triangle);
    ReadLn;
    CloseGraph;
    End.



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