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

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

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

Процедура GetFillSettings.

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

    Procedure GetFillSettings(Var FillInfo : FillSettingsType);

  • Описание:

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

  • Замечания:

    В поле Pattern содержится текущий шаблон закраски. В поле Colors содержится текущий цвет закраски. И шаблон и цвет закраски могут быть изменены с помощью процедур SetFillStyle и SetFillPattern.

    Если значение поля Pattern равно UserFill, то используйте процедуру GetFillPattern для получения шаблона закраски, определяемого пользователем.

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

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

  • Пример:

    { Пример программы для процедуры GetFillSettings }
    Uses Graph;
    Var Gd, Gm : Integer;
    FillInfo : FillSettingsType;
    Begin
    Gd:=Detect;
    InitGraph(Gd, Gm, '');
    If GraphResult <> grOk Then Halt(1);
    GetFillSettings(FillInfo); { Сохраняем стиль и цвет закраски }
    Bar(0, 0, 50, 50);
    SetFillStyle(XHatchFill, GetMaxColor); { Новый стиль }
    Bar(50, 0, 100, 50);
    With FillInfo Do SetFillStyle(Pattern, Color);
    { Восстанавливаем старый стиль закраски }
    Bar(100, 0, 150, 50);
    ReadLn;
    CloseGraph;
    End.



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