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

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

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

Процедура GetFillPattern.

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

    Procedure GetFillPattern(Var FillPattern : FillPatternType);

  • Описание:

    Возвращает текущий шаблон закраски, установленный SetFillPattern.

  • Замечания:

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

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

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

  • Пример:

    { Пример программы для GetFillPattern и SetFillPattern }
    Uses Graph;
    Const Gray50 : FillPatternType = (AA, 55, AA, 55, AA, 55, AA, 55);
    Var Gd, Gm : Integer;
    OldPattern : FillPatternType;
    Begin
    Gd:=Detect;
    InitGraph(Gd, Gm, 'C:\BP\BGI'); { Путь к BGI драйверам }
    If GraphResult <> grOk Then Halt(1);
    GetFillPattern(OldPattern);
    SetFillPattern(Gray50, White);
    { Рисуем полосу на 50% серой }
    Bar(0, 0, 100, 100);
    ReadLn;
    SetFillPattern(OldPattern,White);
    { Рисуем полосу старым стилем }
    { (по умолчанию, состоящим из байт ) }
    Bar(0, 0, 100, 100);
    ReadLn;
    CloseGraph;
    End.



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