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

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

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

Процедура GetLineSettings.

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

    Procedure GetLineSettings(Var LineInfo : LineSettingsType);

  • Описание:

    Возвращает текущий тип, шаблон и толщину линии, установленные с помощью процедуры SetLineStyle.

  • Замечания:

    Нет.

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

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

  • Пример:

    { Пример программы для процедуры GetLineSetting }
    Uses Graph;
    Var Gd, Gm : Integer;
    OldStyle : LineSettingsType;
    Begin
    Gd:=Detect;
    InitGraph(Gd, Gm, '');
    If GraphResult <> grOk Then Halt(1);
    Line(0, 0, 100, 0);
    GetLineSettings(OldStyle);
    SetLineStyle(DottedLn, 0, ThickWidth); { Новый стиль }
    Line(0, 10, 100, 10);
    { Восстанавливаем прежний стиль }
    With OldStyle Do SetLineStyle(LineStyle, Pattern, Thickness);
    Line(0, 20, 100, 20);
    ReadLn;
    CloseGraph;
    End.



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